Menü anpassen

Forumthread: Menü anpassen
1 Beitrag zu diesem Forumthread
Anzeige

Forumthread: Menü anpassen

Menü anpassen

20.01.2003 14:09:52

Claudio

Hy Leute

Ich möchte die schon vorhandene Menüleiste erweitern. Der neue Menüpunkt soll ein Makro aufrufen. Das habe ich noch geschafft.

Doch nun möchte ich dass diese neue Funktion der Menüleite nur angezeigt wird, wenn ich ein bestimmtes excel-formular öffne.
kann mir jemand erklären, was zu machen ist?

Gruss claudia

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

Re: Menü anpassen

20.01.2003 14:43:37

L.Vira

Re: Menü anpassen

20.01.2003 14:43:37

L.Vira

Option Explicit
Private Sub Workbook_WindowActivate(ByVal Wn As Excel.Window)
If ActiveWorkbook.Name = ThisWorkbook.Name Then
Application.CommandBars("worksheet menu bar").Controls(1).Controls(1).Enabled = False
End If
End Sub
Private Sub Workbook_WindowDeactivate(ByVal Wn As Excel.Window)
If ActiveWorkbook.Name = "DeineMappe.xls" Then
Application.CommandBars("worksheet menu bar").Controls(1).Controls(1).Enabled = True
End If
End Sub

Die Menüleiste und die controls musst du natürlich auf deine
Gegebenheiten anpassen!

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!