ESC unterdrücken
29.09.2004 08:08:24
Erich
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