Shortcut Keys

C

Chip Pearson

John,

You really can't disable all of Excel's shortcut keys.


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com
 
J

Jim Rech

By assigning the shortcut a null macro:

Sub KillCtrlA()
Application.OnKey "^a", ""
End Sub

to reset:

Sub AllowCtrlA()
Application.OnKey "^a"
End Sub
 
R

Ron de Bruin

You really can't disable all of Excel's shortcut keys.

Maybe this <g>

Sub Disable()
Dim K, Key, Key2, I As Integer
On Error Resume Next

For Each Key In Array("+", "^", "%", "+^", "+%", "^%", "+^%")

K = Array("{BS}", "{BREAK}", "{CAPSLOCK}", "{CLEAR}", "{DEL}", _
"{DOWN}", "{END}", "{ENTER}", "~", "{ESC}", "{HELP}", "{HOME}", _
"{INSERT}", "{LEFT}", "{NUMLOCK}", "{PGDN}", "{PGUP}", _
"{RETURN}", "{RIGHT}", "{SCROLLLOCK}", "{TAB}", "{UP}")

For Each Key2 In K
Application.OnKey Key & Key2, ""
Next Key2

For I = 0 To 255
Application.OnKey Key & Chr$(I), ""
Next I

For I = 1 To 15
Application.OnKey Key & "{F" & I & "}", ""
Application.OnKey "{F" & I & "}", ""
Next I
Next
End Sub


Sub Enable()
Dim K, Key, Key2, I As Integer
On Error Resume Next

For Each Key In Array("+", "^", "%", "+^", "+%", "^%", "+^%")

K = Array("{BS}", "{BREAK}", "{CAPSLOCK}", "{CLEAR}", "{DEL}", _
"{DOWN}", "{END}", "{ENTER}", "~", "{ESC}", "{HELP}", "{HOME}", _
"{INSERT}", "{LEFT}", "{NUMLOCK}", "{PGDN}", "{PGUP}", _
"{RETURN}", "{RIGHT}", "{SCROLLLOCK}", "{TAB}", "{UP}")

For Each Key2 In K
Application.OnKey Key & Key2
Next Key2

For I = 0 To 255
Application.OnKey Key & Chr$(I)
Next I

For I = 1 To 15
Application.OnKey Key & "{F" & I & "}"
Application.OnKey "{F" & I & "}"
Next I
Next
End Sub
 
Top