BOUQUET
XLDnaute Nouveau
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
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