Ayuda para desagrupar y filtrar en hojas protegidas

[Cecilia]

Buenas tardes, siento repetirme pero necesito ayuda con esto :)
En un libro tengo varias hojas protegidas, las cuales tienen filtros y
también datos agrupados. Quiero que los usuarios puedan filtrar y
agrupar o desagrupar y para ello tenía en un principio este código VBA
que me facilitaron aquí, que funcionaba, pero tan solo con una hoja:
Private Sub Workbook_Open()
With Worksheets("Hoja1")
.Protect Password:="clave", userinterfaceonly:=True, _
AllowFiltering:=True
.EnableOutlining = True
End with
End sub

Ahora quiero que me funcione en todas las hojas de ese libro (que ya
tienen filtros y datos agrupados), ya planteé esta duda aquí y me
dieron el siguiente:
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
Creo... que al probarla funcionó.. pero ahora que lo quiero aplicar al
libro en cuestión, no soy capaz.
Al abrir el libro se abre el editor VBA y da el siguiente error (que
no se solucionar): " Error de compilación - For sin next "
¿Cómo podría solucionarlo? Os adelanto que no tengo ni idea de VBA.
Muchisimas gracias por vuestra atención y tiempo.
Un saludo
Cecilia

[Abraham]

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

Next
End with
End sub

No lo he probado, pero aaprentemente, tal como te decia el mensaje
solo faltaba el next.

Abraham

[Cecilia]

Hola, ya lo probé y nada, da el mismo error.
Gracias
Cecilia

[Abraham]

Ahora si, jejeje, un error de "ojo":

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
Next
End Sub

Abraham

[Cecilia]

Hola Abraham
Muchiiiisimas gracias!!!
Funciona perfecto !!!
Mil gracias de nuevo
Saludos
Cecilia