Ayuda para desagrupar y filtrar en hojas protegidas

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