如何用VBA在关闭Excel前清除筛选并保存？代码失效排查

我想编写一段VBA代码，实现在关闭Excel文件前清除所有筛选并显示全部数据，然后保存文件。参考相关内容后，我使用了Workbook_BeforeClose(Cancel As Boolean)事件，但这个子过程完全没执行。我试了两种写法：

方法1 #

Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Call FilterDataWhenClosing
End Sub

在单独的模块中：

Sub FilterDataWhenClosing()
    If ActiveSheet.AutoFilterMode Then ActiveSheet.ShowAllData    
    ActiveWorkbook.Save
End Sub

方法2 #

Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    If ActiveSheet.AutoFilterMode Then ActiveSheet.ShowAllData
    Range("B5").Select
    ActiveWorkbook.Save
End Sub

两种方法都没用，筛选数据后关闭文件，再次打开时筛选依然存在。我需要确保关闭前清除筛选并保存，请问问题出在哪？有没有更好的实现方式？

问题根源 #

• 事件代码位置错误：Workbook_BeforeClose是工作簿专属事件，必须写在ThisWorkbook模块中。如果放在普通模块，事件根本不会触发。
• 仅处理活动工作表：原代码只清除当前激活工作表的筛选，若文件内有多个带筛选的工作表，其他表的筛选会保留。
• 未处理表格筛选：如果工作表里用了Excel表格（ListObject）的筛选，AutoFilterMode无法识别这种筛选状态，导致筛选没被清除。

优化后的实现代码 #

直接在ThisWorkbook模块中写入以下代码：

Option Explicit

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim ws As Worksheet
    Dim tbl As ListObject
    
    ' 遍历所有工作表，清除所有类型的筛选
    For Each ws In ThisWorkbook.Worksheets
        ' 清除普通单元格区域的筛选
        If ws.AutoFilterMode Then
            ws.AutoFilter.ShowAllData
        End If
        ' 清除表格（ListObject）的筛选
        For Each tbl In ws.ListObjects
            If tbl.AutoFilter.FilterMode Then
                tbl.AutoFilter.ShowAllData
            End If
        Next tbl
    Next ws
    
    ' 保存当前工作簿
    ThisWorkbook.Save
End Sub

注意事项 #

• 保存为宏启用格式：将文件保存为.xlsm或.xlsb格式，否则宏会被禁用，事件代码无法执行。
• 避免依赖活动对象：不要用ActiveSheet、ActiveWorkbook这类不确定对象，改用ThisWorkbook明确指向当前文件，遍历所有工作表确保无遗漏。

内容的提问来源于stack exchange，提问作者Shashank Shet