eigene symbolleisten verschwinden
20.04.2005 12:28:52
joe
ich habe in meiner arbeitsmappe eigene symbolleisten.
beim start von excel werden die excel-symbolleisten alle ausgeblendet und meine eingeblendet.
außerdem wird in den vollbildmodus gewechselt.
es gibt eine hauptsymbolleiste, die auf jedem arbeitsblatt erscheint, und zusätzlich eine, die jeweils erstellt wird, wenn man auf ein anderes arbeitsblatt wechselt.
beim schliessen der arbeitsmappe, wird alles wieder auf den grundzustand gesetzt.
so weit so gut - aber wechsele ich jetzt während der benutzung von excel auf andere programme (z.b. browser, email etc.), verschwinden meine leisten beim zurückgehen auf excel.
bisher habe ich mir damit beholfen, dass ich folgenden code auf die taste F4 gelegt habe (strgemerkt speichert das aktuelle arbeitsblatt):
Sub aktualisieren()
Dim strGemerkt As String
Application.ScreenUpdating = False
Application.DisplayFullScreen = True
Assistant.Visible = False
ActiveWindow.DisplayWorkbookTabs = False
'Application.DisplayFullScreen = True
BaueSymbolleiste
NurMeineLeiste
strGemerkt = ActiveSheet.Name
Sheets("Start").Select
Sheets(strGemerkt).Select
Application.ScreenUpdating = True
End Sub
dies funktioniert auch so, aber für den gemeinen user ist dies schon wieder ein tastendruck zuviel.
nun dachte ich, dass ich einfach diesen code in Workbook_Activate() hinterlege, und der fall ist gegessen.
leider ist dem nicht so, denn Workbook_Activate() wird nur beim wechsel zwischen verschieden excel-arbeitsmappen aktiviert.
ich hoffe, dass ich mich einigermaßen verständlich machen konnte, und dass mir jemand einen lösungvorschlag hat.
vielen dank im voraus
joe