Einblenden der Symbolleisten
07.02.2006 14:09:00
Astrid
ich habe folgende Makros für das Ein-/Ausblenden der Symbolleisten und einiger Menüleisten. Das Ausblenden bei Öffnen der Datei klappt soweit auch super, nur das Wiedereinblenden beim Schließen leider nicht, zumindest nicht für die Symbolleisten. Hat jemand eine Ahnung, was falsch läuft?
Private Sub Workbook_Open()
Dim x As Long
Dim Leiste(26) As String
For x = 1 To Toolbars.Count
If Toolbars(x).Visible Then
Leiste(x) = Toolbars(x).Name
Toolbars(x).Visible = True
End If
Next x
Application.CommandBars("Worksheet Menu Bar").Controls(6).Visible = False
Application.CommandBars("Worksheet Menu Bar").Controls(7).Visible = False
Application.CommandBars("Worksheet Menu Bar").Controls(5).Visible = False
Application.CommandBars("Worksheet Menu Bar").Controls(4).Visible = False
Application.CommandBars("Worksheet Menu Bar").Controls(2).Visible = False
Call Menüleiste_Info
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim x As Long
Dim Leiste(26) As String
For x = 1 To 26
If Leiste(x) <> "" Then Toolbars(Leiste(x)).Visible = True
Next x
Application.CommandBars("Worksheet Menu Bar").Controls(6).Visible = True
Application.CommandBars("Worksheet Menu Bar").Controls(7).Visible = True
Application.CommandBars("Worksheet Menu Bar").Controls(5).Visible = True
Application.CommandBars("Worksheet Menu Bar").Controls(4).Visible = True
Application.CommandBars("Worksheet Menu Bar").Controls(2).Visible = True
Call Menüleiste_Info_Löschen(True)
End Sub
Vielen Dank im Voraus!
Gruß,
Astrid