Agrupar, desagrupar y filtrar en hojas protegidas

Hola a todos
Tengo un libro con una hoja protegida la cual tiene varios rangos
agrupados y quiero poder desagruparlos y además poder filtrar. Para
ello tengo el siguiente codigo VBA que 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..., tengo el siguiente
código 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


Pero no me funciona ¿Alguien me puede decir que le falta (o sobra)
para que funcione?
Muchas gracias a todos
Un saludo
Cecilia