Validación de usuario y contraseña en formularios

Se me ocurre definir una hoja con los usuarios y el nivel de acceso
Usuario pass nivel
Ppppa1
Y segun el nivel (capturado en una variable global) restringir el acceso ejemplo

if nivel=1 then
CommandButton1.enabled=true
 else
CommandButton1.enabled=true
end if

No entiendo muy bien lo que dices. Creo que mi nivel de conocimiento de VB es bajo pero te cuento que hice y me cuentas si te parece una solución apropiada o si genera algún inconveniente (tamaño del archivo, velocidad de procesamiento, etc).
Efectivamente en una hoja se definió usuario con contraseña. En esa misma hoja le asigne a dos celdas los valores de los textbox donde se captura user y password. Busco el valor de estas celdas en la lista de usuarios y si hay error pongo un 0 o sino pongo un 1 y de acuerdo a los resultados permito el acceso a un nuevo formulario o no. Es así:
Este botón pertenece al formulario frmIngreso.
Private Sub cbnAceptar_Click()
    Worksheets("Usuarios").Range("D2").Value = txtUser.Value
    Worksheets("Usuarios").Range("D3").Value = txtPsw.Value
    validauser = Worksheets("Usuarios").Range("F2").Value
    validapsw = Worksheets("Usuarios").Range("F3").Value
    If validauser = 0 And validapsw = 0 Then
        Unload Me
        frmConsulta.Show
    Else
        MsgBox "Sus datos de ingreso están errados o su usuario no está autorizado. Valide nuevamente sus datos."
        Unload Me
        frmIngreso.Show
    End If
End Sub
Agradezco tus comentarios

Básicamente lo que haces es escribir los valores de los textbox a las celdas
y esas celdas las comparas con la lista de usuarios...
Lo ideal seria saltarse el pasode escribir los valores de los textbox a la celda y comparlos directamente, para ello necesito que me indiques cual son las columnas en donde están los datos de los usuarios y así crearte la rutina

Perfecto, los datos los tengo en la hoja "Usuarios". Para user estoy usando la columna A que tiene encabezado por lo cual los datos están a partir de la fila 2. Para password igual pero en la columna B.
Te agradezco inmensamente el tiempo que te tomas para compartir tu conocimiento.

Prueba con este código y disculpa la demora pues me surgieron algunos problemillas
Private Sub txtPsw_Change()
ult = Sheets("Usuarios").Range("A65536").End(xlUp).Row - 2 'cantidad de usuarios y pass
For x = 2 To ult ' recorremos los datos
If Cells(x, 1) = txtUser And Cells(x, 2) = txtPsw Then ' comparamos los usuarios y pass de las Col A y B
GoTo Exitoso: ' Si son los datos correctos saltamos a la etiqueta exitoso
Next x
' si recorrio todos los datos quiere decir que las claves estan malas
MsgBox "Sus datos de ingreso están errados o su usuario no está autorizado. Valide nuevamente sus datos."
Exit Sub
Exitoso:
frmConsulta.Show
Unload Me
End Sub

Una pequeña corrección en txtPsw.Text
Private Sub txtPsw_Change()
ult = Sheets("Usuarios").Range("A65536").End(xlUp).Row - 2 'cantidad de usuarios y pass
For x = 2 To ult ' recorremos los datos
If Cells(x, 1) = txtUser.Text And Cells(x, 2) = txtPsw.Text Then ' comparamos los usuarios y pass de las Col A y B
GoTo Exitoso: ' Si son los datos correctos saltamos a la etiqueta exitoso
Next x
' si recorrio todos los datos quiere decir que las claves estan malas
MsgBox "Sus datos de ingreso están errados o su usuario no está autorizado. Valide nuevamente sus datos."
Exit Sub
Exitoso:
frmConsulta.Show
Unload Me
End Sub