Para DAM macro con contraseña
Hola DAM
Me gustaría tener una macro con contraseña con el fin de que solo ciertas personas autorizadas puedan ejecutar la macro y el que no se sepa la contraseña no la pueda ejecutar.
Por lo tanto que código se podría poner al comienzo de la macro con el fin de que cuando le de click en el botón de la macro para ejecutarla, lo primero que solicite es una contraseña.
1. En caso de poner la contraseña que es entonces se ejecuta la macro
2. En caso de poner una contraseña que no es, salga un mensaje que "Contraseña errada, inténtelo de nuevo" con condición, aceptar o cancelar, aceptar intenta de nuevo y cancelar finaliza.
Gracias
1 respuesta
Te anexo la macro
Sub PedirClave()
'Por Dante Amor
Do While True
res = InputBox("Escribe la contraseña: ", "INGRESO")
If res = "abc" Then
Exit Do
Else
If MsgBox("Contraseña errada. Intentar de nuevo", vbYesNo, "SEGURIDAD") = vbNo Then
Exit Sub
End If
End If
Loop
'
Call nombremacro
End SubCambia en la macro nombremacro por el nombre de tu macro que quieres ejecutar.
Saludos. Dante Amor
Recuerda valorar la respuesta.
