protection et filtre automatiques

[criscris11]

Bonjour le forum,
Je viens en cette dernière journée de l'année vous demander un petit coup de main.
Ma macro protège toutes les feuilles de mon classeur à l'ouverture :

Sub ProtectionToutesLesFeuillesMDP()
Application.ScreenUpdating = False
Dim Feuil As Worksheet
For Each Feuil In Sheets
Feuil.Protect Password:='chris' '
Next Feuil
End Sub

mais je voudrais en plus que l'on puisse garder cette protection et utiliser les filtres automatiques : j'ai fait une recherche sur le forum et j'ai trouvé des posts qui en parlent mais aucuns qui soient adaptés à ma macro où alors je n'ai pas su la modifier.
Quelqu'un aurait-t'il la solution miracle ? Merci et joyeux réveillon à tous.
@ demain pour vous souhaiter la bonne année.

 

[jacktati]

Salut criscris11

Pour utiliser le filtre sur une feuille protégée :

Dans le module ThisWorkbook :

Private Sub Workbook_Open()
Feuil1.EnableAutoFilter = True

Feuil1.Protect Contents:=True, UserInterfaceOnly:=True
End Sub

Bonne année !
@+

 

[criscris11]

Bonsoir,
Merci pour ta réponse mais je n'arrive pas à adapter le code à ma macro : je vais continuer à chercher.
Et à mon tour je te souhaite une bonne année 2006 ainsi qu'à tout le forum.
@+.