Contraseña en Formulario

Hola expertos
Como puedo hacer para que al darle un click a un botón para abrir un formulario, que no se abra si no es con contraseña, osea que antes me pida el password.
Gracias

1 respuesta

1
Respuesta de
En el evento al abrir puedes poner el siguiente código
Dim MyPass As String
Dim TuPass As String
MyPass="clavesecreta" 'Clave que deseas para el formulario
TuPass=InputBox("Clave de Acceso","Introduce la clave","")
If TuPass<>MyPass Then
MsgBox "La clave de acceso al formulario no es valida"
Cancel=-1
End If
Espero te sirva
Saludos
Añade un comentario a esta respuesta
Añade tu respuesta
Haz clic para o
Escribe tu mensaje