Control entrada a 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.....
me ayudáis con la macro
gracias
1 Respuesta
Hay muchas maneras de hacer una macro para esto dependiendo de la cantidad de hojas (con uso de matriz, uso de Select case, etc) pero aquí vá un ejemplo sencillo para adaptar.
Private Sub Workbook_Open()
'x Elsamatilde
'oculto cada hoja para que no se pueda mostrar desde el menú Formato
Sheets("Hoja2").Visible = xlVeryHidden
Sheets("Hoja3").Visible = xlVeryHidden
'ahora solicito la clave
miClave = InputBox("Ingresa tu clave")
'según lo ingresado se muestra 1 u otra hoja
If miClave = "Smifer" Then
Sheets("Hoja2").Visible = True
ElseIf miClave = "juanjo" Then
Sheets("Hoja3").Visible = True
Else
MsgBox "Clave inválida"
End If
End Sub
Como las hojas están ocultas si no ingresan la clave correcta no se verá + que la portada.
Como ante las claves correctas se fueron mostrando hojas tendrás luego que ocultarlas nuevamente, repitiendo las líneas en negrita tanto en el evento Save como en el Close del objeto ThisWorkbook
Sdos y no dejes la consulta sin finalizar si el tema quedó resuelto.
ok muchas gracias ...algo parecido estoy haciendo ...pero pensaba algo mas enrevesado como ademas de pedir la clave ver que exista un fichero en c:mis datos y si no esta no abre o algo parecido
muchas gracias
Si, esa consulta también la ví, pero ya te respondí a 2, a medida que las vayas finalizando seguiré con el resto.
Esta respuesta responde cabalmente a tu consulta planteada:
De tal manera que dependiendo del usuario muestre unas hojas u otras.....
Sdos
Elsa
