受保护工作表启用排序及单元格选中高亮功能问题求助

问题说明 #

需求：点击受保护工作表内单元格时高亮对应行区域，同时启用筛选和排序功能。
现状：现有VBA代码可实现行高亮与筛选功能，但执行排序操作时弹出“工作表已受保护”提示。

问题根源 #

尽管在Protect方法中设置了AllowSorting:=True，但默认保护模式下未启用UserInterfaceOnly（仅用户界面保护），导致排序操作因工作表的底层保护限制而无法执行——排序需要调整行顺序，而普通保护会限制这类修改，即便你开启了允许排序的权限。

修复方案 #

在保护工作表时添加UserInterfaceOnly:=True参数，该参数仅限制用户手动修改界面，允许VBA代码对工作表进行操作，同时保留筛选和排序的权限。

修改后的完整代码 #

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.ScreenUpdating = False
    
    If Target.Row <= 6 Then Exit Sub
    
    Dim RS As Long
    Dim pass As String ' 请在此设置你的工作表保护密码
    pass = "your_password" ' 替换为实际密码
    
    Me.Unprotect Password:=pass
    
    ' 清除之前的行高亮
    Me.Range("A7:Q1048576").Interior.ColorIndex = xlNone
    
    ' 高亮当前选中行
    RS = Target.Row ' 用Target替代Selection，避免多选时的异常
    With Me.Range("A" & RS & ":Q" & RS).Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent2
        .TintAndShade = 0.799981688894314
        .PatternTintAndShade = 0
    End With
    
    ' 启用仅用户界面保护，同时开放筛选和排序权限
    Me.Protect Password:=pass, _
               UserInterfaceOnly:=True, _
               AllowSorting:=True, _
               AllowFiltering:=True
    
    Application.ScreenUpdating = True
End Sub

额外优化提示 #

• 用Target.Row替代Selection.Row：Target是触发事件的精准单元格对象，比Selection更可靠，避免多选单元格时的逻辑异常。
• 单独声明密码变量：将密码集中定义，方便后续修改，也提升代码可读性。

补充注意事项 #

UserInterfaceOnly:=True的设置在Excel关闭后会失效，若需每次打开工作簿都保持该状态，可在工作簿的Open事件中添加初始化代码：

Private Sub Workbook_Open()
    Dim ws As Worksheet
    Dim pass As String
    pass = "your_password" ' 替换为实际密码
    
    For Each ws In ThisWorkbook.Worksheets
        ' 指定需要设置的目标工作表名称
        If ws.Name = "你的工作表名" Then
            ws.Protect Password:=pass, _
                       UserInterfaceOnly:=True, _
                       AllowSorting:=True, _
                       AllowFiltering:=True
        End If
    Next ws
End Sub

内容的提问来源于stack exchange，提问作者jjbox