enable checkbox based on another checkbox

[Shweta]

Hello All,

I have a userform with 3 checkboxes. When userform initializes only one checkbox (checkbox1) is enabled and rest two are disabled. I want when user check(select) the checkbox1 then only other two checkboxes get enabled and when user check again (deselect) the checkbox1 then other two checkboxes get disabled again.

Using the following code but it is not working to make the checkboxes disabled again.

Private Sub CheckBox1_AfterUpdate()
If Me.CheckBox1.Enabled = True Then
Me.CheckBox2.Enabled = True
Me.CheckBox3.Enabled = True
ElseIf Me.CheckBox1.Enabled = False Then
Me.CheckBox2.Enabled = False
Me.CheckBox3.Enabled = False
End If
End Sub

I tried with other events also like change() and click() but facing same problem.

Thanks in advance!

Regards,
Shweta Jain

 

[Shweta]

Thank you! It is solved now.

 

[MickG]

Try this Sub:-

Private Sub CheckBox1_Click()
Call ck(CheckBox1)
End Sub

Private Sub CheckBox2_Click()
Call ck(CheckBox2)
End Sub

Private Sub CheckBox3_Click()
Call ck(CheckBox3)
End Sub

Sub ck(Ctrl As Object)
Dim nCtr As Control
For Each nCtr In Me.Controls
    If Not nCtr.Name = Ctrl.Name Then
        If Ctrl = True Then
            nCtr.Enabled = False
        Else
            nCtr.Enabled = True
        End If
    End If
Next nCtr
End Sub