habe eigendlich eine kurze Frage: Wie kann ich alle Tastenkombinationen mit Strg und mit Alt deaktivieren?
Vielen Dank im Vorraus?
Grüße
Gourmet
Sub AlleAus()
Dim i As Integer
On Error Resume Next
For i = 1 To 256
Application.OnKey "^{" & i & "}", "" 'Strg
Application.OnKey "%{" & i & "}", "" 'Alt
Application.OnKey "^%{" & i & "}", "" 'Strg-Alt
Next i
End Sub
Sub AlleEin()
Dim i As Integer
On Error Resume Next
For i = 1 To 256
Application.OnKey "^{" & i & "}" 'Strg
Application.OnKey "%{" & i & "}" 'Alt
Application.OnKey "^%{" & i & "}" 'Strg-Alt
Next i
End Sub
Gruß MatthiasDie erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen