Proteger varias hojas

26/01/2006 - 12:58 por Raúl Z. | Informe spam
Hola a toda la comunidad:
Tengo un libro con muchas hojas y las tengo a todas protegidas (siempre el
mismo password) a veces tengo que hacer alguna modificación y tengo que
desproteger una a una todas las hojas, hay alguna forma de protegerlas a
todas en un solo paso? Gracias.

Raúl
Gualeguay (ER) - Argentina
 

Leer las respuestas

#1 KL
26/01/2006 - 14:26 | Informe spam
Hola Raul,

Si, se puede hacer por codigo VBA. Para ello...

1) Haz clic-derecho sobre el pequeno logo de Excel a la izquierda del menu Archivo
2) Elige la opcion 'Ver Codigo' para abrir el editor VBA.
3) Una vez en el Editor VBA, ve al menu Insertar>Modulo...
4) En la ventana mas grande a la derecha pega el codigo que te pongo a continuacion:

'--Inicio del codigo--
Const Clave = "abracadabra" ' cambia tu clave aqui

Sub ProtegerTodas()
Dim Hoja As Worksheet
For Each Hoja In ThisWorkbook.Worksheets
Hoja.Protect Clave
Next Hoja
End Sub

Sub DesprotegerTodas()
Dim Hoja As Worksheet
For Each Hoja In ThisWorkbook.Worksheets
Hoja.Unprotect Clave
Next Hoja
End Sub
'--Fin del codigo--

5) Pulsa Alt+F11 para volver a la hoja.
6) Ahora para llamar el macro solo tienes que pulsar las teclas Ctrl+F8 y hacer doble clic sobre "ProtegerTodas" (tambien podrias
asignar el codigo a un boton)
7) El codigo llamado "DesprotegerTodas" servira para hacer lo contrario y se ejecuta de la misma manera.

Saludos,
KL


"Raúl Z." wrote in message news:
Hola a toda la comunidad:
Tengo un libro con muchas hojas y las tengo a todas protegidas (siempre el
mismo password) a veces tengo que hacer alguna modificación y tengo que
desproteger una a una todas las hojas, hay alguna forma de protegerlas a
todas en un solo paso? Gracias.

Raúl
Gualeguay (ER) - Argentina

Preguntas similares