Hola quiero hacer un userform para iniciar sección desde mi aplicación con varios nombres de usuarios y varias contraseñas

Hola aqui les dejo este código que permite iniciar sección con un nombre de usuario y una contraseña, quisiera saber como hago para asignar más usuarios y más contraseñas y tener la opción de ponder ingresar a la hoja con cualquier nombre de ussurio y contraseña, por elejmplo ahora tengo registrados en la celda a2 de la hoja7, el nombre de usuario juan y en la celda b2 de la hoja7, 123 y con estos datos entro perfectamente bien, pero quisiera adicioonar otros nombres de usuarios en las celdas a3, a4 y a5, y igualmente contraseñas en las celdas b3, b4 y b5. Como hacer, por favor alguien me ayude, le agrdexco mucho. Muchas gracias

Private Sub CommandButton1_Click()
Sheets("hoja7").Activate
If TextBox1 = "" Then
    MsgBox "Digite el nombre de usuario", vbCritical, "Registro Usuario"
    TextBox1.SetFocus
    Exit Sub
End If

If TextBox2 = "" Then
    MsgBox "Digite la contraseña para continuar", vbCritical, "Restro Contraseña"
    TextBox2.SetFocus
    Exit Sub
End If

 valor = Val(TextBox1)  

 If Not TextBox1 = Worksheets("Hoja7").Range("a2").Value Then

   MsgBox "Nombre Usuario Incorrecto", vbSystemModal, "Información" 'Manda el mensaje

     Me.TextBox1.Text = ""
     TextBox1.SetFocus
 Else

 
  valor = Val(TextBox2)    
 If Not TextBox2 = Worksheets("Hoja7").Range("b2").Value Then

     MsgBox "contraseña Incorrecto", vbSystemModal, "Información" 'Manda el mensaje

     Me.TextBox1.Text = ""
     TextBox1.SetFocus
 Else
     Unload UserForm13
  End If
  End If
 Me.TextBox2.Text = ""

TextBox1.Value = ""
TextBox2.Value = ""

End Sub

1 Respuesta

Respuesta
1

Utiliza la siguiente macro

Private Sub CommandButton1_Click()
'Por.DAM
    Set h7 = Sheets("Hoja7")
    If TextBox1 = "" Then
        MsgBox "Digite el nombre de usuario", vbCritical, "ACCESO"
        TextBox1.SetFocus
        Exit Sub
    End If
    If TextBox2 = "" Then
        MsgBox "Digite la contraseña para continuar", vbCritical, "ACCESO"
        TextBox2.SetFocus
        Exit Sub
    End If
    Set b = h7.Range("A:A").Find(TextBox1, lookat:=xlWhole)
    If b Is Nothing Then
        MsgBox "Nombre Usuario Incorrecto", vbSystemModal, "ACCESO" 'Manda el mensaje
        Me.TextBox1.Text = ""
        TextBox1.SetFocus
        Exit Sub
    End If
    If h7.Cells(b.Row, "B") <> TextBox2 Then
        MsgBox "Contraseña Incorrecta", vbSystemModal, "ACCESO" 'Manda el mensaje
        TextBox2.Text = ""
        TextBox2.SetFocus
        Exit Sub
    End If
    Unload UserForm13
End Sub

Saludos.Dante Amor

No olvides valorar la respuesta.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Ayuda con Fucion if, else,end if me da error

Me sirvió de mucho, pero ahora tengo otro problema, mira tengo dos userforms que simulan cambiar una contraseña, el primero que me pida la contraseña guardada en una celda, este es el código del botón de aceptar del primero: Private Sub...
2 respuestas

Si se deja un Textbox en blanco

Tengo este código en un formulario de excel: Private Sub TextBox1_Change() largo_entrada = Len(Me.TextBox1) Select Case largo_entrada Case 2 Me.TextBox1.Value = Me.TextBox1.Value & "/" Case 5 Me.TextBox1.Value = Me.TextBox1.Value & "/2008"...
2 respuestas

Como cambiar esta parte del código

Amigo esperto melodiando por aqui tambien logre encontrar este ejemplo para usar un formulario con usuario y clave En el ThisWorkbook utilizo esto según el ejemplo que aparece en este página de todoexpertos Private Sub Workbook_Open()...
1 respuesta

Mostrar MsgBox con datos de celda

Recurro de nuevo a su valiosa ayuda. Gracias al experto "Aprendemos" pude dar con una respuesta interesante. Por medio de un Formulario capturo un nombre ubicados un rango, si el valor no existe en el rango aparece un MsgBox "Número no encontrado"....
2 respuestas

Validar usuario y contraseña en 2 textbox

Soy nuevo en el foro y realmente me parece muy bueno y la mayoría de mis consultas las he tomado de acá en un el archivo que estoy elaborando, es un archivo que quiero proteger con usuario y contraseña, donde tengo una macro para crearlos. Ahora...
1 respuesta

Textbox campo obligatorio

Como estas Como hago para que mi textbox se vuelva obligatorio y no me deje seguir realizando mi trabajo y ademas de esto cuando digite en campo y no me encuentre la información en la base de datos que tengo y salga un mensaje de que no existe y me...
1 respuesta

Formulario para contraseña

Actualmente estoy diseñando una base de datos y cuando de inicia automáticamente se abre un formulario llamado "Clave" el cual solicita una contraseña. ¿Mi pregunta es ¿Cómo puedo crear la opción para poder cambiar la contraseña sin necesidad de...
2 respuestas

InputBox

Espero que me puedas ayudar con este tema, poseo el siguiente código el cual debo introducir una contraseña para que prosiga con una macro, el problema es que cuando lo activo, se ve la contraseña que escribo, ¿Existe la posibilidad de que no se vea...
1 respuesta