Usuario y contraseña en Excel con Visual Basic
Quiero hacer un inicio de sesión al abrir un archivo de Excel, pero no logro hacer que mi archivo recoja más usuarios...
Tengo que el UserForm1 salga al abrir el archivo y que no deje hacer nada más, luego doy click en una imagen y me pide contraseña y usuario, hasta allí todo esta bien. Pero tengo que el Usuario este ligado a una celda "A2" y la contraseña a "B2" pero solo puedo poner 1 usuario y una contraseña, necesito poner como máximo 350. Intente poner ("A2:A350") y ("B2:B350") pero me da error y no se que hacer, les dejo un poco de la programación que hice y me ayudan por favor :c
Private Sub OKButt_Click()
If UserForm2.UserNameTextBox.Value = Worksheets("Clave").Range("A2").Value And UserForm2.PasswordTextBox.Value = Worksheets("Clave").Range("B2").Value Then
Sheets("Clave").Select
UserForm2.Hide
Unload Me
Else
End If
On Error GoTo 0
If iFoundPass = 0 Then
SomethingWrong
Exit Sub
End If
End Sub
Private Sub SomethingWrong()
MsgBox "El Nombre De Usuario O Contraseña No Son Validos"
End Sub
1 Respuesta
¿Puedes intentar con esta adecuación?
Private Sub CommandButton1_Click()
For i = 2 To Sheets("Clave").Range("A1048576").End(xlUp).Row
If UserForm2.UserNameTextBox.Text = Sheets("Clave").Range("A" & i).Value And _
UserForm2.PasswordTextBox.Text = Sheets("Clave").Range("B" & i).Value Then
Sheets("Clave").Select
iFoundPass = 1
UserForm2.Hide
Unload Me
End If
Next
If iFoundPass = 0 Then
SomethingWrong
Exit Sub
End If
End Sub
Private Sub SomethingWrong()
MsgBox "El Nombre De Usuario O Contraseña No Son Validos"
End SubEspero y sea de utilidad!! :)
Suscríbete a mi canal: http://bit.ly/1KgurfF
Sigueme en Twitter https://twitter.com/RaduNordenhulk
Agregame en Facebook: http://on.fb.me/1oFUXVL
Sigue mis publicaciones en mi blog: http://radunordenhulk.blogspot.com/
