HERBERS Excel-Forum - die Beispiele

Thema: Menü nur in der zugehörigen Arbeitsmappe sichtbar

Home

Gruppe

Menue

Problem

Wie erreiche ich, daß ein zu einer bestimmten Arbeitsmappe gehöriges Menü nur dann sichtbar ist, wenn diese Arbeitsmappe die aktive ist?

Lösung
Geben Sie den Ereigniscode in das Klassenmodul der Arbeitsmappe ein.
ClassModule: DieseArbeitsmappe

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Call Zurueck
End Sub

Private Sub Workbook_Open()
   Dim oPopUp As CommandBarPopup
   Call Zurueck
   Set oPopUp = Application.CommandBars( _
      "Worksheet Menu Bar").Controls.Add(msocontrolpopup)
   oPopUp.Caption = "MeinMenue"
   oPopUp.Visible = True
End Sub

Private Sub Workbook_WindowActivate(ByVal Wn As Excel.Window)
    On Error Resume Next
    Application.CommandBars(1).Controls("MeinMenue").Visible = True
End Sub

Private Sub Workbook_WindowDeactivate(ByVal Wn As Excel.Window)
    On Error Resume Next
    Application.CommandBars(1).Controls("MeinMenue").Visible = False
End Sub

StandardModule: basMain

Sub Zurueck()
   On Error GoTo ERRORHANDLER
   Application.CommandBars("Worksheet Menu Bar") _
      .Controls("MeinMenue").Delete
ERRORHANDLER:
End Sub

Beiträge aus dem Excel-Forum zu den Themen Menue und PopUp

Info popup Fenster beim klicken Excel Form Kontextmenue geht nicht
Popup schließt nicht automatisch Popup
Popup stoppt ganzes Makro bis zum Schließen Zellen Kontextmenue ausfuehren
Dynamisches Kontextmenue makro per popupdropdown ansteuern
Makro für Pulldown Menue Menueeintrag einbinden
makro in kontextabhängiges Befehlsmenue Menue mit eigenen Macros versehen
Entfernen eines Eintrages im Kontextmenue Untermenue von Menueleiste
Adresszeile/Formelzeile im Menue ist weg FaceId bei Untermenue möglich?
Hilfe bei Infofenster/Popup Menue Leiste ein ausblenden
aktueller Monat als Start-Monat für Popup-Kalender Menue nur erstellen, wenn noch nicht vorhadnen
Menuebar ausblenden Wenn Datum erreicht Popup
2003 Menuepunkte in 2007 finden Kontexmenue
CommandBarPopup (faceID) PopUp farbig darstellen
Menü Popup/Button Beschriftung Filter als Dropdown-Menue in neuem Tabellenblatt
Menue Popup mit Excel wenn Datum erreicht
Eigenes Formatierungsmenue Popup mit Button
Kontextmenue Autofilter, polldown Menue in Fragmenten?
Drop down Menue Excel Menues mit Bildern
Pfeil im Drop-Down-Menue dauerhaft Drop Down Menue in Zelle
Abhängige Drop-Down-Menues Mehrere Untermenues + Application.caller() Problem
Menue - Makro editieren Problem mit Popup-Symbolleiste
Popup mit Abstand zur Zelle erscheinen lassen Menueleiste zerschossen
Menueerweiterung um Bildchens Pulldown Menueeintraege disablen enablen?
PopUp nur bei bestimmten Benutzer Menueleiste "Überarbeiten" nie anzeigen !
Popup-Symbolleiste über Button schliessen Kalender: Wahl-Datum aus Popup-Fenster einlesen