Consulta sobre código
Hola he creado un userform de inicio de sesión para un libro excel que pide usuario y contraseña, lo he aprendido de un tutorial de youtube, el tema que no explican como también poner que el usuario sea reconocido.
Este es el código que tengo en el botón entrar
Private Sub CommandButton1_Click()
If Contraseña = "26937536" Then
MsgBox "BIENVENIDO, Contraseña correcta", vbInformation, "Inicio de sesión"
Unload Inicio
Else
MsgBox "Contraseña Incorrecta, Consulte al Administrador", vbInformation, "Inicio de sesión"
Usuario.Text = ""
Contraseña.Text = ""
End If
End Sub
Si me pueden ayudar seria de mucha ayuda. Saludos
Este es el código que tengo en el botón entrar
Private Sub CommandButton1_Click()
If Contraseña = "26937536" Then
MsgBox "BIENVENIDO, Contraseña correcta", vbInformation, "Inicio de sesión"
Unload Inicio
Else
MsgBox "Contraseña Incorrecta, Consulte al Administrador", vbInformation, "Inicio de sesión"
Usuario.Text = ""
Contraseña.Text = ""
End If
End Sub
Si me pueden ayudar seria de mucha ayuda. Saludos
Respuesta de calvuch
1
Si ese script solo "reconoce" contraseña, da igual que usuario sea.
Prueba así
Private Sub CommandButton1_Click()
Contraseña = Usuario.Text & Contraseña.Text
If Contraseña = "JUAN26937536" Then
MsgBox "BIENVENIDO, Contraseña correcta", vbInformation, "Inicio de sesión"
Unload Inicio
Else
MsgBox "Contraseña Incorrecta, Consulte al Administrador", vbInformation, "Inicio de sesión"
Usuario.Text = ""
Contraseña.Text = ""
End If
End Sub
De esta forma concatenas el contenido de los tex es decri usuario y contraseña hjuntos como una sola cadena la cual se compara con la linea If Contraseña = "JUAN26937536"
En el evento que el usuario sea JUAN y su contraseña 26937536
Prueba así
Private Sub CommandButton1_Click()
Contraseña = Usuario.Text & Contraseña.Text
If Contraseña = "JUAN26937536" Then
MsgBox "BIENVENIDO, Contraseña correcta", vbInformation, "Inicio de sesión"
Unload Inicio
Else
MsgBox "Contraseña Incorrecta, Consulte al Administrador", vbInformation, "Inicio de sesión"
Usuario.Text = ""
Contraseña.Text = ""
End If
End Sub
De esta forma concatenas el contenido de los tex es decri usuario y contraseña hjuntos como una sola cadena la cual se compara con la linea If Contraseña = "JUAN26937536"
En el evento que el usuario sea JUAN y su contraseña 26937536
