VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Vorgegebene Shortcuts ausschalten

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

    


Beiträge aus dem Excel-Forum zu den Themen Allgemein und Einstellung