Disable checkbox on cell value

[AllanSull]

Is there a way to disable a checkbox if say A1="No"?

 

[Jon von der Heyden]

What kind of check box? Forms control or activex control?

 

[skorpionkz]

Check below thread. This should give you a clue how to disable the checkbox. Always check if there was already solution to your tread

http://www.mrexcel.com/forum/excel-questions/420586-disable-checkbox-visual-basic-applications.html

 

[AllanSull]

Check below thread. This should give you a clue how to disable the checkbox. Always check if there was already solution to your treadhttp://www.mrexcel.com/forum/excel-questions/420586-disable-checkbox-visual-basic-applications.html

I did check that one but it's for disabling a checkbox based on another checkbox. Can the code be amended to disable it if A1="No"?I'm using form controls.

 

[skorpionkz]

EDIT: will try to make code

 

[AllanSull]

Sub Disable()
If Cells(55, 7) = "No" Then CheckboxAirSus.Enabled = False
End Sub

Tried the above and get a object required error?

 

[Jon von der Heyden]

For example, the sheet change event:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim ctlCheckBox     As CheckBox
    
    With Me
        Set ctlCheckBox = .CheckBoxes(1) '-- assume it is the 1st checkbox, you can also refer to it by its name
        ctlCheckBox.Enabled = Not .Range("A1").Value = "No"
    End With
End Sub

 

[Jon von der Heyden]

Sub Disable()
If Cells(55, 7) = "No" Then CheckboxAirSus.Enabled = False
End Sub

Tried the above and get a object required error?

You haven't set any reference to a checkbox with CheckboxAirsus - at this point it's just an empty implicit variable...

 

[AllanSull]

I've changed Checkbox 1 in the description next to the formula bar with CheckboxAirSus, where else do I need to change it?

 

[AllanSull]

For example, the sheet change event:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim ctlCheckBox     As CheckBox
    
    With Me
        Set ctlCheckBox = .CheckBoxes(1) '-- assume it is the 1st checkbox, you can also refer to it by its name
        ctlCheckBox.Enabled = Not .Range("A1").Value = "No"
    End With
End Sub

I threw this in and got a Method 'Checkboxes' of object '_Worksheet' failed error.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim ctlCheckBox     As CheckBox
    
    With Me
        Set ctlCheckBox = .CheckBoxes(CheckboxAirSus)
        ctlCheckBox.Enabled = Not .Range("G55").Value = "No"
    End With
End Sub