,可以通过以下步骤实现:
Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
ActiveSheet.Protect Password:="YourPassword"
Else
ActiveSheet.Unprotect Password:="YourPassword"
End If
End Sub
请注意,上述代码中的"YourPassword"应替换为您要使用的实际密码。
现在,当您在复选框上单击时,它将切换工作表的保护状态。如果复选框被选中,工作表将被保护,并且需要输入密码才能进行编辑。如果复选框未被选中,工作表将取消保护,无需密码即可进行编辑。
这种方法可以用于保护Excel工作表中的敏感数据,同时允许用户根据需要进行编辑。
领取专属 10元无门槛券
手把手带您无忧上云