Proteger varias hojas

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

Excelente KL y muchas gracias
Funcionó muy bien, ahora la consulta es que este VBA, la puede ejecutar la
persona que tiene el archivo, como se puede hacer para que éste no lo vea. Se
entiende?
Quizás tenga q borrar el código una vez ejecutado ?
Corrección: Para ejecutar la macro es "Alt+F8"

Raúl


"KL" escribió:

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

Usa un inputbox para pedir la clave antes de ejecutar el codigo

Sub DesprotegerTodas()
Dim Hoja As Worksheet
Dim clave As String

Clave=InputBox("Escriba la clave:")
For Each Hoja In ThisWorkbook.Worksheets
Hoja.Unprotect Clave
Next Hoja
End Sub

Excelente KL y muchas gracias
Funcionó muy bien, ahora la consulta es que este VBA, la puede ejecutar la
persona que tiene el archivo, como se puede hacer para que éste no lo vea. Se
entiende?
Quizás tenga q borrar el código una vez ejecutado ?
Corrección: Para ejecutar la macro es "Alt+F8"

Raúl


"KL" escribió:

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

Hola Raul,

Yo lo que haria es asignar los macros a unos botones y protejer el proyecto VBA. Aunque no sea demasiado seguro, algo es algo. En
todo caso, si alguien quiere desproteger tus hojas o la estructura de libro es cuestion de segundos y gratis, y para desproteger un
proyecto VBA tambien son segundos, pero ahbria que pagar unos 45-50 dolares USA.

Saludos,
KL


"Raúl Z." wrote in message news:

Excelente KL y muchas gracias
Funcionó muy bien, ahora la consulta es que este VBA, la puede ejecutar la
persona que tiene el archivo, como se puede hacer para que éste no lo vea. Se
entiende?
Quizás tenga q borrar el código una vez ejecutado ?
Corrección: Para ejecutar la macro es "Alt+F8"

Raúl


"KL" escribió:

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

Gracias Manuel, estube probando con lo tuyo, aunque no me da toda la segurida
q pretendo me funcionó bien.
Gracias por tu atención

Raúl Z.

"Manuel Romero" escribió:

Usa un inputbox para pedir la clave antes de ejecutar el codigo

Sub DesprotegerTodas()
Dim Hoja As Worksheet
Dim clave As String

Clave=InputBox("Escriba la clave:")
For Each Hoja In ThisWorkbook.Worksheets
Hoja.Unprotect Clave
Next Hoja
End Sub

> Excelente KL y muchas gracias
> Funcionó muy bien, ahora la consulta es que este VBA, la puede ejecutar la
> persona que tiene el archivo, como se puede hacer para que éste no lo vea. Se
> entiende?
> Quizás tenga q borrar el código una vez ejecutado ?
> Corrección: Para ejecutar la macro es "Alt+F8"
>
> Raúl
>
>
> "KL" escribió:
>
>> 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
>>
>>