工作表受保护时运行时错误1004

Question

我是VBA新手 我的工作表可以正常使用命令按钮。当我尝试保护我的工作表时，右键单击工作表选项卡，然后选择带有密码的保护表。完成后，我在工作表中生成了命令按钮，它显示如下错误

我没有使用任何保护代码，而是右键单击工作表并单击保护表。除了我正在使用命令按钮的工作表以外，它还适用于其他工作表。

当工作表不受以下保护时，我用于命令按钮的代码会很好地工作。

Sub Hide_Unhide()

    If Range("A4").Value = "Yes" Then
        Rows("4:4").EntireRow.Hidden = True
    Else
        Rows("4:4").EntireRow.Hidden = False
    End If
    
    If Range("A5").Value = "Yes" Then
        Rows("5:5").EntireRow.Hidden = True
    Else
        Rows("5:5").EntireRow.Hidden = False
    End If
    
End Sub