Kannst auch den Button im Worksheet vorm Schließen wieder löschen lassen und beim Öffnen anlegen (in Workbook_Open, Workbook_BeforeClose jeweils das Makro zum Anlegen bzw. Entfernen des Buttons aufrufen bzw. das entsprechende reingeben).
Bsp:
Anlegen:
Code:
Application.CommandBars("Worksheet Menu Bar").Controls.Add Type:= _
msoControlButton, ID:=2949, Before:=11
With Application.CommandBars("Worksheet Menu Bar")
.Controls(11).Style = msoButtonCaption
.Controls(11).Caption = "Mein_Name"
.Controls(11).OnAction = "Mein_Makro"
Entfernen:
Code:
Application.CommandBars("Worksheet Menu Bar").Controls("Mein_Name").Delete
oder so ähnlich halt...
hth