Proteger 35 hojas por macro

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.