Macro qui enlève les filtres automatiquement à la fermeture

Bonjour,

Ce serait apprécié de m'aider à trouver une macro qui enlève les filtres automatiquement de mon fichier Excel à la fermeture de celui-ci.

Actuellement, j'ai pu avoir sur le forum la macro avec un bouton radio tel qu'en cliquant sur le bouton les filtres sont enlevés. Mais, j'aimerais svp que ce soit à la fermeture du fichier.

J'ajoute le fichier en question. Vous pouvez le modifier et me le retourner svp

Merci d'avance,

cam

bonjour,

un proposition dans le fichier joint

D'avance, merci pour ta prompte réaction.

Tout marche à merveille, sauf qu'un message d'erreur apparait lors de la fermeture du fichier.

Voici les observations faites dans le fichier ci-joint

pas de fichier

Voila le fichier.

Merci

Bonjour,

je n'ai pas de message d'erreur avec ce fichier quand je le ferme. j'en ai bien un quand j'utilise ton bouton et s'il ni a pas de filtre actif.

voici une proposition de correction de ta macro liée au bouton

Sub aa()
On Error Resume Next
ActiveSheet.ShowAllData
End Sub

Merci.

Mais, je souhaiterais ne pas avoir de bouton. Que les filtres se désactivent automatiquement à la fermeture du fichier.

De plus, je viens de protéger le feuille 1 avec le mot de passe 1234. Comment je le rajoute dans le scenario afin que la macro déverrouille la feuille, exécute le code et remet le mot de passe à la fin.

Cdt,

Cam

bonjour,

le bouton c'est toi qui l'a mis, je te laisse l'enlever et le code associé

voici pour la macro exécutée à la fermeture du fichier sur des feuilles protégées.

Option Explicit

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim ws
    For Each ws In Worksheets
        ws.Unprotect "1234"
        On Error Resume Next
        ws.ShowAllData
        ws.Protect "1234"
    Next ws
End Sub

Bonjour,

Voici le fichier que je veux protéger. La feuille ENTREE est protégée. Mot de passe 1234.

Comment affecter une macro comme celle qui enlevé les filtres automatiquement à la fermeture d'un fichier comme celui-ci si je n'ai pas de bouton.

Merci

Cam

Bonsoir,

Le mot de passe n'est pas 1234.

Cdlt.

Bonjour,

Personnellement je le mettrai plutôt à l'ouverture pour éviter une nouvelle demande d'enregistrement si on vient juste de le faire.

eric

Pardon c'est 1234

Prendre ce fichier svp. le mot de passe est 1234.

Juste m'aider à y ajouter une macro qui enlève les filtres, que ce soit à l'ouverture ou la fermeture.

Merci BCP pour votre aide.

Cam

Prendre ce fichier svp. le mot de passe est 1234.

Juste m'aider à y ajouter une macro qui enlève les filtres, que ce soit à l'ouverture ou la fermeture.

Merci BCP pour votre aide.

Cam

Bonjour,

Essaie ainsi .

Cdlt.

Option Explicit

Private Sub Workbook_Open()
Dim ws As Worksheet

    Application.ScreenUpdating = False
    For Each ws In ThisWorkbook.Worksheets
        If ws.AutoFilter.FilterMode Then ws.AutoFilter.ShowAllData
    Next ws

End Sub