Hiding CheckBoxes

[smirker]

HI, I'm hiding a column, but the checkboxes are still visible,

Here is the code

Sub FilterOH()
'
' Filters the OH Column
ActiveSheet.Unprotect ("unprotect")
ActiveSheet.Range("$A$9:$R$7084").AutoFilter Field:=19, Criteria1:="=TRUE", _
Operator:=xlAnd

' Hide the OH column
Columns("O:P").Select
Selection.EntireColumn.Hidden = True
Range("Q3").Select
'Protect the sheet
ActiveSheet.Protect Password:="protect"
End Sub

The problem is that each cell (o12:O778) has a checkbox linked to the adjacent cell in Column P

do I have to write a line of code to hide every single check box, or can I use some kind of range function for checkboxes?

thanks

 

[dmt32]

HI, I'm hiding a column, but the checkboxes are still visible,

Here is the code

Sub FilterOH()
'
' Filters the OH Column
ActiveSheet.Unprotect ("unprotect")
ActiveSheet.Range("$A$9:$R$7084").AutoFilter Field:=19, Criteria1:="=TRUE", _
Operator:=xlAnd

' Hide the OH column
Columns("O:P").Select
Selection.EntireColumn.Hidden = True
Range("Q3").Select
'Protect the sheet
ActiveSheet.Protect Password:="protect"
End Sub

The problem is that each cell (o12:O778) has a checkbox linked to the adjacent cell in Column P

do I have to write a line of code to hide every single check box, or can I use some kind of range function for checkboxes?

thanks

Hi,
You do not say which checkboxes you are using but following code may do what you want but I am assuming your checkboxes have their default name i.e. checkbox1 etc.

Dave

Sub FilterOH()
Dim myshape As Shape
Dim ws As Worksheet

Set ws = ThisWorkbook.Worksheets("Sheet1") '<< change name as required
'
' Filters the OH Column
With ws

.Activate
.Unprotect Password:="protect"
.Range("$A$9:$R$7084").AutoFilter Field:=19, _
Criteria1:="=TRUE", _
Operator:=xlAnd
' Hide the OH column
.Columns("O:P").EntireColumn.Hidden = True

.Range("Q3").Select '<< do you need to do this?
'hide checkboxes
For Each myshape In .Shapes

'Assumes all Check Boxes are default name i.e.
'"Check Box 1" "Check Box 2" and so on
If Left(myshape.Name, 5) = "Check" Then myshape.Visible = False
Next myshape

'Protect the sheet
.Protect Password:="protect"
End With

End Sub

 

[Mahesh_P]

it depend upon which checkbox u r using from Form Control or ActiveX control

Form Control
'Hide All Checkboxes
Sheet1.CheckBoxes.Visible = False
'Hide Particular Checkbox
Sheet1.Shapes("Check Box 1").Visible = msoFalse

ActiveX Control
Sheet1.CheckBox1.Visible = False