Validacion Usuario y contraseña

[JoseRoberto]

Hola Expertos tengo un archivo en el cual ya inserta los usuarios y su contraseña, quiero validar esos usuarios y contraseñas que se vallan agregando.

ya tengo una parte del codigo solo quisiera ver si es posible que se validaran y cuando la contraseña y el usuario sena correctos abra un userform ahorita puse de prueba el Form_BIENVENIDA

Este el codigo del boton ingresar.

 Private Sub CommandButton1_Click()

On Error GoTo Errorusuario

For I = 2 To R

a = Sheets(BD_USUARIO).Cells(I, 8)

b = Sheets(BD_USUARIO).Cells(I, 9)

If a = Txt_Usuario And b = Txt_Contrasena Then

    Sheets(BD_USUARIO).Range("H2") = Txt_Usuario

    Sheets(BD_USUARIO).Range("I2") = Txt_Contrasena

      Form_BIENVENIDA.Show

    Exit Sub

End If

Next

Errorusuario:

RESPUESTA = MsgBox("CONTRASEÑA INVALIDA DESEA VOLVER A INTENTAR", vbOKCancel, "CONTRASEÑA INVALIDA")

    If RESPUESTA = 2 Then

   Txt_Usuario.Text = ""

    Txt_Contrasena.Text = ""

    End If

End Sub


[/CODE]

[Macklainn]

hola subi siempre el archivo para poder ayudarte

[viejo]

hola aqui te dejo esto, adaptalo a tus necesidades y comentas

usuarioycontraseña.rar

[JoseRoberto]

muchas gracias amigo me sirvio de mucho tarde pero seguro lo que pasa es que estaba metido en otras cuestiones

espero puedas ayudarme a otras cosas ya estoy por terminar mi proyecto y si gustan se los comparto.

[viejo]

si esta en mis posibilidades lo hare con gusto y si es tu deseo compartir el archivo tambien se recibe con gusto. saludos