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

Hola KL voya probar tu macro y te aviso gracias por tu tiempo por responder
saludos

este codigo funciona muy bien, pero yo tengo una duda
¿como le hago para que en vez de que se vea el texto de
la password se vean puros ******** ?
Saludps...

Hola KL voya probar tu macro y te aviso gracias por tu

tiempo por responder

saludos


.

Hola anonimo,

¿como le hago para que en vez de que se vea el texto de
la password se vean puros ******** ?

Me temo q para eso tendras crear un formulario con un textbox y luego
asignar a la propiedad PasswordChar del textbox el valor *.

Saludos,
KL