正如注解中所述，Application.Onkey不应该对编辑模式下的按键行为有任何影响，所以这告诉我，这可能是Excel/VBA的一个bug。
这可能是由于您设置了很多OnKey目标，导致一些处理按键的进程行为不稳定，甚至有时会挂起。
有一件事可以尝试，那就是减少你设置的组合键的数量。您尝试仅在第一个循环中设置1，785（7 x 255）OnKey目标！
如果你的目标是键盘快捷键，你当然可以将字符的范围从32减少到255，因为我真的怀疑你的键盘可以输出不可打印的ascii字符。您甚至可以考虑将其减少到32到127，这取决于您的键盘上是否有重音字符。
如果这还不足以修复它，您可以尝试将Application.OnKey组合重置为原始状态，并重新禁用所有快捷方式，以查看是否正确重置。
例如，您可以修改过程的版本，利用传递Application.OnKey "...", Null将重置传递的键的行为的事实：

Sub ShortCutKeysToggle(Enabled As Boolean)

    Dim Proc As Variant
    If Enabled Then
        Proc = Null
    Else
        Proc = ""
    End If

    ShortCutKeysInitializeVariables

    ' Combinations
    For Each Key In KeyArray
        For i = 32 To 255
            On Error Resume Next
            Application.OnKey Key & Chr(i), Proc
        Next i
    Next Key

    ' Functions keys
    For i = 1 To 12
        On Error Resume Next
        Application.OnKey "{F" & i & "}", Proc
    Next i

    ' Combinations & Functions keys
    For Each Key In KeyArray
        For i = 1 To 12
            On Error Resume Next
            Application.OnKey Key & "{F" & i & "}", Proc
        Next i
    Next Key

End Sub

然后，你可以有以下过程来切换或重置键时，你得到的错误，你有。

Sub ShortCutKeysEnable()
    ShortCutKeysToggle True
End Sub

Sub ShortCutKeysDisable()
    ShortCutKeysToggle False
End Sub

Sub ShortCutKeysReset()
    ShortCutKeysToggle True
    ShortCutKeysToggle False
End Sub

更新：以下部分现在无关紧要，因为解决问题的不是关闭并重新打开文件，而是关闭并重新打开Excel应用程序。

如果这不起作用，你提到关闭和打开文件解决了这个问题，所以你总是可以有一个宏，关闭文件，重新打开它。

Sub CloseAndReopenActiveWorkbook()
    
    Application.ScreenUpdating = False
    
    Dim FileName As String
    FileName = ActiveWorkbook.FullName
    
    ActiveWorkbook.Close SaveChanges:=True
    Workbooks.Open FileName:=FileName
    
    Application.ScreenUpdating = True

End Sub

1.确保代码被放置在适当的模块中并被正确执行。请仔细检查是否从代码或Excel工作簿中的适当位置调用ShortCutKeysDisable过程。
1.检查Excel工作簿中是否存在任何冲突的代码或宏。如果有其他宏或外接程序操作快捷键，则它们可能会干扰ShortCutKeysDisable过程的行为。
1.检查代码中是否有错误或不一致之处。确保语法正确，所有变量和对象都正确声明和使用。检查代码中是否有任何错别字或缺少的字符。
1.请考虑在新的空白Excel工作簿中测试代码，以隔离与当前工作簿中现有设置或配置的任何潜在冲突。
1.如果问题仍然存在，请尝试在其他计算机或Excel安装上运行代码，以查看问题是否特定于您的环境。