工作表保护后VBA代码无法运行的问题求助

问题核心：即使在工作表保护界面勾选所有操作权限，VBA执行Sort和AutoFilter这类操作时仍会因保护限制失败。需在代码执行关键操作前临时取消工作表保护，操作完成后重新保护工作表。

具体修改方案 #

1. 提前记录工作表保护密码（无密码则留空）
2. 在排序/筛选逻辑执行前取消保护
3. 操作完成后重新应用保护（保留原设置）
4. 增加错误处理，避免出错后工作表处于未保护状态

修改后的完整代码 #

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim ws As Worksheet
    Dim protectPassword As String
    Set ws = Me ' 当前工作表
    
    ' 替换为你的工作表保护密码，无密码则设为 ""
    protectPassword = "your_password_here"
    
    On Error GoTo ErrorHandler ' 确保出错后工作表能重新保护
    
    ' 临时取消保护
    ws.Unprotect Password:=protectPassword
    
    ' 排序逻辑
    If ws.Range("BF1").Value = "Highest $" Then
        ws.Range("A5:CK288").Sort Key1:=ws.Range("BG5:BG288"), Order1:=xlDescending
    End If
    If ws.Range("BF1").Value = "Nearest end" Then
        ws.Range("A5:CK288").Sort Key1:=ws.Range("BC5:BC288"), Order1:=xlAscending
    End If
    If ws.Range("BF1").Value = "Customer" Then
        ws.Range("A5:CK288").Sort Key1:=ws.Range("BE5:BE288"), Order1:=xlDescending
    End If
    If ws.Range("BF1").Value = "Country" Then
        ws.Range("A5:CK288").Sort Key1:=ws.Range("BD5:BD288"), Order1:=xlDescending
    End If
    
    ' BF2 筛选逻辑
    If Target.Address = ws.Range("BF2").Address Then
        If ws.Range("BF2") = "All" Then
            ws.Range("A5").AutoFilter Field:=56
        Else
            ws.Range("A5").AutoFilter Field:=56, Criteria1:=ws.Range("BF2").Value
        End If
    End If
    
    ' BF3 筛选逻辑（修正原代码笔误：将Range("A3")改为A5，与表格表头一致）
    If Target.Address = ws.Range("BF3").Address Then
        If ws.Range("BF3") = "All" Then
            ws.Range("A5").AutoFilter Field:=54
        Else
            ws.Range("A5").AutoFilter Field:=54, Criteria1:=ws.Range("BF3").Value
        End If
    End If
    
ErrorHandler:
    ' 重新保护工作表，显式允许筛选、排序等操作
    ws.Protect Password:=protectPassword, _
        DrawingObjects:=True, _
        Contents:=True, _
        Scenarios:=True, _
        AllowSorting:=True, _
        AllowFiltering:=True, _
        AllowUsingPivotTables:=True
        
    ' 输出错误信息（如果有）
    If Err.Number <> 0 Then
        MsgBox "操作出错: " & Err.Description, vbExclamation
    End If
End Sub

额外注意事项 #

• 原代码中BF3筛选部分的Range("A3").AutoFilter是笔误，改为Range("A5")才能与表格表头匹配，避免筛选异常。
• 若工作表无保护密码，将protectPassword的值设为""即可。
• ws.Protect参数中显式设置AllowSorting和AllowFiltering为True，既保证VBA操作生效，也不影响用户手动操作筛选排序。

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