Tuning Off Toolbars

  • Thread starter Thread starter Phil Hageman
  • Start date Start date
P

Phil Hageman

I need to add a line to an Auto_Open() that turns off all
toolbars. What would the code be?

Thanks,
Phil
 
Hi Phil

Try this

Dim bar As CommandBar
For Each bar In Application.CommandBars
bar.Enabled = False
Next

Set it to True to get them back
 
Use this if you want to keep the menubar

Dim a As Integer
For a = 2 To Application.CommandBars.Count
CommandBars(a).Enabled = False
Next
 
Ron, Thanks for your reply - appreciate your time. I want
to keep the menu bar and turn off all tool bars. I've
tried to enter your code but can't get it to work. Below
is the entire sub (copy/paste, underscores absent). Could
you put it where it belongs? Again, Thanks.

Sub Auto_Open()

'Turn off updating so code runs faster
Application.ScreenUpdating = False

For Each ws In Worksheets
If ws.Visible = xlSheetVisible Then
ws.Select
Application.GoTo ws.Range("A1"), True 'Active
cell is A1
ActiveWindow.DisplayGridlines = False 'Turns
off gridlines
End If
Next

'To open the workbook on the Scorecard worksheet
Worksheets("Scorecard").Select

'To change default color pink (index number 7) to
light red (for charts)
ThisWorkbook.Colors(7) = RGB(255, 124, 128)

'In percent formatted cells, returns %, if decimal or
whole number entered.
Application.AutoPercentEntry = True

'Restore screen updating
Application.ScreenUpdating = True

End Sub
-----Original Message-----
Use this if you want to keep the menubar

Dim a As Integer
For a = 2 To Application.CommandBars.Count
CommandBars(a).Enabled = False
Next
Click to expand...
wrote in message [email protected]...
 
Place the subs in a normal module Phil

Sub Auto_Open()
Dim a As Integer
For a = 2 To Application.CommandBars.Count
Application.CommandBars(a).Enabled = False
Next
End Sub

Sub Auto_close()
Dim a As Integer
For a = 2 To Application.CommandBars.Count
Application.CommandBars(a).Enabled = True
Next
End Sub
 
Back
Top