Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Vorgegebene Shortcuts ausschalten

Gruppe

Einstellung

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