Est-il possible de désactiver tous les raccourcis clavier ?

sub Désactive()
 Dim K, I As Integer
 On Error Resume Next
 For Each K In
 Array("^", "%", "+^", "+%", "^%", "+^%")
  For I = 32 To 255
 
 Application.OnKey K & Chr$(I), ""
  Next I
 Next K
 end sub

sub
 Réactive()
 Dim K, I As Integer
 On Error Resume Next
 For Each K In
 Array("^", "%", "+^", "+%", "^%", "+^%")
  For I = 32 To 255
 
 Application.OnKey K & Chr$(I)
  Next I
 Next K
 end sub

Ça ne désactive "que" les raccourcis utilisant une touche alphanumérique.