Menue Bar loeschen
abu
habe irgendwann mal mit freundlicher Unterstuetzung dieses Forums eine neue Schaltflaesche in der Menuebar erstellt. Klappt auch wunderbar allerdings bekomm ich sie nicht mehr Weg. Ich moechte sie nun in ein Addin einbauen und nur dann sehen wenn ich das Addin aktiviert habe. Hier der Coder den ich seinerzeit mal hab laufen lassen, habe keine rechte hier und kann auf keine Programmordner von Excel oder Windows zugreifen...
Sub Auto_Open()
Dim MB As Object
For Each MB In MenuBars
MB.Reset
Next MB
createMenu
End Sub
Sub createMenu()
Dim i As Integer
' erstellt eine Schaltfläche
Application.StatusBar = "Bitte warten..."
Application.CommandBars("Reviewing").Visible = False
Dim CB As CommandBar
Dim CBP As CommandBarPopup
Dim CBB As CommandBarButton
Set CB = Nothing
On Error Resume Next
Set CB = CommandBars.Item("Worksheet Menu Bar")
Set CBP = CB.Controls.Add(Type:=msoControlPopup, temporary:=False)
With CBP
.Caption = "Outbound"
End With
For i = 1 To 3
Set CBB = CBP.Controls.Add(Type:=msoControlButton, temporary:=False)
With CBB
Select Case i
Case 1
.Caption = "formating Data"
.OnAction = "Prologs"
Case 2
.Caption = "Update"
.OnAction = "Update"
Case 3
.Caption = "ABU"
.OnAction = "ABU"
End Select
End With
Next i
End Sub
Wuerde mich freuen wenn mir jemand helfen koennte diese Schaltflaeche zu loeschen.Gruss
abu