Activer le filtre auto sur feuilles protégées

[criscris11]

Bonjour à tous,
J'aimerais rajouter à ce code

Sub ProtectionToutesLesFeuillesMDP()
Application.ScreenUpdating = False
Dim Feuil As Worksheet
For Each Feuil In Workbooks("Matrice BDD BCL.xls").Sheets
Feuil.Protect Password:="chris"
Next Feuil
End Sub

la possibilité d'utiliser le filtre automatique sur mes feuilles protégées.
Je sais qu'il faut utiliser

AllowFiltering:=True

mais je ne sais pas comment l'intégrer dans mon code.
Merci à ceux qui voudront bien répondre.

 

[Guest]

Re : Activer le filtre auto sur feuilles protégées

Hi Chris²11😀

Sub ProtectionToutesLesFeuillesMDP()
Application.ScreenUpdating = False
Dim Feuil As Worksheet
For Each Feuil In Workbooks("Matrice BDD BCL.xls").Sheets
Feuil.Protect Password:="chris", AllowFiltering:=True
Next Feuil
End Sub

Pour la syntaxe c'est juste mais pour l'efficacité, je ne sais pas. donc à tester.

Alu l'ami

[Edit] Je viens de tester chez moi xl2002 cela semble fonctionner

 

[criscris11]

Re : Activer le filtre auto sur feuilles protégées

Salut Hasco,
Testé et approuvé 😉 sous 2003.
Merci à toi et bonne fin de journée.