VBA - protection automatique fermeture Excel + autorisation filtre

Bonjour à tous,

Aujourd'hui, j'utilise la VBA suivante pour protéger mon classeur automatiquement à la fermeture de ce dernier :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim xSheet As Worksheet
Dim xPsw As String
xPsw = ""
For Each xSheet In Worksheets
xSheet.Protect xPsw
Next
End Sub

Je souhaite intégrer une ligne dans cette VBA pour que la fonction "filtrer" s'exécute également afin de filtrer même en mode "protégé".

Si quelqu'un à la solution je suis preneur :)

Belle journée à tous,

E. BAYRAM

Hello,

A tester

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim xSheet As Worksheet
Dim xPsw As String
xPsw = ""
For Each xSheet In Worksheets
xSheet.Protect xPsw, AllowFiltering:=True 
Next
End Sub

C'est top, merci beaucoup de ton retour rapide et de ton aide :)

Bonne soirée,

E.BAYRAM