Grouper/dissocier des feuilles protégées

Bonjour,

J'ai parcourus les sujets pouvant répondre à mon problème mais toutes mes tentatives s'avèrent infructueuses.
En fait, je voudrai pouvoir grouper/dissocier des colonnes sur des feuilles protégées (pour éviter la suppression de formules).

J'ai saisie cette commande mais, lors de l'ouverture, comme la feuille est protégée, grouper/dissocier devient impossible :

Private Sub Workbook_Open()
With Worksheets("Feuil1")
.EnableAutoFilter = True
.EnableOutlining = True
.Protect Contents:=True, Password:="Ecole", UserInterfaceOnly:=True
End With
End With
End Sub

c'est la première fois que j'essaie de saisir un code donc, il est possible que j'ai simplement oublié de cocher une case ou activer un élément.

Je vous remercie d'avance pour votre aide.