Zusätzliches Menu einblenden / ausblenden
27.12.2005 16:53:57
Peter
Ich habe in einem Workbook ein zusätzliches Menu erstellt. Nun möchte ich, dass dieses Menu in einzelnen Worksheets dieses Workbooks wieder ausgeblendet wird bis diese Workbooks wieder deaktiviert werden.
Wie das wohl geht?
Danke für Feedback.
Peter
Const MenueName = "&Datentransfer"
Const Befehl1 = "&Import"
Sub Menü_Erstellen()
Dim MB As Object, MeinMenü As Object, Befehl As Object
Call Menü_Löschen
Set MB = CommandBars.ActiveMenuBar
Set MeinMenü = MB.Controls.Add(Type:=msoControlPopup, Temporary:=True)
MeinMenü.Caption = MenueName
Set Befehl = MeinMenü.Controls.Add(Type:=msoControlButton, ID:=1)
With Befehl
.Caption = Befehl1
.OnAction = "Machwas1"
End With
End Sub
Sub Menü_Löschen()
On Error Resume Next
CommandBars.ActiveMenuBar.Controls(MenueName).Delete
End Sub