保存在Excel中使用VBA工作表之前重置过滤

发表于： 2020年10月22日 2020年11月12日
标签： general-topics-in-vba

问题：

保存工作簿时，请重置所有工作表中的所有筛选条件。

答案：

在此工作簿模块中插入以下代码。

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean,Cancel As Boolean)

Dim wks As Worksheet

For Each wks In Worksheets

If wks.FilterMode = True Then

wks.ShowAllData

End If

Next wks

End Sub