如何在Excel VBA代码中实现受保护工作表允许排序？

核心问题分析 #

你之前的代码存在两个关键错误：

1. 多余添加了允许编辑区域，这不仅违背你「禁止修改内容」的需求，而且排序根本不需要编辑权限——只要在保护工作表时开启AllowSorting参数即可。
2. 最后设置了.EnableSelection = xlUnlockedCells，导致用户无法选中锁定的数据区域，自然无法执行排序操作（排序需要先选中目标区域）。

修正后的代码 #

Public Sub ProtectCells()
    Dim lastRow As Long, lastCol As Long
    Dim columnLetter As String
    Dim sc As SlicerCache
    Dim sl As Slicer
        
    ' 获取数据区域的最后一行和最后一列
    lastRow = Range("A7").End(xlDown).Row
    lastCol = Range("A7").End(xlToRight).Column
    columnLetter = Split(Columns(lastCol).Address(False, False), ":")(0)
    
    With ActiveSheet
        ' 先取消工作表保护（如果当前处于保护状态）
        .Unprotect Password:="abcd"
        
        ' 显式设置数据区域为锁定状态（默认单元格已锁定，此步确保万无一失）
        .Range("A7:" & columnLetter & lastRow).Locked = True
        
        ' 解锁当前工作表的切片器（允许用户操作，不需要可删除此段）
        For Each sc In ActiveWorkbook.SlicerCaches
            For Each sl In sc.Slicers
                If sl.Parent Is ActiveSheet Then
                    sl.Locked = False
                End If
            Next sl
        Next sc
        
        ' 重新保护工作表，配置正确权限
        .Protect _
            Password:="abcd", _
            DrawingObjects:=True, _
            Contents:=True, _
            Scenarios:=True, _
            AllowSorting:=True, _
            AllowFiltering:=True, _
            AllowFormattingColumns:=True
        ' 允许用户选中所有单元格（确保能选中数据区域进行排序）
        .EnableSelection = xlNoRestrictions
    End With
End Sub

关键调整说明 #

• 移除允许编辑区域：彻底禁止用户修改任何单元格内容，同时不影响排序权限。
• 修正选中权限：设置.EnableSelection = xlNoRestrictions，让用户可以选中锁定的数据区域执行排序。
• 规范变量声明：将Dim lastRow, lastCol As Long改为Dim lastRow As Long, lastCol As Long，避免lastRow默认成为Variant类型。
• 显式锁定数据区域：虽然Excel默认单元格是锁定状态，但显式设置可避免之前手动解锁的遗留问题。

额外注意事项 #

• 如果不需要用户操作切片器，可以直接删除解锁切片器的循环代码。
• 若不需要允许列格式调整或筛选，可移除AllowFormattingColumns:=True和AllowFiltering:=True参数。

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