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?
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