如何在受保护的工作表上运行vba？

Question

我在excel的两张纸上有一个仪表板，在第三张纸上有一些公式。 我在仪表板上放置了两个按钮以更改显示。这些按钮在宏上起作用，该宏可编译6个以上的宏（根据按钮的选择以不同的方式操作）。 当我运行它时，我收到一条错误消息，说我要处理的工作表已锁定。 我想锁定所有工作表，仍然让代码运行。我不需要密码。 这是按钮宏的代码，该代码在不保护工作表的情况下起作用。

Sub DropDown1_Change()
Sheets("Synthèse").Unprotect
Sheets("Prev").Unprotect
Sheets("graphs").Unprotect
If ActiveSheet.Name = "Prev" Then
Sheets("Synthèse").Activate
Select Case Sheets("Prev").Range("B380").Text
Case "1": S
Case "2": S
Case "3": S
Case "4": S
Case "5": S
Case "6": S
End Select
Sheets("Prev").Activate
Else
Select Case Sheets("Prev").Range("B380").Text
Case "1": S
Case "2": S
Case "3": S
Case "4": S
Case "5": S
Case "6": S
End Select
End If
Sheets("Synthèse").Protect
Sheets("Prev").Protect
Sheets("graphs").Protect
End Sub