Macro contraseña
Buenos días me podrías hacer el favor de colaborarme con una macro que me valore en un ComboBox nombre de usuario y en un text box contraseña más o menos dos nombres de usuarios diferente con contraseña diferente gracias
1 Respuesta
Respuesta de Nlyos Leet
1
Crea un userform con combo tex y 2 botones (aceptar y salir) el userform esta bloqueado para salir con el botón de cerrado "x" de arriba
Private Sub ComboBox1_ENTER()
ComboBox1.List = Array("BOB", "PEP")
End Sub
Private Sub CommandButton1_Click()
USUARIO = ComboBox1.Value
CLAVE = TextBox1.Value
If USUARIO = "BOB" And CLAVE = "123" Or USUARIO = "PEP" And CLAVE = "1234" Then
Unload Me
Else
MsgBox "CLAVE INCORRECTA"
End If
End Sub
Private Sub CommandButton2_Click()
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub
Private Sub UserForm_Initialize()
TextBox1.PasswordChar = "*"
End Sub
Private Sub UserForm_QueryClose(cancel As Integer, CloseMode As Integer)
If CloseMode = 0 Then
MsgBox "Use el botón SALIR del formulario", vbInformation, " Botón No Disponible "
cancel = 1
CloseMode = 1
End If
End Sub
Private Sub ComboBox1_ENTER()
ComboBox1.List = Array("BOB", "PEP")
End Sub
Private Sub CommandButton1_Click()
USUARIO = ComboBox1.Value
CLAVE = TextBox1.Value
If USUARIO = "BOB" And CLAVE = "123" Or USUARIO = "PEP" And CLAVE = "1234" Then
Unload Me
Else
MsgBox "CLAVE INCORRECTA"
End If
End Sub
Private Sub CommandButton2_Click()
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub
Private Sub UserForm_Initialize()
TextBox1.PasswordChar = "*"
End Sub
Private Sub UserForm_QueryClose(cancel As Integer, CloseMode As Integer)
If CloseMode = 0 Then
MsgBox "Use el botón SALIR del formulario", vbInformation, " Botón No Disponible "
cancel = 1
CloseMode = 1
End If
End Sub
