请教各位大虾：EXCEL工作表中的复选框，如何让改变复选框的值与设定的密码关联？
发布网友
发布时间：2022-04-23 09:26
共1个回答
热心网友
时间：2023-10-09 12:05
Dim va As Boolean, str As String
va = CheckBox1.Value
If va <> Sheet1.Cells(1, 27) Then
str = InputBox("请输入密码：")
If str <> "1234" Then
CheckBox1.Value = Sheet1.Cells(1, 27)
va = CheckBox1.Value
End If
End If
Sheet1.Cells(1, 27) = va
End Sub
密码为1234，可以自己改，单元格aa1预留用于存储上次复选框的值，以便比较。
