¿Qué acciones según usuario ingresado?

Para: Elsa

Estoy tratando de realizar unos formularios en excel el cual tenga 3 diferentes tipos de usuarios con distintas actividades

1 respuesta

Respuesta
1

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!

¡Gracias! Elsa fue muy buena tu ayuda.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas