MAcro q pida clave

15/01/2005 - 21:27 por Daniel | Informe spam
Tengo Excel Xp con los 3 services pack tengo varias macro q funcionan con
botones pero me gustaria q al dar click en dicho boton antes de ejecutar la
macro me pida una clave si es correcta q ejecute la macro y no q impida su
uso, esta macro es para imprimir documentos agradezco su apoyo de antemano
 

Leer las respuestas

#1 KL
15/01/2005 - 22:29 | Informe spam
Daniel,

Puedes preceder tu codigo con la siguiente instruccion:

Dim Pass As String
Pass = "Micontrasena" '<=Pon tu contasena aqui entre comillas
If InputBox("Contrasena:", "Acceso Restringido") <> Pass Then
MsgBox "Acceso denegado."
Exit Sub
End If
'...tu codigo

Saludos,
KL

"Daniel" wrote in message
news:
Tengo Excel Xp con los 3 services pack tengo varias macro q funcionan con
botones pero me gustaria q al dar click en dicho boton antes de ejecutar
la
macro me pida una clave si es correcta q ejecute la macro y no q impida su
uso, esta macro es para imprimir documentos agradezco su apoyo de antemano

Preguntas similares