excel - 过滤数据的 VBA 检查表

Question

有什么方法可以检查工作表是否有过滤数据(如果有过滤数据，则清除过滤器，否则不执行任何操作)？我这里有这段代码，但我不知道如何编写第二部分:

Sub ProtectAll()

Dim wSheet          As Worksheet

For Each wSheet In Worksheets

With wSheet
If .AutoFilterMode Then
            .ShowAllData
            .Cells.Locked = True
            .Cells.FormulaHidden = False
           '.Range(wSheet.Cells(12, 1), wSheet.Cells(12, 18)).AutoFilter
           '.Protect Password:=Pwd, AllowFiltering:=True

ElseIf ??? Then
End If
End With

Next wSheet
End Sub

Answer 1

此代码从 ActiveSheet 中删除所有自动筛选器

ActiveSheet.Autofilter.Range.Autofilter

之后，您可以通过定义适当的范围来重置过滤器(未选择条件)

ActiveSheet.Range("A1:B1").Autofilter