Workbook_BeforeClose fonctionne pas

Bonjour à tous,

Si quelqu'un peut donner son avis, après différents essais je n'arrive pas à faire en sorte d’exécuter

le code suivant avec "Workbook_BeforeClose"

Sub tout()

On Error Resume Next

ActiveSheet.ShowAllData

End Sub

L'objectif est de libérer les filtres actifs (ou non) a la fermeture du classeur pour tous les onglets, enregistrer

le classeur avec un message box "enregistrement effectué".

Je joins un fichier,

Merci beaucoup !

Bonjour

Procédure (regarde l'entête) à placer dans le module ThisWorkbook

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Ws As Worksheet

  On Error Resume Next
  For Each Ws In Sheets
    Ws.ShowAllData
  Next Ws
End Sub

Bonjour et bonne année,

La procédure doit être copié dans le module 'ThisWorkbook'.

A tester.

Option Explicit

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim ws As Worksheet

    Application.ScreenUpdating = False

    For Each ws In ThisWorkbook.Worksheets
        If ws.FilterMode Then ws.ShowAllData
    Next

    ThisWorkbook.Save

End Sub