Menüpunkte in Symbolleiste deaktivieren

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox


Excel-Version: 97
nach unten

Betrifft: Menüpunkte in Symbolleiste deaktivieren
von: Steph@n
Geschrieben am: 25.04.2002 - 09:48:40

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


nach oben   nach unten

Re: Menüpunkte in Symbolleiste deaktivieren
von: GraFri
Geschrieben am: 25.04.2002 - 10:24:50

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

nach oben   nach unten

Danke es funkt! :-) o.T.
von: Steph@n
Geschrieben am: 25.04.2002 - 10:49:05


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Menüpunkte in Symbolleiste deaktivieren"