Macro al seleccionar opción en lista desplegable

[weapon57]

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