Acceder con nombre de usuario y contraseña
Es una pregunta para Dante Amor
Querría que al abrir el libro me apareciera (sin mostrarse las hojas) un formulario de acceso restringido para usuarios.
Habría tres usuarios: administrador, usuario 1 y usuario 2 con tres claves diferentes.
Si metemos los datos de usuario y contraseña correctamente entraremos directamente al useform1 que ya creamos anteriormente, si no pues saltará un mensaje de error.
1 respuesta
Respuesta de Dante Amor
1
Te anexo el código para el formulario de usuario y password
Private Sub CommandButton1_Click()
'Por.Dante Amor
If TextBox1 = "" Then Exit Sub
If TextBox2 = "" Then Exit Sub
Set h5 = Sheets("USUARIOS")
Set b = h5.Columns("A").Find(TextBox1, lookat:=xlWhole)
If Not b Is Nothing Then
If h5.Cells(b.Row, "B") = TextBox2 Then
Unload Me
UserForm1.Show
Else
MsgBox "Clave no es correcta"
End If
Else
MsgBox "Usuario incorrecto"
End If
End SubS a l u d o s
¡Gracias!
Funciona correctamente,
Te he dejado otra pregunta:
"Cambiar contraseña en formulario de acceso usuarios en excel"
A la espera de tu ayuda, gracias de nuevo
