Excel - Macro al seleccionar opción en lista desplegable

 
Vista:

Macro al seleccionar opción en lista desplegable

Publicado por weapon (2 intervenciones) el 06/07/2008 03:26:17
Hola a todos los componentes de este foro, os explico lo que me trae 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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Macro al seleccionar opción en lista desplegabl

Publicado por Mark (273 intervenciones) el 06/07/2008 17:31:59
Si quieres colocalo en mi correo por que no permite descargarlo o colocalo en otro site (ej: rapidshare.com)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Macro al seleccionar opción en lista desplegabl

Publicado por weapon (2 intervenciones) el 06/07/2008 18:10:53
Te envío un correo con el archivo adjunto.

Gracias Mark por tu interes

Un saludo
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar