¿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
Respuesta de Elsa Matilde
1
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 SubSdos.
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.
