nat54
XLDnaute Barbatruc
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
Merci de votre aide,
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
Code:
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,