Menüpunkte in Symbolleiste deaktivieren

Forumthread: Menüpunkte in Symbolleiste deaktivieren

25.04.2002 09:48:40

Steph@n

Hallöchen,

gibt es eine Möglichkeit, dass ich ein ganzes Menü bzw. einzelne Schaltflächen innerhalb eines Menüs in einer selbst ersterstellten Symbolleiste deaktivieren kann?

Vielen Dank für Eure Hilfe!

Gruss Stephan

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Re: Menüpunkte in Symbolleiste deaktivieren

25.04.2002 10:24:50

GraFri

Hallo Code kann auch sinngemäß für eigene Münüleisten verwendet werden.

Sub MenüelementAbblenden()
'deaktiviert die Möglichkeiten: 'neu' und 'öffnen'
'Tastenkombination Strg + N  bzw.   Strg + O  geht aber noch
'Menüeintrag "Neu" unter "Datei" deaktivieren
Application.CommandBars("Worksheet Menu Bar") _
.Controls("&Datei").Controls("Neu...").Enabled = False
'Menüeintrag "Öffnen" unter "Datei" deaktivieren
Application.CommandBars("Worksheet Menu Bar") _
.Controls("&Datei").Controls("Öffnen...").Enabled = False
'Schaltfläche "Neu" in Symbolleiste "Standard" deaktivieren
Application.CommandBars("Standard").Controls("Neu").Enabled = False
'Schaltfläche "Öffnen" in Symbolleiste "Standard" deaktivieren
Application.CommandBars("Standard").Controls("Öffnen").Enabled = False
MsgBox ("folgende Schaltflächen sind deaktiviert:") & vbNewLine & vbNewLine & _
("Menüleiste, Datei") & vbNewLine & _
("     ==> Neu...") & vbNewLine & _
("     ==> Öffnen...") & vbNewLine & vbNewLine & _
("Symbolleiste Standard") & vbNewLine & _
("     ==> Schaltfläche Blatt") & vbNewLine & _
("     ==> Schaltfläche Ordner")
End Sub
Sub MenüelementEinblenden()
'Menüeintrag 'neu' unter "Datei" aktivieren
Application.CommandBars("Worksheet Menu Bar") _
.Controls("&Datei").Controls("Neu...").Enabled = True
'Menüeintrag 'öffnen' unter "Datei" aktivieren
Application.CommandBars("Worksheet Menu Bar") _
.Controls("&Datei").Controls("Öffnen...").Enabled = True
'Schaltfläche "Neu" in Symbolleiste "Standard" aktivieren
Application.CommandBars("Standard").Controls("Neu").Enabled = True
'Schaltfläche "Öffnen" in Symbolleiste "Standard" aktivieren
Application.CommandBars("Standard").Controls("Öffnen").Enabled = True
MsgBox ("folgende Schaltflächen sind aktiviert worden:") & vbNewLine & vbNewLine & _
("Menüleiste, Datei") & vbNewLine & _
("     ==> Neu...") & vbNewLine & _
("     ==> Öffnen...") & vbNewLine & vbNewLine & _
("Symbolleiste Standard") & vbNewLine & _
("     ==> Schaltfläche Blatt") & vbNewLine & _
("     ==> Schaltfläche Ordner")
End Sub
mfg, GraFri

Beliebteste Forumthreads (12 Monate)

Menüpunkte in Symbolleiste deaktivieren

Forumthread: Menüpunkte in Symbolleiste deaktivieren

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Menüpunkte in Symbolleiste deaktivieren

Forumthread: Menüpunkte in Symbolleiste deaktivieren

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

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread