Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
672to676
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
672to676
672to676
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Bestimmte Menüeinträge beim ......

Bestimmte Menüeinträge beim ......
26.09.2005 08:24:46
MichaelG
...Aufruf einer Bestimmten Arbeitsmappe nicht anzeigen.
Hallo zusammen,
beim Aufruf der Mappe "Test" sollen bestimmte Menüeinträge
nicht angezeigt werden! Es sind die Einträge unter EXTRAS,
"Makro" und "Optionen".
Wer kann mir dabei Helfen und auch sagen, wo der Code eingefügt
werden muß?
Für eure Unterstützung vorab schon einmal ein Dankeschön.
Gruß
Michael

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bestimmte Menüeinträge beim ......
26.09.2005 09:00:25
Matthias
Hallo Miachael,
in ein Standardmodul: (hier werden auch die Tastenkombinationen gesperrt)

Sub VBAEnable()
With Application
.CommandBars("Worksheet Menu Bar").Controls("Extras").Controls("Optionen...").Enabled = True
.CommandBars("Worksheet Menu Bar").Controls("Extras").Controls("Makro").Enabled = True
.OnKey "%{F8}"
.OnKey "%{F11}"
.OnKey "+%{F11}"
End With
End Sub
Sub VBADisable()
With Application
.CommandBars("Worksheet Menu Bar").Controls("Extras").Controls("Optionen...").Enabled = False
.CommandBars("Worksheet Menu Bar").Controls("Extras").Controls("Makro").Enabled = False
.OnKey "%{F8}", ""
.OnKey "%{F11}", ""
.OnKey "+%{F11}", ""
End With
End Sub

in "DieseArbeitsmappe":

Private Sub Workbook_BeforeClose(Cancel As Boolean)
VBAEnable
End Sub
Private Sub Workbook_Open()
VBADisable
End Sub

Alternativ kannst du auch die Ereignisse Workbook_Activate() und Workbook_Deactivate() verwenden, kommt auf die Aufgabenstellung an.
Gruß Matthias
Anzeige
Zusatzfrage
26.09.2005 09:21:55
MichaelG
Hallo Matthias,
das funktioniert ja wunderbar! Vielen Dank
Noch eine Frage dazu:
Ist eine Schönheitskorrektur möglich?
Die Einträge sind noch leicht sichtbar(schwaches grau),
kann man diese ganz ausblenden?
Gruß
Michael
AW: Zusatzfrage
26.09.2005 09:26:14
Matthias
Hallo Michael,
ersetze dazu
.Enabled =
durch
.Visible =
Gruß Matthias
Vielen Dank .......o.T.
26.09.2005 09:42:54
MichaelG
.

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige