A ver, podr=EDas modificar la senencia anterior de la siguiente manera.
If (InputBox("Introduzca la contrase=F1a adecuada", "Atenci=F3n") =3D "MiCo=
ntrase=F1a") Then
Call MsgBox("Contrase=F1a incorrecta", vbCritical Or vbDefaultButton1, =
=20
'Pon aqu=ED lo que quieres que haga si la contrase=F1a es correcta
' por ejemplo llamar a otra macro.
Call OtraMacro
End If
Despu=E9s del end if debe de ir el c=F3digo de tu macro. De la forma que te=
lo he puesto, si la contrase=F1a es correcta lo mandas a que te ejecute la=
OtraMacro y cuando lo haga seguir=E1 ejecutando el c=F3digo normal de tu m=
acro.
Un saludo.
_________________________________
www.accessyexcel.com