CommandBars aus & einschalten
12.12.2003 13:37:23
Michael
ich möchte alle CommandBars am Anfang eines Programmes überprüfen welchen Status sie haben, dann alle ausschalten und beim beenden des Programms sollen alle die bei Beginn eingeschaltet waren wieder erscheinen.
Ich kann bereits den Status auslesen:
Private Sub Workbook_Activate()
i = 172
For Each combar In Application.CommandBars
a = "a" & i
b = "b" & i
Sheets("ausgaben").Range(a).Value = combar.Name
Sheets("ausgaben").Range(b).Value = combar.Visible
i = i + 1
Next
End Sub
Nur das Ausschalten und das wiedereinschalten mit dem Status der in einer Exceltabelle gespeichert ist klappt nicht.
Kann mir jemand helfen?
Danke, Michael