Contraseña para continuar ejecutando macros

El jueves, 3 de mayo de 2012 17:15:43 UTC+2, gustavo-aranp escribió:

¡ Hola !
Deseo en medio de una macro que me solicite una contraseña, si la
contraseña es correcta ejecutar una macro adicional, de lo contrario
continuar con la macro definida.

Gracias

Hola, Puedes poner al inicio de la macro creada algo como esto:

Sub Macro1()

If (InputBox("Introduzca la contraseña adecuada", "Atención") <> "MiContraseña") Then
Call MsgBox("Contraseña incorrecta", vbCritical Or vbDefaultButton1, "Atención")
Exit Sub
End If

Aquí el código de tu macro

End Sub

Conrrad escribió el 03/05/2012 18:17 :

El jueves, 3 de mayo de 2012 17:15:43 UTC+2, gustavo-aranp escribió:

¡ Hola !
Deseo en medio de una macro que me solicite una contraseña, si la
contraseña es correcta ejecutar una macro adicional, de lo contrario
continuar con la macro definida.

Gracias

Hola, Puedes poner al inicio de la macro creada algo como esto:

Sub Macro1()

If (InputBox("Introduzca la contraseña adecuada",
"Atención") <> "MiContraseña") Then
Call MsgBox("Contraseña incorrecta", vbCritical Or
vbDefaultButton1, "Atención")
Exit Sub
End If

Aquí el código de tu macro

End Sub

Gracias por tu respuesta me sirvio una parte, pero necesito que si la clave es incorrecta, no la coloco o presiono Cancelar continue ejecutando la macro de lo contrario ejecute una macro adicional y continue con la macro original