Proteger 35 hojas por macro

09/09/2007 - 22:38 por Doors | Informe spam
saludos!!

Amigos, una consulta, tengo 35 hojas las cuales requiero proteger, intente
darle proteger libro, pero no me protege las hojas, habra alguna manera de
protegerlas todas por medio de una macro y no una por una ??

GRACIAS!!! por la ayuda!!

Preguntas similare

Leer las respuestas

#1 Héctor Miguel
10/09/2007 - 04:36 | Informe spam
hola, !

... tengo 35 hojas las cuales requiero proteger, intente darle proteger libro, pero no me protege las hojas
habra alguna manera de protegerlas todas por medio de una macro y no una por una ??



1) hay algunos metodos que puedes utilizar con un *grupo* de hojas [p.e.]

a) imprimir un grupo de hojas que no incluyan a la hoja activa y despues *volver* a la hoja activa:

Application.ScreenUpdating = False
With ActiveSheet
Worksheets(Array("hoja1", "hoja7", "hoja25")).Select
ActiveWindow.SelectedSheets.PrintOut
.Select
End With

b) copiar un grupo de hojas a un lirbro nuevo:

Worksheets(Array("hoja1", "hoja7", "hoja25")).Copy

c) ocultar un grupo de hojas:

Worksheets(Array("hoja1", "hoja7", "hoja25")).Visible = False

2) PERO... otros metodos [como el Protect/Unprotect] SOLO SON APLICABLES a un solo objeto *hoja* :-((
o sea, si quieres des/re/proteger un grupo de hojas... tendra que *proceder* en cada una del grupo [p.e.]

Dim Hoja As Worksheet
For Each Hoja In Worksheets(Array("hoja1", "hoja7", "hoja25"))
Hoja.Protect PassWord:="123", UserInterfaceOnly:=True
Next

saludos,
hector.
Respuesta Responder a este mensaje
#2 Doors
10/09/2007 - 14:40 | Informe spam
EXCELENTE HECTOR!!!!! gracias por tus acertadas respuestas!!!!!!

"Héctor Miguel" wrote:

hola, !

> ... tengo 35 hojas las cuales requiero proteger, intente darle proteger libro, pero no me protege las hojas
> habra alguna manera de protegerlas todas por medio de una macro y no una por una ??

1) hay algunos metodos que puedes utilizar con un *grupo* de hojas [p.e.]

a) imprimir un grupo de hojas que no incluyan a la hoja activa y despues *volver* a la hoja activa:

Application.ScreenUpdating = False
With ActiveSheet
Worksheets(Array("hoja1", "hoja7", "hoja25")).Select
ActiveWindow.SelectedSheets.PrintOut
.Select
End With

b) copiar un grupo de hojas a un lirbro nuevo:

Worksheets(Array("hoja1", "hoja7", "hoja25")).Copy

c) ocultar un grupo de hojas:

Worksheets(Array("hoja1", "hoja7", "hoja25")).Visible = False

2) PERO... otros metodos [como el Protect/Unprotect] SOLO SON APLICABLES a un solo objeto *hoja* :-((
o sea, si quieres des/re/proteger un grupo de hojas... tendra que *proceder* en cada una del grupo [p.e.]

Dim Hoja As Worksheet
For Each Hoja In Worksheets(Array("hoja1", "hoja7", "hoja25"))
Hoja.Protect PassWord:="123", UserInterfaceOnly:=True
Next

saludos,
hector.



email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida