Application.Commandbars
03.03.2008 11:08:49
rene
kann man(n Frau auch) alle offenen Symbolleisten ausblenden, incl. Menüleiste und beim schließen wieder herstellen? Der u.g. Code funtzt schon, allerdings kann ich nicht wissen, welche Leisten beim öffnen offen sind! Da unterschiedliche Rechner. Es soll nur "Navigation" zu sehen sein? Geht so was?
'Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error GoTo 0
Application.CommandBars("Navigation").Delete
Application.CommandBars("Worksheet Menu Bar").Visible = True
Application.CommandBars("Standard").Visible = True
Application.CommandBars("Formatting").Visible = True
On Error GoTo 0
End Sub
Sub Workbook_Open()
Application.CommandBars("Standard").Visible = False
Application.CommandBars("Formatting").Visible = False
'Application.CommandBars("Worksheet Menu Bar").Delete
Dim objBar As CommandBar
...........
Danke, rene