Clave de ingreso

[Taribo007]

Veamos. Create un formulario con dos cusdros de texto y un boton. En el evnto abrir del workbook abrimos el formulario:

Private Sub Workbook_Open()
UserForm1.Show
End Sub

Luego, en una hoja que luego ocultaremos, pon los usuarios y las contrseñas asi:

Luis Luisito
Andres andresito
Manolo manolito

Necesitaremos saber tanto el rango como la hoja donde estan estos datos.

En el evento activate del formulario ocultamos la hoja donde estan las contraseñas, en este caso la Hoja2

Private Sub UserForm_Activate()
'Ocultamos la hoja donde estan las contraseñas al abrir el archivo excell
Sheets("Hoja2").Visible = True
End Sub

Y en el evento click del boton, pon este codigo:

Private Sub CommandButton1_Click()

If IsNull(Me.TxtUsuario) Or Me.TxtUsuario = "" Then
MsgBox "Introduzca un nombre de usuario"
Exit Sub
End If

If IsNull(Me.TxtContraseña) Or Me.TxtContraseña = "" Then
MsgBox "Introduzca una contraseña"
Exit Sub
End If

Dim myRange As Range
Set myRange = Worksheets("hoja2").Range("I4:J6")


For Each c In myRange
If Me.TxtUsuario = c.Value Then 'se ha encontrado un usuario coincidente
If Worksheets("Hoja2").Cells(c.Row, c.Column + 1).Value = Me.TxtContraseña Then
MsgBox "Puede entrar"
'Ocultamos el form
Me.Hide
Exit Sub
Else
MsgBox "Acceso denegado"
'Cerramos el libro
Application.Workbooks(1).Close
End If
End If
Next c

End Sub


Solo tienes que cambiar los nombres de las hojas y el rango asigando para los nombres y contraseñas.

Un saludo