Hello José, Mi, Le Forum
J'ai déjà eu le problème, il existe aussi pour les Filtres Automatiques. Pour les Plans c'est ceci :
Pour les Plans :
Private Sub Workbook_Open()
With Worksheets("Sheet1")
.EnableOutlining = True
.Protect UserInterfaceOnly:=True
End With
End Sub
Pour les Filtres Automatiques :
Private Sub Workbook_Open()
With Worksheets("Sheet1")
.EnableAutoFilter = True
.Protect UserInterfaceOnly:=True
End With
End Sub
Et comme tu as peut-être un peu survolé toutes ces longues explications que José a gentillement mises en lien plus haut...Ces paramètres doivent être réinitialisé à chaque ouverture du classeur... (en effet comme certains autres paramètres (eg: ScrollArea), le fait de fermer et re-ouvrir le classeur fait perdre le "UserInterfaceOnly" et la feuille est à nouveau protégée "normalement")
C'est pourquoi le code est placé dans la macro évènementielle du Private Module "ThisWorkBook" en auto exécution à chaque ouverture du classeur.
Voilà José, j'espère que tu seras bien rentré quand même
Bonne Soirée
@+Thierry