Desproteger automaticamente varias hojas

Por supuesto que es posible hacerlo.

Necesitas grabar una macro para lograrlo. Vete al menu herramientas -->
macro --> Grabar nueva macro
En cuanto este gravando tienes que hacer lo que quieres manualmente y cuando
termines pues paras la grabacion de la macro.

Posteriormente solo tendras que crear un botón mediante "Barra de
herramientas de formulario" --> Botón
Excel te preguntara si deseas asignarle una macro al boton y tu deberas
asignarle la macro grabada que si no me equivoco se llamará macro1.
No sé si me explique bien pero si tienes dudas plantealas. Un saludo

"Saber que se sabe lo que se sabe y que no se sabe lo que no se sabe; he
aquí el verdadero saber." Confucio.


"QuePacha" escribió:

Buenos días,

mi necesidad es la siguiente. Tengo un fichero (libro) con varias hojas.
Quiero proteger y ocultar todas menos 2. Pero claro, luego me gustaría poder
desproteger y visualizar todas de una forma facil para quién tenga la
contraseña. Me imagino que la única forma será hacerlo por programación, si
es posible, poniendo por ejemplo un botón que al pulsarlo pregunte la
contraseña, y desprotega y haga aparecer las pestañas de todas las que
estaban escondidas.

¿Es posible hacerlo entonces?

Gracias y un Saludo.
José Manuel

hola, José Manuel !

... un fichero (libro) con varias hojas. Quiero proteger y ocultar todas menos 2.
... luego me gustaria poder desproteger y visualizar todas de una forma facil para quien tenga la contrase#a.
... poniendo por ejemplo un boton que... pregunte la contrase#a, y desprotega y haga aparecer... las que estaban escondidas.

1) si necesitas 'alternar' entre: -> proteger/ocultar <-> des-proteger/mostrar...
creo que no tiene 'sentido' el proteger <-> des-proteger -?-
[probablemente] seria 'suficiente' con: -> ocultar <-> mostrar -?- ;)
si requieres lo de la des/re/proteccion... quita el apostrofo al inicio de la linea de codigo 'correspondiente' :))

2) tambien haria falta conocer como/cuando [o en que momento] 'debieran' volverse a ocultar [y re/proteger ?]

3) asumiendo que el numero de hojas en el libro pudiera ser 'variable', prueba con algo +/- como el ejemplo siguiente:
[p.e. una macro asignada a algun boton en alguna hoja de libro con la macro]

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

en un modulo de codigo 'normal' ==Dim Hoja As Worksheet

Sub Mostrar_hojas_ocultas()
If MsgBox("Indica la clave por favor...", "") <> "Abracadabra" Then Exit Sub
For Each Hoja In Worksheets
Select Case Hoja.Name
Case "hoja1", "hoja3" ' <= estas no se estan 'afectado' :) '
Case Else
' Hoja.Protect PassWord:="aBc"
Hoja.Visible = True
End Select
Next
End Sub

Sub Ocultar_hojas()
For Each Hoja In Worksheets
Select Case Hoja.Name
Case "hoja1", "hoja3" ' <= estas no se estan 'afectado' :) '
Case Else
' Hoja.Unprotect PassWord:="aBc"
Hoja.Visible = xlSheetVeryHidden
End Select
Next
End Sub