Private Sub CheckBox1_Click()
Dim Ctrl As Control
If CheckBox1 = True Then
For Each Ctrl In Me.Frame4.Controls
If TypeOf Ctrl Is MSForms.ComboBox Then Ctrl.Enabled = False: _
Ctrl.BackColor = RGB(245, 222, 179)
If TypeOf Ctrl Is MSForms.TextBox Then Ctrl.Enabled = False: _
Ctrl.BackColor = RGB(245, 222, 179)
Next Ctrl
Else
For Each Ctrl In Me.Frame4.Controls
If TypeOf Ctrl Is MSForms.ComboBox Then Ctrl.Enabled = True: _
Ctrl.BackColor = RGB(255, 255, 255)
If TypeOf Ctrl Is MSForms.TextBox Then Ctrl.Enabled = True: _
Ctrl.BackColor = RGB(255, 255, 255)
Next Ctrl
End If
End Sub