Ayuda para agrupar-desagrupar y filtrar en hoja protegida.

Tengo... una hoja protegida... varios rangos agrupados y quiero poder desagruparlos y ademas poder filtrar.
Para ello... el siguiente codigo VBA... funciona correctamente:
Private Sub Workbook_Open()
With Worksheets("Hoja1")
.Protect Password:="clave", userinterfaceonly:=True, _
AllowFiltering:=True
.EnableOutlining = True
End With
End Sub
Ahora quiero que esto me funcione en todas las hojas del mismo libro, no solo en la hoja1, tambien en hoja2, hoja3
el siguiente codigo VBA:
Private Sub Workbook_Open()
Dim objHoja As WorkSheet
For Each objHoja In ThisWorkbook.Sheets
With objHoja
.Protect Password:="clave", userinterfaceonly:=True, _
AllowFiltering:=True
.EnableOutlining = True
End With
End Sub

hola, Cecilia !

[como] no indicas cual es la 'falla' o por que es que no te funciona con varias hojas -?-
[supongo que] probablemente al momento de aplicar las protecciones [a las hojas donde no funciona]
... no tienen ya habilitado/asignado/operante/... ni los rangos CON autofiltros ni los rangos 'agrupados' -?-

los codigos que expones [solo] 'permiten' el uso de tales caracteristicas... NO su 'creacion' -?-
a menos que tambien por codigo les establezcas los rangos para los autofiltros y/o esquemas agrupados -?-

comentas [si hubiera] algun detalle diferente de los supuestos anteriores ?
saludos,
hector.

__ la consulta original __



> Tengo... una hoja protegida... varios rangos agrupados y quiero poder desagruparlos y ademas poder filtrar.
> Para ello... el siguiente codigo VBA... funciona correctamente:
> Private Sub Workbook_Open()
> With Worksheets("Hoja1")
> .Protect Password:="clave", userinterfaceonly:=True, _
> AllowFiltering:=True
> .EnableOutlining = True
> End With
> End Sub
> Ahora quiero que esto me funcione en todas las hojas del mismo libro, no solo en la hoja1, tambien en hoja2, hoja3
> el siguiente codigo VBA:
> Private Sub Workbook_Open()
> Dim objHoja As WorkSheet
> For Each objHoja In ThisWorkbook.Sheets
> With objHoja
> .Protect Password:="clave", userinterfaceonly:=True, _
> AllowFiltering:=True
> .EnableOutlining = True
> End With
> End SubPero no me funciona Alguien me puede decir que le falta (o sobra) para que funcione?- Ocultar texto de la cita -- Mostrar texto de la cita -