Hide only CommandButtons

[S P P]

This VBA hides all userform controls

How to hide only CommandButtons

>>> use code - tags <<<

Dim Ctl As Control
For Each Ctl In Me.Controls
Ctl.Visible = false
Next Ctl

 

[p45cal]

try:

Dim Ctl As Control
For Each Ctl In Me.Controls
    If TypeName(Ctl) = "CommandButton" Then Ctl.Visible = False
Next Ctl

 

[S P P]

p45cal

Thanks again

How to keep a CommandButton Visible

CommandButton10

I forgot that the Exit CommandButton must remain Visible

 

[p45cal]

Either of the lines in the middle:

Dim Ctl As Control
For Each Ctl In Me.Controls
  If TypeName(Ctl) = "CommandButton" Then
    If Not CommandButton10 Is Ctl Then Ctl.Visible = False 'or:
    'If Ctl.Name <> "CommandButton10" Then Ctl.Visible = False
  End If
Next Ctl

 

[S P P]

Worked perfectly

Thanks