Désactiver les filtres à la sortie d'excel

Bonjour,

Private Sub Workbook_Open()
    Dim sh As Worksheet
    For Each sh In Worksheets
    With sh
        sh.Unprotect
        If .AutoFilterMode And .FilterMode Then .ShowAllData
        sh.Protect
    End With
    Next sh
End Sub 

Supprime et remet la ligne 1 de la 1ère feuille qu'excel ne plante pas.
eric

Bonjour,
En ajoutant la procédure qui suit dans ThisWorkbook.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Worksheets(1).AutoFilterMode = True Then
    Selection.AutoFilter
End If
End Sub

Bonjour,
Désolé pour la réponse tardive mais plus d’internet. Ta solution fonctionne parfaitement sauf qu’elle supprime carrément les filtres alors que j’aimerais simplement les désactiver à la fermeture d’Excel. Je précise que les feuilles seront protégées. Merci de t’intéresser à mon problème.
Je joins un fichier non protégé.
http://www.cjoint.com/data3/FBniti8HTZa_toutoune-Essai1.xlsm