Proteger con contraseña varias hojas

Que tal Esteban ¡

La siguiente macro resuelve tu problema, solo debes indicarle cuántas hojas
van a ser y también especificar el Password. Te recomiendo ejecutarla desde
la primera hoja.

Sub ponerPassVariasHojas()
Dim numero As Integer
On Error GoTo fin
'Ingresas el número de hojas a poner password
numero = InputBox("Cuántas hojas son?", "Password en varias hojas")
'Podrás realizar esto ó desde el código ingresar el password.
pass = InputBox("Escribe la contraseña para tus hojas", "Password en varias
hojas")
For i = 1 To numero
'Establece la contraseña en propiedad password:=""
ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True, _
Password:=pass
'Cambia a la siguiente hoja
ActiveSheet.Next.Select
Next
fin:
End Sub



Nota:
La macro tiene un error, por lo mismo inserté la línea 'On Error GoTo fin'.

<!>
Tec. Inf. Sergio A Campos H

¿¿ Deseas colaborar en mi sitio ??, entra y envíame tus sugerencias de
contenido, ! se acepta de todo tipo !
http://mx.geocities.com/sergioacamposh
http://sergioacamposh.mundopc.net
<!>


"Esteban Dido" escribió en el mensaje
news:

Necesito proteger con contraseña un libro que tiene 18 hojas. ¿Cómo hago
para no tener que escribir 36 veces la misma contraseña?. Si selecciono
las
18 hojas la opcion proteger hoja se deshabilita.
Gracias

Saludos

Gracias, Sergio.
En todo caso, el error se produce cuando se indican más hojas de las que
realmente son.

Saludos
"Sergio A Campos H" escribió en el
mensaje news:

Que tal Esteban ¡

La siguiente macro resuelve tu problema, solo debes indicarle cuántas

hojas

van a ser y también especificar el Password. Te recomiendo ejecutarla

desde

la primera hoja.

Sub ponerPassVariasHojas()
Dim numero As Integer
On Error GoTo fin
'Ingresas el número de hojas a poner password
numero = InputBox("Cuántas hojas son?", "Password en varias hojas")
'Podrás realizar esto ó desde el código ingresar el password.
pass = InputBox("Escribe la contraseña para tus hojas", "Password en

varias

hojas")
For i = 1 To numero
'Establece la contraseña en propiedad password:=""
ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True, _
Password:=pass
'Cambia a la siguiente hoja
ActiveSheet.Next.Select
Next
fin:
End Sub



Nota:
La macro tiene un error, por lo mismo inserté la línea 'On Error GoTo

fin'.

<!>
Tec. Inf. Sergio A Campos H

¿¿ Deseas colaborar en mi sitio ??, entra y envíame tus sugerencias de
contenido, ! se acepta de todo tipo !
http://mx.geocities.com/sergioacamposh
http://sergioacamposh.mundopc.net
<!>


"Esteban Dido" escribió en el mensaje
news:
> Necesito proteger con contraseña un libro que tiene 18 hojas. ¿Cómo hago
> para no tener que escribir 36 veces la misma contraseña?. Si selecciono
> las
> 18 hojas la opcion proteger hoja se deshabilita.
> Gracias
>
> Saludos
>
>