Excel Application.OnKey无法运行宏

所以我看过很多其他关于这个问题的帖子，他们都说把sub放在一个标准模块中，而不是工作表中，我有，但我仍然像其他人一样得到错误

Cannot run the macro "C:\myfile.xlsm'!SaveApp'. The macro may not be available in this workbook or all macros may be disabled.

我在一个模块中有SaveApp子模块，如下所示：

Public Sub SaveApp()
 ' My code lives here
End Sub

我有密码

Private Sub Workbook_Open()
     With Application
         .OnKey "+^s", "SaveApp" 'Ctrl+Shift+S
     End With
End Sub

---

看起来很直截了当，所以不确定我错过了什么

你启用宏了吗？文件>选项>信任中心>信任中心设置>宏设置>启用宏是的，我的文件中有许多其他宏，并且所有宏都正常工作。我已尝试使用工作簿_Open（）代码复制错误，并在其中仅包含一个Msgbox的情况下实现SaveApp。。。我没有得到一个错误。因此，撇开环境差异不谈，唯一的其他差异似乎是SaveApp例程中的代码。如果您将该代码更改为简单无害的代码（例如msgbox或debug.print），错误是否仍会发生？是的，它仍会发生，但我可能已经找到了一种不同的方法来实现我想要的。不必使用onkey