如何将Ctrl+C触发的单元格变色宏限制在特定Excel工作簿？

我在测试工作中用Excel生成条码列表，复制用过的条码后会手动修改单元格颜色标记已使用。原本想通过宏实现按Ctrl+C复制时自动给选中单元格变色，但录制宏绑定Ctrl+C时出现“Out of Stack Space”错误，后来用以下Macro5实现了功能：

Sub Macro5()
'
' Macro5 Macro
'
' Keyboard Shortcut: Ctrl+c
'
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent4
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Selection.Copy
End Sub

但这个宏会作用于所有打开的工作簿，请问怎么把它限制在特定工作簿中？

解决方案 #

方法1：将宏存储在目标工作簿专属模块中

• 打开需要绑定宏的目标工作簿，按下Alt+F11打开VBA编辑器
• 在左侧项目窗口找到该工作簿，右键点击并选择「插入」→「模块」
• 将Macro5代码粘贴到这个新建模块中
• 此后只有打开该工作簿时，Ctrl+C快捷键才会触发这个带变色功能的宏，其他工作簿不受影响

方法2：在宏代码中添加工作簿判断逻辑

如果宏已经存放在个人宏工作簿（Personal.xlsb）中，可在代码开头加入判断逻辑，仅当当前活动工作簿是目标工作簿时才执行变色操作：

Sub Macro5()
'
' Macro5 Macro
'
' Keyboard Shortcut: Ctrl+c
'
    ' 替换为你的目标工作簿全名，例如"条码管理列表.xlsx"
    If ActiveWorkbook.Name <> "条码管理列表.xlsx" Then
        ' 非目标工作簿时，仅执行默认复制操作
        Selection.Copy
        Exit Sub
    End If
    
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent4
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Selection.Copy
End Sub

注意：如果目标工作簿尚未保存，名称会是"Book1"这类临时名称，保存后需同步修改代码中的工作簿名称。

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