¿Qué acciones según usuario ingresado?

Recibido el modelo. Ya te enviaré el libro con los códigos.

Sdos!

Dejo macro según modelo de la imagen original:

Private Sub CommandButton2_Click()
'x Elsamatilde
Application.ScreenUpdating = False
Sheets("User").Select
ActiveSheet.Range("A2").Select
While ActiveCell.Value <> ""
If ActiveCell = cbotipo And ActiveCell.Offset(0, 1) = txtuser And ActiveCell.Offset(0, 2) = txtcontra Then
    'cierra el uf de pass
    Unload Me
    'llama al 2do uf según tipo
    Select Case cbotipo
    Case Is = "director"
       admin.Show
    Case Is = "maestro"
       operativo.Show
    Case Is = "alumno"
       empleado.Show
    End Select
    Exit Sub
End If
'pasa a la fila sgte para seguir buscando
ActiveCell.Offset(1, 0).Select
'repite el bucle
Wend
'si llegó aquí es que no coinciden las claves
MsgBox "Combinación de claves incorrecta, intenta nuevamente."
txtuser = "": txtcontra = ""
cbotipo.ListIndex = -1
cbotipo.SetFocus
End Sub

Sdos.

Elsa

Te recuerdo que el tema sigue abierto... no olvides valorar la respuesta para darlo por cerrado.

Sdos!