Control entrada libro
hola a todos....
quiero hacer un control de entrada en libro excel de tal manera que dependiendo del usuario muestre unas hojas u otras.....
osea si entra admin ve todo si entra pepe solo hoja 1 ,2 y 3
me ayudáis con la macro
gracias
1 respuesta
Respuesta de Luis Mondelo
1
Te dejo un ejemplo que he creado en el siguiente link.
Por favor recuerda finalizar la consulta, esto es importante
muchas gracias....
como quito la cruz de cerrar del formulario....para que no se cierre si no pone la clave...
gracias
Te mando todas las macros del formulario retocadas para hacer eso:
Private Sub CommandButton1_Click()
If TextBox1.Value = "ADMIN9" Then
MsgBox "Bienvenido ADMIN, se mostrarán todas las hojas"
Sheets("hoja2").Visible = True
Sheets("hoja3").Visible = True
Sheets("hoja4").Visible = True
Sheets("hoja5").Visible = True
Sheets("hoja6").Visible = True
Sheets("hoja7").Visible = True
Unload Me
Exit Sub
End If
If TextBox1.Value = "PEPE45" Then
MsgBox "Bienvenido PEPE, se mostrarán las hojas 5,6 y 7"
Sheets("hoja5").Visible = True
Sheets("hoja6").Visible = True
Sheets("hoja7").Visible = True
Unload Me
Exit Sub
End If
MsgBox "contraseña no reconocida, no está autorizado"
TextBox1.Value = ""
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = 0 And TextBox1.Value = "" Then
MsgBox "debe introducir la clave obligatoriamente"
Cancel = 1
End If
End Subrecuerda finalizar
