Checkbox Lock

[Guest]

I am a new programmer in excel. I need lock the checkbox after checkbox
checked. I tried use property locked, enabled no one works. I used click
event. Need help. Thanks.

 

[Dave Peterson]

Maybe you could just disable it from future use:

Option Explicit
Private Sub CheckBox1_Click()
If Me.CheckBox1.Value = True Then
Me.CheckBox1.Enabled = False
End If
End Sub

 

[Dave Peterson]

But I'd hate to see that (as a user). I often click on the wrong checkbox and
have to correct it.

 

[Norman Jones]

Hi Leanne,

Adapting Dave's code to acknowledge his warning, perhaps try:

Private Sub CheckBox1_Click()
Dim res As Long
If Me.CheckBox1.Value = True Then
res = MsgBox("Are you sure you meant to " & _
"check this option?", vbYesNo, "Please Confirm")
If res = vbYes Then
Me.CheckBox1.Enabled = False
Else
Me.CheckBox1.Value = False
End If
End If

End Sub

This throws up a message box if the user checks the box and asks for
confirmation. Annoying, if the box was intentionally checked, but less
annoying, perhaps, than being unable to undo an unintentional click.