Shortcuts deaktivieren
04.03.2004 16:37:22
TF
wie kann ich alle, aber wirklich alle Shortcuts deaktivieren? Mit diesem Thread kann ich nach wie vor mit Alt + ... einiges aufrufen.
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
Danke vorab
TF