Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.10.2025 14:57:29
Wenn Datum in Ferienzeit dann Name angeben
14.10.2025 09:39:44
VBA - Excel speichern und schließen (Laufzeitfehler 91)
13.10.2025 19:31:31
VBA Formel mit Bezug auf Überschrift anstatt Spalte
13.10.2025 15:10:17
Überlappende Zeiträume über mehrere Tabellen mit leeren Zell
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
760to764
760to764
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Befehle für ausblenden zusammenfassen ?

Forumthread: Befehle für ausblenden zusammenfassen ?

Befehle für ausblenden zusammenfassen ?
11.05.2006 13:55:39
Stefan
Hallo liebe "Gemeinde",
mit folgendem Code deaktiviere ich die Menü-punkte:
Application.CommandBars("Worksheet Menu Bar").Controls("Bearbeiten").Enabled = False
Application.CommandBars("Worksheet Menu Bar").Controls("Datei").Enabled = False
usw.
Geht das evtl. auch etwas eleganter (einzeilig), indem man die einzelnen Menüpunkte zusammenfasst ?
Danke für Eure Hilfe.
Gruß Stefan
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Befehle für ausblenden zusammenfassen ?
11.05.2006 14:06:10
u_
Hallo,
willst du alle deaktivieren?
application.CommandBars("worksheet menu bar").Enabled=False
Gruß
Geist ist geil!
(Dies ist ein allgemeines Statement und nicht an bestimmte Personen gerichtet.)
AW: Befehle für ausblenden zusammenfassen ?
11.05.2006 14:32:21
Stefan
Hallo u_ (?), Du hast mir doch schon einmal geholfen !
Ja das geht, nur wenn ich die Leiste dann in Private Sub Before_Close
mit application.CommandBars("worksheet menu bar").Enabled=True wieder sichtbar machen will bekommen ich grafische Probleme, d.h. ist nichts mit sichbar machen (warum auch immer). Wenn ich die Zeile in einem normale Makro habe und dies manuel aufrufe geht alles. Hast Du eine Idee, woran das liegen kann ? ? ?
Deswegen wollte ich die einzelnen Menüpunkte zumindest manuell deaktivieren.
Gruß Stefan
Anzeige
AW: Befehle für ausblenden zusammenfassen ?
11.05.2006 14:52:37
u_
Hallo,
keine Ahnung, warum das nicht klappt.
Nimm ne Schleife:

Sub Menue_aus()
Dim c As CommandBarControl
For Each c In Application.CommandBars("worksheet menu bar").Controls
c.Enabled = False
Next
End Sub

Gruß
Geist ist geil!
(Dies ist ein allgemeines Statement und nicht an bestimmte Personen gerichtet.)
Anzeige
AW: Befehle für ausblenden zusammenfassen ?
11.05.2006 15:37:52
nighty
hi all :)
meine spontanen ideen zu eventuellen verkuerzung
gruss nighty
Option Explicit

Sub test()
Do While zaehler > Controls.Count
zaehler = zaehler + 1
Application.CommandBars("Worksheet Menu Bar").Controls(1).Enabled = True
Wend
End Sub



Sub test1()
Dim index(2) As Integer
Dim zaehler As Integer
index(0) = 2
index(1) = 5
index(2) = 6
For zaehler = 0 To 2
Application.CommandBars("Worksheet Menu Bar").Controls(index(zaehler)).Enabled = True
Next zaehler
End Sub

Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige