Contraseña en Formulario
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.
1 respuesta
Respuesta de juanmiguel
2
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
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
Gracias JuanMiguel, funciona bien, pero se puede poner mascara (******) para que lo que teclees no te lo puedan ver, si no se puede me lo dices y cierro la pregunta, pues con cuidado también sirve... Gracias
Hay 2 soluciones, la primera es hacerlo por medio de un formulario con un cuadro de texto con la mascara de entrada 'Password' y la segunda muy buena (excelente diria yo) es la del maestro 'happy' que tiene infinidad de codigo muy bueno en su pagina http://www.mvp-access.com/accessvbafaq y en esta direccion en especifico http://www.mvp-access.com/accessvbafaq/item.asp?pagina=37 esta lo que tu buscas
Si tienes más dudas o deseas aprender cosas muy interesantes sobre Access te puedo recomendar el Foro del Búho que se encuentra en la siguiente dirección
http://www.mvp-access.com/foro
Seguro te va a gustar
Si tienes más dudas o deseas aprender cosas muy interesantes sobre Access te puedo recomendar el Foro del Búho que se encuentra en la siguiente dirección
http://www.mvp-access.com/foro
Seguro te va a gustar
