Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Anzeige
Inhaltsverzeichnis

Menü anpassen

Forumthread: Menü anpassen

Menü anpassen
20.01.2003 15:15:02
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?

Ich habe versucht das problem mit diesem Code (danke L.Vira) zu lösen. Jedoch wo muss ich diesen Code hinstellen, damit es klappt? gibt es in excel einen Befehl, dass beim starten ein bestimmtes makro ausgeführt wird?


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

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Menü anpassen
20.01.2003 15:25:55
L.Vira
du kannst das in PERSONL.XLS in "DieseArbeitsmappe" kopieren,
ändere das so ab:
Private Sub Workbook_WindowActivate(ByVal Wn As Excel.Window)
If ActiveWorkbook.Name <> "DeineMappe.xls" Then
Application.CommandBars("worksheet menu bar").Controls(1).Controls(1).Enabled = False
End If
End Sub
Den rest so lassen(auf genaue Schreibweise achten).
Anzeige
Re: Menü anpassen
20.01.2003 15:28:07
Jörg
Der Quelltext muß in "Diese Arbeitsmappe" oder "this Workbook"
denke ich?
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
14.05.2026 09:50:42
13.05.2026 19:14:18