Excel vba Entrar al aplicativo validando usuario y contraseña

 Para entrar al aplicativo se creó el siguiente UserForm

Como en el anterior, primero el de "Salir" que es más sencillo:

Private Sub CommandButton2_Click()

Unload Me

End Sub

*************************

Ahora, verifica que el campo de usuario no esté vacío y luego dependiendo de los datos, permite seguir.

Private Sub CommandButton1_Click()

Dim usuario As String
Dim cla As String

usuario = TextBox1.Value
cla = TextBox2.Value

Do Until usuario <> ""
                usuario = "1"
                TextBox1.BackColor = vbYellow  'Coloca color de fondo en amarillo
                TextBox1.SetFocus
                TextBox1.Value = "<Colocar usuario>"
                usuario = TextBox1.Value
                MsgBox "Debe ingresar un usuario válido", vbExclamation
                Exit Sub
    Loop

Dim Fila As Long, I As Long, ValorCell As String

Fila = Sheets("Users").Range("A" & Rows.Count).End(xlUp).Row + 1

Sheets("Users").Range("A2").Select

    For I = 1 To Fila - 3
            ValorCell = ActiveCell.Offset(I, 0).Value
            If ValorCell = usuario Then
                If ActiveCell.Offset(I, 1).Value = cla Then
                    MsgBox "Usuario y contraseña correctos", vbExclamation
                    'Llamar al programa para las siguientes actividades
                    Exit Sub
                End If
            End If
    Next I

End Sub

Excel macros macro ingresar con usuario y contraseña password