在保护的工作表上使用自动筛选功能

在保护工作表对话框中，提供了允许“使用自动筛选”的功能。相应的在保护工作表的Protect方法中，也存在一个对应的AllowFiltering参数。

Protect(Password, DrawingObjects, Contents, Scenarios, UserInterfaceOnly, AllowFormattingCells, AllowFormattingColumns, AllowFormattingRows, AllowInsertingColumns, AllowInsertingRows, AllowInsertingHyperlinks, AllowDeletingColumns, AllowDeletingRows, AllowSorting, AllowFiltering, AllowUsingPivotTables)

       但是事实上，如果需要在保护的工作表上使用自动筛选功能，需保证工作表处于自功筛选模式（必须先在工作表中显示自动筛选下拉箭头）。

以下代码允许在保护工作表后使用自动筛选功能。

Sub ProtectWithFiltering()
        With ActiveSheet
                If .AutoFilterMode = False Then   '如果工作表不处于自动筛选模式
                        .Range("A1").AutoFilter            '在指定区域切换自动筛选下拉箭头
                End If
               .Protect AllowFiltering:=True         '保护工作表并允许使用自动筛选功能
       End With
End Sub