Désactiver les filtres à la sortie d'excel Fermé

Question

Bonjour,
J'ai un tableau excel que je remplis avec un formulaire et tout marche bien. Mais j'ais souvent besoin de filtrer des données et j'aimerais que à la fermeture d'excel  les filtres se désactives automatiquement si possible. Merci de m'aider dans mon problème.

Le Pingou · Answer

Bonjour,
En ajoutant la procédure qui suit dans ThisWorkbook.
Private Sub Workbook_BeforeClose(Cancel As Boolean)If Worksheets(1).AutoFilterMode = True Then    Selection.AutoFilterEnd IfEnd Sub

Bourrique66 · Answer

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

eriiic · Answer

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