Kontextmenü rücksetzen Excel 2016

Hallo Zusammen,
ich habe ein seltsames Problem bei dem ich Eure Hilfe benötige.
Ich habe ein individuelles Kontextmenü in meiner Anwendung angelegt, welches ich beim Beenden der Anwendung per:
Application.CommandBars("Cell").Reset
Beim Beenden der Anwendung wieder zurücksetzen möchte.
Eingebaut ist dies beim schließen vor:
'prüfen ob noch eine Mappe offen ist
If Windows.Count > 1 Then
Workbooks(ThisWorkbook.Name).Close savechanges:=False
GoTo raus
Else
Windows(ThisWorkbook.Name).Activate
Application.Quit
Application.DisplayAlerts = False
Workbooks(ThisWorkbook.Name).Close savechanges:=False
End IF
Bis Excel 2010 funktioniert dies auch einwandfrei.
UnterExcel 2016 wird das Kontextmenü aber nicht nicht zurückgesetzt.
Führe ich den Befehl manuell aus so funktioniert es.
Ich habe es auch schon mit:
On Error Resume Next
Dim Leiste As CommandBar
For Each Leiste In Application.CommandBars
Leiste.Reset
Next
On Error GoTo 0
versucht.
Leider ohne Erfolg.
Was muss ich unter Excel 2016 tun um das Kontextmenü korrekt zurück zu setzen?
Danke Euch schon mal.
VG
SteffenS

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub reset_kontextmenu() Dim ContextMenu As CommandBar Dim ctrl As CommandBarControl Set ContextMenu = Application.CommandBars("Cell") 'Löschen Kontextmenü For Each ctrl In ContextMenu.Controls If ctrl.Tag Like "FCS_KM*" Then ctrl.Delete Else ctrl.Visible = True End If Next ctrl End Sub

Hallo Luschi,
verwendet Du die Lösung mit dem Ribbon oder die "normale" VBA Lösung?
Mein Code:

Sub reset_kontextmenu()
Dim ContextMenu As CommandBar
Dim ctrl As CommandBarControl
Set ContextMenu = Application.CommandBars("Cell")
'Löschen Kontextmenü
For Each ctrl In ContextMenu.Controls
If ctrl.Tag Like "FCS_KM*" Then
ctrl.Delete
Else
ctrl.Visible = True
End If
Next ctrl
End Sub

Beim Erzeugen mache ich zum Deaktivieren folgendes
'Normale Einträge ausblenden
If ADMALLG.Range("X42").Value <> pr_art Then
For Each ctrl In ContextMenu.Controls
If Not ctrl.Tag Like "FCS_KM*" And ctrl.Visible = True Then ctrl.Visible = False
Next ctrl
End If
~f~
Das rücksetzen mache ich beim beenden wie folgt:
'Kontektmenü einschalten
reset_kontextmenu
'prüfen ob noch eine Mappe offen ist
If Windows.Count > 1 Then
Workbooks(ThisWorkbook.Name).Close savechanges:=False
GoTo raus
Else
Windows(ThisWorkbook.Name).Activate
Application.Quit
Application.DisplayAlerts = False
Workbooks(ThisWorkbook.Name).Close savechanges:=False
End If
raus:
~f
Danke Dir nochmal vielsmals :-)
VG Steffen

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) Dim IntVersion As Boolean IntVersion = Application.Run(xmenu & "!allg_fkt.IstVersion") 'Prüfung der Version If IntVersion = False Then Cancel = True Application.Run (xmenu & "!allg_kmenu.kmenu_show") End If End Sub

Beliebteste Forumthreads (12 Monate)

Kontextmenü rücksetzen Excel 2016

16 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread