使用Application.OnKey捕获快捷键时出现宏不可用错误的解决求助

问题根源 #

你遇到的报错核心原因是ProcessNext和ProcessPrior被定义成了Private（私有）子过程。Application.OnKey是应用程序级的命令，无法访问工作簿模块里的私有成员——从模板打开时能临时运行，是因为模板处于当前活动上下文，但另存为xlsm后，私有过程的可见性被严格限制，就触发了报错。

解决方案 #

把这两个过程的Private改成Public，让它们变成公共可访问的过程；或者更推荐把这些过程移到标准模块（比如新建一个Module）里，标准模块的过程默认就是Public的，更适合这类全局调用的宏。

修改后的代码（方案1：在ThisWorkbook模块中改为Public）

Option Explicit

Private Sub Workbook_Open()
    ' 绑定Ctrl+Shift+N切换到下一张工作表
    Application.OnKey "^+N", "ProcessNext"
    ' 绑定Ctrl+Shift+P切换到上一张工作表
    Application.OnKey "^+P", "ProcessPrior"
End Sub

' 改为Public，允许Application.OnKey访问
Public Sub ProcessNext()
    Dim lIndex As Long
    With ThisWorkbook
        lIndex = ActiveSheet.Index
        ' 简化判断逻辑
        lIndex = IIf(lIndex = .Sheets.Count, 1, lIndex + 1)
        .Sheets(lIndex).Activate
    End With
End Sub

' 改为Public，允许Application.OnKey访问
Public Sub ProcessPrior()
    Dim lIndex As Long
    With ThisWorkbook
        lIndex = ActiveSheet.Index
        ' 简化判断逻辑
        lIndex = IIf(lIndex = 1, .Sheets.Count, lIndex - 1)
        .Sheets(lIndex).Activate
    End With
End Sub

' 可选：关闭工作簿时恢复默认快捷键
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.OnKey "^+N"
    Application.OnKey "^+P"
End Sub

推荐方案2：将过程移到标准模块

1. 插入一个新的标准模块（右键VBA工程→插入→模块）
2. 在标准模块中写入以下代码：

Option Explicit

Public Sub ProcessNext()
    Dim lIndex As Long
    With ThisWorkbook
        lIndex = ActiveSheet.Index
        lIndex = IIf(lIndex = .Sheets.Count, 1, lIndex + 1)
        .Sheets(lIndex).Activate
    End With
End Sub

Public Sub ProcessPrior()
    Dim lIndex As Long
    With ThisWorkbook
        lIndex = ActiveSheet.Index
        lIndex = IIf(lIndex = 1, .Sheets.Count, lIndex - 1)
        .Sheets(lIndex).Activate
    End With
End Sub

3. ThisWorkbook模块的Workbook_Open和Workbook_BeforeClose代码保持不变。

额外提示 #

添加Workbook_BeforeClose事件恢复默认快捷键，能避免关闭当前工作簿后，其他工作簿的Ctrl+Shift+N/P快捷键被意外占用。

内容的提问来源于stack exchange，提问作者j2associates