单击时如何锁定复选框

Question

您好我正在尝试在选中时锁定复选框。所以你不能在这里检查它是我得到的。但它似乎不起作用

Sub CheckBox1_Click()
If CheckBox1 = True Then
ActiveSheet.CheckBoxe1.Enabled = False
End If
End Sub

Answer 1

在禁用具有焦点的控件之前，需要将焦点设置在其他控件上（另一个复选框，文本字段或其他内容）

sub CheckBox1_Click()
    if CheckBox1 = True Then
        SomeOtherControl.setFocus
        CheckBox1.Enabled = False
    end if
end sub