如何在 Excel 2013 中对受保护的工作表启用排序

Posted 2023-02-25

【中文标题】如何在 Excel 2013 中对受保护的工作表启用排序

【英文标题】：How to enable sorting on a protected worksheet in Excel 2013

【发布时间】：2017-11-10 02:06:28

【问题描述】：

您好，我是 VBA 新手，但之前在这里找到了很多查询的答案，但有一个问题我无法解决。我已设法启用大纲和过滤，但无法正确获取代码以启用对工作表中未受保护的单元格的排序。到目前为止，我所拥有的代码完全符合要求，是：

Private Sub Workbook_Open()

    For Each ws In Sheets
        With ws
            .Unprotect Password:="password"

            .Protect Password:="password", UserInterfaceOnly:=True

            .EnableOutlining = True
            .EnableAutoFilter = True
        End With
    Next ws

End Sub

我尝试过EnableSort = True、EnableSorting = True，但都不起作用。代码在 Visual Basic 中，而不是宏（我希望这是有道理的）

任何帮助将不胜感激

【问题讨论】：

如有疑问，请录制宏并修改它:)

你不需要先.Unprotect - 只需.Protect Contents:=True, AllowFiltering:=True, AllowSorting:=True。请注意，如果 .Protect 在没有先解除保护的情况下完成，则必须声明 Contents:=True（至少在某些情况下，请参阅 this post）。请注意，参数AllowSorting:=True 仅启用对未锁定单元格的排序（请参阅documentation）；包含排序区域标题的单元格也需要解锁。

【参考方案1】：

试试：

AllowSorting:=True, AllowFiltering:=True

【讨论】：

抱歉没有看到你的回复.. 删除了我的帖子 :)

不幸的是，如果我尝试将其添加到代码中，则会出现编译错误。

你是这样添加参数的.Unprotect Password:="password", AllowSorting:=True, AllowFiltering:=True？