 <pre><code>Private Sub Workbook_Open() '// Disable Accelerators keys in Excel 2007-2013 Dim Ctl As CommandBarControl For Each Ctl In Application.CommandBars("&amp;Legacy Keyboard Support").Controls Ctl.Tag = Ctl.Caption Ctl.Caption = Replace(Ctl.Caption, "&amp;", "") Next Dim StartKeyCombination As Variant Dim KeysArray As Variant Dim Key As Variant Dim I As Long On Error Resume Next '// Shift key = "+" (plus sign) '// Ctrl key = "^" (caret) '// Alt key = "%" (percent sign '// We fill the array with this keys and the key combinations '// Shift-Ctrl, Shift- Alt, Ctrl-Alt, Shift-Ctrl-Alt For Each StartKeyCombination In Array("+", "^", "%", "+^", "+%", "^%", "+^%") KeysArray = Array("{BS}", "{BREAK}", "{CAPSLOCK}", "{CLEAR}", "{DEL}", _ "{DOWN}", "{END}", "{ENTER}", "~", "{ESC}", "{HELP}", "{HOME}", _ "{INSERT}", "{LEFT}", "{NUMLOCK}", "{PGDN}", "{PGUP}", _ "{RETURN}", "{RIGHT}", "{SCROLLLOCK}", "{TAB}", "{UP}") '// Disable the StartKeyCombination For Each Key In KeysArray Application.OnKey StartKeyCombination &amp; Key, "" Next Key '// Disable the StartKeyCombination key(s) with every other key For I = 0 To 255 Application.OnKey StartKeyCombination &amp; Chr$(I), "" Next I '// Disable the F1 - F15 keys in combination with the Shift, Ctrl or Alt key For I = 1 To 15 Application.OnKey StartKeyCombination &amp; "{F" &amp; I &amp; "}", "" Next I Next StartKeyCombination '// Disable the F1 - F15 keys For I = 1 To 15 Application.OnKey "{F" &amp; I &amp; "}", "" Next I '// Disable the PGDN and PGUP keys Application.OnKey "{PGDN}", "" Application.OnKey "{PGUP}", "" End Sub </code></pre> <p>Reference below links</p> <p><a href="http://www.rondebruin.nl/win/s5/win005.htm" rel="nofollow">Excel Automation</a></p> <p><a href="https://msdn.microsoft.com/en-us/library/ms724947(v=vs.85).aspx" rel="nofollow">SystemParametersInfo Function</a></p>