XL 2013 VBA : autoriser formatage colonnes & lignes sur plage verrouillée

[BOUQUET]

Bonjour à tous !

Je sollicite vos compétences d'informaticien(ne)s et codeur(se)s en herbe pour un blocage sur du codage VBA.

J'ai utilisé le code ci-dessous dans "ThisWorkbook" - qui me permet notamment d'afficher les données groupées (avec un + sur le côté, permettant d'afficher les cellules groupées) lorsque je verrouille une plage de cellules dans les onglets.

Le truc c'est que je voudrais aussi autoriser le formatage des colonnes/lignes dans ces onglets à cellules verrouilées.
J'ai essayé d'adapter mon code avec les astuces déjà en ligne, mais je n'y arrive pas HELP !
J'ai déjà essayé l'option simple de sélectionner "Format colonnes", "Format cellules" lors du verrouillage des cellules, mais sans succès ...

PS : Je suis (plutôt) débutante en VBA

Merci beaucoup à tous ceux qui prendront le temps de me répondre / m'aider !

Camille, la désespérée

___
Private Sub Workbook_Open()
With Worksheets("Sheet1")
.EnableAutoFilter = True
.EnableOutlining = True
.Protect Contents:=True, Password:="coucou", UserInterfaceOnly:=True
End With
With Worksheets("Sheet2")
.EnableAutoFilter = True
.EnableOutlining = True
.Protect Contents:=True, Password:="coucou", UserInterfaceOnly:=True
End With
End Sub

 

[Papou-net]

Bonjour Camille, et bienvenue sur XLD,

Essaie comme ceci:

Private Sub Workbook_Open()
With Worksheets("Sheet1")
.EnableAutoFilter = True
.EnableOutlining = True
.Protect Contents:=True, Password:="coucou", AllowFormattingColumns:=True, AllowFormattingRows:=True, UserInterfaceOnly:=True
End With
With Worksheets("Sheet2")
.EnableAutoFilter = True
.EnableOutlining = True
.Protect Contents:=True, Password:="coucou", AllowFormattingColumns:=True, AllowFormattingRows:=True, UserInterfaceOnly:=True
End With
End Sub

Cordialement.

 

[BOUQUET]

Bonjour Camille, et bienvenue sur XLD,

Essaie comme ceci:

Private Sub Workbook_Open()
With Worksheets("Sheet1")
.EnableAutoFilter = True
.EnableOutlining = True
.Protect Contents:=True, Password:="coucou", AllowFormattingColumns:=True, AllowFormattingRows:=True, UserInterfaceOnly:=True
End With
With Worksheets("Sheet2")
.EnableAutoFilter = True
.EnableOutlining = True
.Protect Contents:=True, Password:="coucou", AllowFormattingColumns:=True, AllowFormattingRows:=True, UserInterfaceOnly:=True
End With
End Sub

Cordialement.

Papou-Net : MON SAUVEUR ! 😎😎😎
Ça fait à peu près 2 heures que je me casse la tête à trouver la solution - alors qu'il fallait "tout simplement" le mettre à la suite .... 😛😛
Je te remercie MILLES FOIS !!!
🙂🙂🙂🙂🙂😉😉😉😉 😀😀😀😀😀😀😀😀😀😀😀😀😀😀😀😀😀😀😀