Gruppe
Allgemein
Problem
Wie kann ich die eingebauten und benutzerdefinierten Shortcuts aus- und wieder einschalten?
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