Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
16.10.2025 17:25:38
bedingte Formatierung
16.10.2025 16:39:53
Ergebnisse nach rechts ausgeben
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
492to496
492to496
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

ESC unterdrücken

Forumthread: ESC unterdrücken

ESC unterdrücken
29.09.2004 08:08:24
Erich
Hallo EXCEL-Freunde,
habe im Forum für meine Frage wie ich ESC unterdrücken kann folgenden Vorschlag
erhalten:

Sub EscAus()
Application.OnKey "{ESC}", ""
End Sub



Sub EscEin()
Application.OnKey "{ESC}"
End Sub

Das habe ich jetzt getestet:
Private 

Sub Workbook_Open()
Application.OnKey "{ESC}", ""  ' ausschalten
Allerdings kann ich weiterhin das Öffnen unterbrechen.
Geht diese Unterdrückung beim Öffnen evtl. noch nicht?
Besten Dank für eine Hilfe!
mfg
Erich
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: ESC unterdrücken
29.09.2004 08:29:42
Matthias
Hallo Erich,
schau mal, ob es unter Excel 2000 schon
Application.EnableCancelKey
gibt. Siehe Online-Hilfe.
Gruß Matthias
AW: ESC unterdrücken
Ulf
Hast du bei einem Button die Eigenschaft Cancel auf TRUE einfestellt? Falls ja,
auf FALSE einstellen.
Ulf
AW: ESC unterdrücken
Erich
Hallo Ulf,
beim Starten (Makros aktivieren) kann ich noch keine Einstellungen vornehmen;
der Code läuft dann durch und greift auf einige weitere Codes (habe überall ESC
deaktiviert)zu; Buttons kommen nicht vor.
Ich vermute, das kann man nicht abstellen, da wohl die Aktivität "Makros aktivieren"
früher greift als der Code "Application.OnKey "{ESC}", "",.
Besten Dank - versuche alles mögliche, komme aber nicht weiter.
mfg
Erich
Anzeige
AW: ESC unterdrücken
Ulf
Option Explicit

Sub test()
Application.OnKey "{ESC}", ""
Application.EnableCancelKey = xlDisabled
'dein weiterer Code
Application.EnableCancelKey = xlInterrupt
Application.OnKey "{ESC}"
End Sub

Ulf
AW: ESC unterdrücken
Erich
Hallo Ulf,
danke nochmal - sieht schon besser aus.
Jetzt erfolgt eine Unterbrechung nur noch, wenn wirklich sofort nach "Makros aktivieren"
die ESC gedrückt wird - sobald zwei - drei Sekunden gewartet wird geht ESC ins Leere.
Eine Deaktivierung in dieser Phase wird wohl nicht möglich sein.
mfg
Erich
Anzeige
AW: ESC unterdrücken
Ulf
Eigentlich verstehe ich inzwischen gar nichts mehr, aber probier das mal noch:

Sub test()
Application.OnKey "{ESC}", ""
DoEvents
Application.EnableCancelKey = xlDisabled
'dein weiterer Code
Application.EnableCancelKey = xlInterrupt
Application.OnKey "{ESC}"
End Sub

Ulf
Anzeige
AW: ESC unterdrücken
Erich
Hallo Ulf,
danke nochmal; hat leider nichts gebracht.
Zu Deinem Verständnis: Ich möchte vermeiden, dass jemand beim Öffnen der Datei
mit der ESC-Taste die Open-Prozedur abbricht und dadurch über den Debuggen_Hinweis
in den VBA-Editor gelangt (habe ich zwar geschützt, aber der Schutz ist ja leicht zu
ändern).
mfg
Erich
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