MAcro q pida clave

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