Gruppe
Allgemein
Bereich
Einstellung
Thema
Vorgegebene Shortcuts ausschalten
Problem
Wie kann ich die eingebauten und benutzerdefinierten Shortcuts aus- und wieder einschalten?
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: basMain
Sub ShortysOff()
Dim iCounter As Integer
On Error Resume Next
For iCounter = 1 To 255
Application.OnKey "^" & Chr(iCounter), ""
Next iCounter
On Error GoTo 0
End Sub
Sub ShortysOn()
Dim iCounter As Integer
On Error Resume Next
For iCounter = 1 To 255
Application.OnKey "^" & Chr(iCounter)
Next iCounter
On Error GoTo 0
End Sub