vba to permanently disable checkbox( greyed)

[aman2059]

Hi All,

I have created one user form with checkboxes and command button.

Could anyone please suggest how can I permanently disable the checkbox so that no one can click on the box.

I used below code

Private Sub CheckBox1_Click()
CheckBox1.Value = False
End Sub

It make the check box unclickable but it doesn't grey the checkbox. Please suggest how can I grey the check box, so that user look on the checkbox and understand that there is nothing with this checkbox.

Thank you

 

[Andrew Poulsom]

Set the CheckBox's Enabled property to False.

 

[aman2059]

Hi Andrew,

I used below

Private Sub CheckBox1_Click()
CheckBox1.Value = False
CheckBox1.Enabled = False
end sub

it greys the box when I CLICK on it. However, before clicking on it, the box looks like I can click on it. I want whenever I run the vba. it shows grey checkbox since the beginning.

Please help

 

[Andrew Poulsom]

You can set the Enabled property at design time in the Properties window. Or you can use the UserForms's Initialize event procedure.

 

[aman2059]

Got your point. I changed enabled property from properties window. thank you

My last question - I have few check boxes in user form which depend on prior box. like - if someone clicks on 1st box then only another box should be clickable. I have below code which is working fine.

Private Sub CheckBox10_Click()
Select Case CheckBox1.Value
    Case True: CheckBox10.Enabled = True
    Case False: CheckBox10.Enabled = False: CheckBox10.Value = False
End Select
End Sub

However, in this code also when I click on the particular box then only it becomes grey . And it is not greyed from the beginning.

What I want is when I click on 1st button then only other should become clickable. until then another box should be grey.

Do I need to use UserForms's Initialize event procedure? If yes, could you please help I am not sure how use event procedure.

 

[Andrew Poulsom]

If you want the CheckBox to be enabled when the UserForm is loaded:

Private Sub UserForm_Initialize()
    CheckBox10.Enabled = False
End Sub

 

[aman2059]

Thanks Andrew. It worked.