Habilitar opción enter en listbox para administrador
Es una pregunta para Dante Amor
Hola
Me gustaría que solo en el caso del usuario administrador se pudiera habilitar la opción de "enter", lo que nos llevaría a un registro determinado de la hoja "Titulos" y a visualizar ésta.
1 Respuesta
H o l a:
Te anexo el código
Private Sub ListBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
'Por.Dante Amor
Set h5 = Sheets("USUARIOS")
Set b = h5.Columns("C").Find("X", lookat:=xlWhole)
'
If Not b Is Nothing Then
If UCase(h5.Cells(b.Row, "A")) = "ADMINISTRADOR" Then
If ListBox1.ListIndex = -1 Then Exit Sub
If KeyAscii = 13 Then
Sheets("TITULOS").Visible = -1
Sheets("TITULOS").Select
f = ListBox1.List(ListBox1.ListIndex)
Rows(f).Select
Unload Me
End If
End If
End If
End SubSa lu dos
Hola
Funciona bien... solo hay un problema que es que cuando cierro excel y vuelvo a abrir el libro, la hoja "Titulos" ya no está oculta al inicio.
Supongo que beforeclose habrá que volver a ocultar la hoja con código para que cuando vuelva a abrir excel no esté visible al inicio.
Ya me indicas el código exacto.
Un saludo y gracias de nuevo
Eso es parte del acondicionamiento. Crea una nueva pregunta para esa parte.
Hola
Creo que ya funciona correctamente
Cuando puedas a ver si me puedes mirar una pregunta pendiente:
"Cambiar contraseña en formulario de acceso usuarios en excel"
Un saludo y gracias nuevamente
Ya funciona porque en la última versión que te envié ya lo actualicé, pero tienes pendiente la pregunta.
