您可以使用Sheet1上ActiveX按钮中的代码来简单地完成此操作

Const strPAss = "test"

Private Sub CommandButton1_Click()
 If ActiveSheet.ProtectContents Then
 ActiveSheet.Unprotect strPAss
 [a1].Value = "unlocked"
 Else
 [a1].Value = "locked"
 ActiveSheet.Protect strPAss
 End If
End Sub

将其放入工作表的代码模块中，该模块将在状态栏中放置提醒（这避免了为了将状态写入单元格A1而需要锁定/解锁工作表）。

**将此放入Sheet 1代码模块中。**每次sheet 1被激活时，宏都会执行。

Private Sub Worksheet_Activate()
If ActiveSheet.ProtectContents then
    Application.StatusBar = "This sheet is protected"
Else:
    Application.StatusBar = "This sheet is unprotected"
End If
End Sub

Private Sub Worksheet_Deactivate()
    Application.StatusBar = False
End Sub

**要保护/取消保护工作表，您可以将其添加到插入〉模块。**然后将这些宏附加到单独的命令按钮，或从开发人员〉宏功能区运行。

Const myPassword as String = "password" '<-- replace "password" with your password

Sub Sht1Protect()
    Sheet1.Protect myPassword
End Sub

Sub Sht1Unprotect()
    Sheet1.Unprotect myPassword
End Sub

为确保关闭文件时始终保护工作表，请在工作簿代码模块中插入此代码

Private Sub Workbook_Close()
    Sht1Protect
End Sub

您可能需要额外的处理来控制文件是否保存等。