Controls ausblenden



Excel-Version: 2000
nach unten

Betrifft: Controls ausblenden
von: Guido Ludwig
Geschrieben am: 09.05.2002 - 08:35:52

Guten Morgen Spezialisten,
ich weiß inzwischen, dass man mit - For Each Ctrl In Application.Commandbars("Format").Controls, Ctrl.Eabled=False, Next Ctrl - die Menuepunkte ausblenden kann und das für den Menuepunkt Fenster das Wort Window eingesetzt werden muss. Wie heissen aber die anderen Menuepunkte (Datei, Bearbeiten ...) und deren Unterpunkte in Englisch bzw. wo kann ich das nachlesen und wie kann ich einen einzelnen Unterpunkt eines Menues (z.B. Fixierung aufheben bei Fenster resp. Window)ausblenden?
Vielen Dank für Eure Unterstützung.
Gruß aus Würzburg
G.Ludwig

nach oben   nach unten

Re: Controls ausblenden
von: Reto
Geschrieben am: 09.05.2002 - 09:58:25

In deutsch

Sub Deaktivieren()
CommandBars(1).Controls("Datei").Enabled = False
CommandBars(1).Controls("Extras").Enabled = False
CommandBars(1).Controls("Daten").Enabled = False
CommandBars(1).Controls("Format").Enabled = False
CommandBars(1).Controls("Einfügen").Enabled = False
CommandBars(1).Controls("Ansicht").Enabled = False
CommandBars(1).Controls("Bearbeiten").Enabled = False
CommandBars(1).Controls("?").Enabled = False
End Sub
Sub Aktivieren()
CommandBars(1).Controls("Datei").Enabled = True
CommandBars(1).Controls("Extras").Enabled = True
CommandBars(1).Controls("Daten").Enabled = True
CommandBars(1).Controls("Format").Enabled = True
CommandBars(1).Controls("Einfügen").Enabled = True
CommandBars(1).Controls("Ansicht").Enabled = True
CommandBars(1).Controls("Bearbeiten").Enabled = True
CommandBars(1).Controls("?").Enabled = True
End Sub


nach oben   nach unten

Danke, aber ...
von: Guido Ludwig
Geschrieben am: 09.05.2002 - 10:21:30

Danke Reto aber ich brauche die englischen Bezeichnungen und wie ich einen Unterpunkt (auch in Englisch) anspreche?
Gruß Guido

nach oben   nach unten

Re: Controls ausblenden
von: Monika Weber
Geschrieben am: 09.05.2002 - 10:22:56

Hallo Guido

Hier zwei Prozeduren, die dir eine Idee geben sollen, wie du Symbolleisten-Namen und ID's ermitteln kannst:


Sub test1()
' Du kannst die Symbolleisten etc. auch über die ID ansprechen
' Alle Symbolleistennamen und deren ID ermitteln
Dim str As String
   For i = 1 To Application.CommandBars.Count
      Cells(i, 1).Value = Application.CommandBars(i).Index
      Cells(i, 2).Value = Application.CommandBars(i).Name
      Cells(i, 3).Value = Application.CommandBars(i).NameLocal
   Next i
End Sub

Sub test2()
' Alle Menupunkte ausblenden
Dim ctrl As CommandBarControl
   For Each ctrl In Application.CommandBars("Worksheet Menu Bar").Controls
      ctrl.Visible = False
   Next ctrl
End Sub

Ich hoffe, dass dir das weiterhilft.
Es liebs Grüessli aus der Schweiz
Monika

Danke Monika für dein liebs Grüssli (o.T.)
von: Guido Ludwig
Geschrieben am: 09.05.2002 - 11:41:55


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Controls ausblenden"