Login en UserForm con macros excel

Hola amigos para mi me es muy grato compartirles nuevamente otro código mas de como crear un login. Prácticamente en ejemplos anteriores he mostrado como buscar datos ya sea por registro o múltiples registros, en este caso es exactamente igual el proceso de búsqueda pero el objetivo es comprender como podemos validar un usuario y un password con la propiedad PasswordChar de un TextBox.

Para ello debemos realizar lo siguiente:

1. Crear una hoja con datos en excel.
2. Acceder al editor VBA excel.
3. Crear un formulario con los siguientes componentes:
• 2 Etiquetas (Label1).
• 1 TextBox1.
• 1 TextBox2. En la propiedad PasswordChar escribir; *
• 2 Botón de comando (CommandButton 1 y 2).
4. Escribir el siguiente código.

Private Sub CommandButton1_Click()

Dim strusuario As String

Dim strpasswor As String

Dim intval As Integer

Dim intregistros As Integer

'Contamos el numero de registros en la hoja 1

intregistros = Hoja1.Range("A1").CurrentRegion.Rows.Count

intval = 0

For intcon = 2 To intregistros

    strusuario = Hoja1.Cells(intcon, 3)

    strpasswor = Hoja1.Cells(intcon, 4)

    If strusuario = Me.TextBox1.Text And strpasswor = Me.TextBox2.Text Then

        MsgBox "Bienvenido al sistema", vbInformation, "Acceso"

        intval = 1

        Exit For

    End If

Next intcon

If intval = 0 Then

    MsgBox "El usuario o contraseña es incorrecta", vbExclamation, "Incorrecto"

End If

End Sub

Private Sub CommandButton2_Click()

Unload Me

End Sub

Login con macros en UserForm

Mensaje de confirmación de acceso

Hoja 1 con datos