Macro de protection avec dégroupage de colonnes

Bonjour à tous,

Je suis très très loin de maîtriser les macros (voire je patauge carrément), mais je trouve souvent sur ce forum des petites astuces qui me simplifie la vie. Mais là, je sèche... Peut-être le sujet a t-il été traité, dans ce cas milles excuses, je n'ai pas trouvé...

Voilà mon souci : je souhaite protéger certaines cellules de ma feuille (celles où il y a des formules) avec un mot de passe, et je souhaite que la protection permette aux utilisateurs de grouper/dégrouper les lignes et colonnes (grâce aux +/-) ET de modifier le format des cellules (couleur du text par exemple).

Voici le bout de code que j'ai trouvé :

Private Sub Workbook_Open()

With Worksheets("BS")

.EnableAutoFilter = True

.EnableOutlining = True

.Protect Contents:=True, Password:="888", UserInterfaceOnly:=True

End With

End Sub

Mais impossible d'y intégrer AllowFormattingCells:=True correctement...

Je joins mon fichier exemple au cas où. Dans ce cas, le fichier est censé être protégé à l'ouverture, non ?

Quelqu'un peut-il m'aider ?

Merci Merci !!

En principe, cela fonctionne

Private Sub Workbook_Open()

With Worksheets("BS") .EnableAutoFilter = True
 .EnableOutlining = True
 .Protect Contents:=True, Password:="888", UserInterfaceOnly:=True, AllowFormattingCells:=True
End With

End Sub

Bonjour Thev,

Merci pour ta réponse, malheureusement ça ne fonctionne pas... C'est ce que j'avais essayé mais il y a qqch que je dois mal faire.

Faut-il coller le code dans un module ?

J'ai juste fait Alt+F11 et je l'ai collé. J'ai enregistré et fermé. Et quand j'ai rouvert le fichier, il n'était pas protégé du tout! Y a qqch qui m'échappe...

Une idée ??

Merci

Il faut coller ce module dans le code associé à "ThisWorkbook"

Ah oui, ça fonctionne parfaitement !

C'était tout bête mais j'aurais pu tatonner longtemps ... MERCI !!