cntButton Disablen oder Enablen
Josef
Hallo!
Wie kann ich beim Start eines Addin erzeugte Buttons in der CommandBars("Worksheet Menu Bar") nach Ausführen eines Makros enablen bzw. wieder disablen?
Set cmdBar = Application.CommandBars("Worksheet Menu Bar")
Set cntMenu = cmdBar.Controls.Add(msoControlPopup, before:=cmdBar.Controls.Count)
cntMenu.Caption = "DVP"
Set cntButton = cntMenu.Controls.Add
With cntButton
.Caption = "Vertragspartner anlegen"
.OnAction = "Start4"
.Style = msoButtonCaption
End With
Danke
Josef