Hide toolbars

[abz2max]

Will this line hide all the toolbars, if not can u give me 1 that will.

Toolbars("Standard").Visible = False

[James]

Well if it does you may want to consider something in Workbook_BeforeClose =True

[abz2max]

i will do that, but first i need a formula that will hide all the toolbars. The formula i gave doesnt do that.

[James]

Sub HideAllToolBars()
Dim TB As CommandBar
Dim TBNum As Integer
Dim TBSheet As Worksheet
Set TBSheet = Sheets("TBSheet")
Application.ScreenUpdating = False

'Clear the sheet
TBSheet.Cells.Clear

'Hide all visible toolbars and restore
'their names
TBNum = 0
For Each TB In CommandBars
If TB.Type = msoBarTypeNormal Then
If TB.Visible Then
TBNum = TBNum + 1
TB.Visible = False
TBSheet.Cells(TBNum, 1) = TB.Name
End If
End If
Next TB
Application.ScreenUpdating = True
End Sub

Sub RestoreToolBars()
Dim TBSheet As Worksheet
Set TBSheet = Sheets("TBSheet")
Application.ScreenUpdating = False

'Unhide the previously displayed the toolbars
On Error Resume Next
For Each Cell In TBSheet.Range("A:A") _
.SpecialCells(xlCellTypeConstants)
CommandBars(cell.Value).Visible = True
Next cell
Application.ScreenUpdating = True
End Sub

P.S.
The HideAllToolBars procedure is called from
the Workbook_Open event handler and the
RestoreToolBars procedure is called from the
Workbook_BeforeClose event handler

James

_________________


[ This Message was edited by: James on 2002-05-04 18:01 ]

[abz2max]

it looks so compicated,
what exactly does this do

[James]

It hides your Tool Bars when the Workbook is opened and retores them when the Workbook is closed.

I may be wrong, but isn't that what you wanted to do? Your post said "HideAllToolBars"

James

_________________


[ This Message was edited by: James on 2002-05-04 20:17 ]

[Peter100]

Had the same problem myself, try this

Put this into the workbook Code
You can play around with the alternatives

Private Sub Workbook_Activate()
Application.CommandBars("Standard").Visible = False
Application.CommandBars("Formatting").Visible = False
Application.CommandBars("Worksheet Menu Bar").Enabled = False
With ActiveWindow
.DisplayHeadings = False
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
.DisplayWorkbookTabs = False
End With

End Sub

Private Sub Workbook_Deactivate()
Application.CommandBars("Standard").Visible = True
Application.CommandBars("Formatting").Visible = True
Application.CommandBars("Worksheet Menu Bar").Enabled = True

End Sub