在受保护的工作表上使用筛选

Question

我正在尝试对标题行使用过滤器，以允许用户让他们根据过滤器选择数据。但最终我已经保护了我的vba代码中的整个工作表，如下所示，不要让用户搞砸或更改数据。

有关如何启用过滤器并仅取消保护数据工作表的第一行的任何建议？

 Worksheets("Data").Protect Password:="125393"

        Application.ScreenUpdating = True
        Application.DisplayAlerts = True

Answer 1

试试这个：

With ActiveSheet
    .Protect Password:="125393", AllowFiltering:=True
    .EnableSelection = xlUnlockedCells
End With

希望它有所帮助！