Ich habe folgendes Problem. Ich möchte in meiner Excelanwendung beim Öffen der Datei "Sub auto_open()" alle Symbolleisten ausblenden und nicht die Menüleiste. Beim Schließen der Datei "Sub auto_close()" den urspünglichen Zustand wieder herstellen. Bei mir wir immer alles ausgeblendet.
Sub auto_open()
Dim cb As CommandBar
MenuBars.Add.Activate
For Each cb In CommandBars
cb.Enabled = False
Next
Application.DisplayFormulaBar = False
Application.DisplayStatusBar = False
End Sub
Sub auto_close()
Dim cb As CommandBar
On Error Resume Next
For Each cb In CommandBars
cb.Enabled = True
Next
Application.CommandBars(1).Visible = True
Application.DisplayFormulaBar = True
Application.DisplayStatusBar = True
End Sub
Vielleicht hat von euch schon jemdand sowas gemacht. Wäre um Hilfe sehr froh.
Rudi