Hola a todos los componentes de este foro, os explico lo que metrae de cabeza;
Tengo en la celda "B153" en la "Hoja1"una lista desplegable que toma los datos del rango (B3:B8) de otra Hoja llamada "Responsables" (Oculta con contraseña), una vez hecha la selección y mediante DESREF, COINCIDIR hace que una imagen que tengo insertada en la "Hoja 1" cambie y me muestre la imagen de la firma de la persona seleccionada
Y esto es lo que pretendo hacer
Que este evento
"una vez hecha la selección y mediante DESREF, COINCIDIR hace que una imagen que tengo insertada en la "Hoja1" cambie y me muestre la imagen de la firma de la persona seleccionada"
No se efectúe hasta que se valide la contraseña correspondiente a la persona seleccionada en el rango (E3:E8) de la Hoja "Responsables" introducida y si la contraseña introducida no es correcta no haga nada excepto presentar un:
MsgBox "Acceso Denegado", vbExclamation, "Contraseña incorrecta"
y detenga el proceso, y si la contraseña introducida es la correcta efectuará el evento y permitirá que cambie la imagen.
Este es el código que tengo:
Public Pw As String
Private Sub CommandButton1_Click()
If Pw = FormAcceso.TextBox1.Value Then
'Aqui las instrucciones SI la contraseña es correcta
Else
'Aqui las instrucciones si la contraseña NO es correcta
End If
End Sub
Private Sub UserForm_Activate()
Pw = Application.WorksheetFunction.Index([listaPw], _
Application.WorksheetFunction.Match(ActiveCell.Val ue,[lista], 0))
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
" ...
If Target.Address = "$B$153" Or Target.Address = "$Q$153" Then
FormAcceso.LabelN.Caption = Target.Value
FormAcceso.Show End If
" ...
End
http://www.speedyshare.com/348215890.html
Este es el enlace del archivo para una mejor comprensión, si no pudierais verlo me lo indicais.
Muchas Gracias
Un saludo
