How to lock multiple checkboxes

[anthonymedz]

Hi,

I would like to ask how to lock multiple checkboxes in VBA instead of manually locking the checkboxes one by one?

Private Sub CheckBox1_Click()
Sheets("Sheet1").Visible = True
Sheets("Sheet1").Select

'CheckBox1.Locked = CheckBox1.Value
CheckBox2.Locked = CheckBox1.Value
CheckBox3.Locked = CheckBox1.Value
CheckBox4.Locked = CheckBox1.Value
CheckBox5.Locked = CheckBox1.Value
.
.
.
.
CheckBox999.Locked = CheckBox1.Value

 

[eiloken]

This will be my 1 class module?

Option Explicit

Public WithEvents newChB As MSForms.CheckBox

Private Sub newChB_Change()
Dim cb As Control
For Each cb In UserForm1.Controls
If TypeOf cb Is MSForms.CheckBox Then
If Not cb Is newChB Then cb.Locked = newChB.Value
End If
Next cb
End Sub

you need to change UserForm1 to cb.parent

 

[anthonymedz]

you need to change UserForm1 to cb.parent

Hi, thank you for your reply. However, im still getting an error when changing to cb.parent….

 

[eiloken]

sorry, it has some mistaken:
at class1:

Option Explicit

Public WithEvents newChB As MSForms.CheckBox

Private Sub newChB_Change()
    Dim cb As Control
    For Each cb In newChB.Parent.Controls
        If TypeOf cb Is MSForms.CheckBox Then
            If Not cb Is newChB Then cb.Locked = newChB.Value
        End If
    Next cb
End Sub

at nomal module:

Option Explicit

Private newCheckBox() As New Class1

Sub CheckBoxControl(ByVal uf As UserForm)
    Dim cb As Control
    Dim i As Integer
    ReDim newCheckBox(1000)
    For Each cb In uf.Controls
        If TypeOf cb Is MSForms.CheckBox Then
            Set newCheckBox(i).newChB = cb
            i = i + 1
        End If
    Next cb
End Sub

in userform:

Private Sub UserForm_Initialize()
    Call CheckBoxControl(Me)
End Sub