Grouper/dissocier sur ongletS protégéS

[nat54]

Bonjour,

J'ai trouvé ce code en farfouillant à droite à gauche sur le net mais je n'arrive pas à l'adapter.
Je souhaite que l'action grouper/dissocier soit possible sur des onglets protégés par macro, au choix :
- soit sur tous les onglets (facilite la gestion)
- soit sur les x premiers onglets des fichiers, ils sont tous nommés par une succession de 4 chiffres

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

Merci de votre aide,