一旦工作表受到保护，VBA 就会停止工作

问：

我有一个带过滤器的桌子。 我编写了简单的 VBA，以便当用户选择不同的选项时，VBA 将选择过滤器并自动对表格进行排序。它工作得很好。 然后，我隐藏、锁定和保护工作表以保持简单并防止用户更改公式。但是，一旦工作表受到保护（我勾选并授予了所有操作的权限），VBA仍然无法运行。如果我切换回“未受保护”，一切将再次正常。 我被困住了，希望其他专家能提出建议。 非常感谢！

简单的VBA如下：

Private Sub Worksheet_Change(ByVal Target As Range)
   If Range("BF1").Value = "Highest $" Then
        Range("A5:CK288").Sort Key1:=Range("BG5:BG288"), Order1:=xlDescending
   End If
   If Range("BF1").Value = "Nearest end" Then
        Range("A5:CK288").Sort Key1:=Range("BC5:BC288"), Order1:=xlAscending
   End If
   If Range("BF1").Value = "Customer" Then
        Range("A5:CK288").Sort Key1:=Range("BE5:BE288"), Order1:=xlDescending
   End If
   If Range("BF1").Value = "Country" Then
        Range("A5:CK288").Sort Key1:=Range("BD5:BD288"), Order1:=xlDescending
   End If
   If Target.Address = Range("BF2").Address Then
        If Range("BF2") = "All" Then
            Range("A5").AutoFilter Field:=56
        Else
            Range("A5").AutoFilter Field:=56, Criteria1:=Range("BF2").Value
        End If
   End If
   If Target.Address = Range("BF3").Address Then
        If Range("BF3") = "All" Then
            Range("A5").AutoFilter Field:=54
        Else
            Range("A3").AutoFilter Field:=54, Criteria1:=Range("BF3").Value
        End If
   End If
End Sub