Menüleiste
25.08.2006 17:21:22
meri
gestern war ich schon in forum und habe ein sehr gutes Tip mit code bekommen zum bestimmte Menüpunkte Aus/Einschalten (Danke Orakel !!). Habe getestet, erst jetzt und habe ein Frage an Euch.
Mit unten stehendem Code kann ich aus/einblenden (ANSICHT/BEARBEITEN)Menüpunkte aber für EXCEL, was sehr schlecht ist. Ich möchte nur für eine bestimmte Exceldatei die funktion verwenden, für restliche Datei sollen alle Menüpunkte wieder sichtbar sein.
Wie komme ich da forwertz.?
Sub Workbook_Activate_ausblenden()
Dim Datei
For Each Datei In Application.CommandBars.FindControls(ID:=30004)
Datei.Visible = False 'oder Enabled (ausblenden) Menüpunkt ANSICHT'
Next
For Each Datei In Application.CommandBars.FindControls(ID:=30003)
Datei.Visible = False 'oder Enabled (ausblenden) Menüpunkt BEARBEITEN'
Next
End Sub
Sub Workbook_Deactivate_einblenden()
Dim Datei
For Each Datei In Application.CommandBars.FindControls(ID:=30004)
Datei.Visible = True 'oder Enabled (einblenden) Menüpunkt ANSICHT'
Next
For Each Datei In Application.CommandBars.FindControls(ID:=30003)
Datei.Visible = True 'oder Enabled (einblenden) Menüpunkt BEARBEITEN'
Next
End Sub
gruss + danke
meri