如何拦截Excel单元格复制操作并触发自定义方法

要实现禁用Excel默认复制操作，转而触发你已有的班次报告邮件生成方法，可以通过VBA的工作表事件来完成，具体步骤如下：

1. 打开目标工作表的VBA代码窗口 #

右键Shift Report工作表的标签 → 选择「查看代码」，打开VBA编辑器的工作表模块。

2. 编写BeforeCopy事件代码 #

在模块中粘贴以下代码，替换自定义方法名为你已有的邮件生成方法：

Private Sub Worksheet_BeforeCopy(Cancel As Boolean)
    ' 取消系统默认的复制行为
    Cancel = True
    
    ' 调用你的自定义邮件生成方法（替换成实际方法名）
    Call GenerateShiftReportEmail
End Sub

• Cancel = True会直接阻止默认复制操作的执行；
• Call GenerateShiftReportEmail替换为你已经编写好的、用于生成Outlook邮件的方法名称。

3. 可选：限制触发范围（按需添加） #

如果只希望在选中员工班次数据区域时才触发自定义方法，其他区域允许正常复制，可以添加范围判断：

Private Sub Worksheet_BeforeCopy(Cancel As Boolean)
    ' 假设员工班次数据在A2:D100范围内，可根据实际调整
    If Not Intersect(Selection, Me.Range("A2:D100")) Is Nothing Then
        Cancel = True
        Call GenerateShiftReportEmail
    End If
    ' 未选中目标区域时，保留默认复制功能
End Sub

4. 保存与启用宏 #

• 将工作簿保存为「Excel启用宏的工作簿（.xlsm）」格式，否则宏无法生效；
• 打开工作簿时，确保启用宏（在安全提示中选择「启用内容」）。

测试验证 #

选中目标员工的班次信息，尝试通过快捷键Ctrl+C、右键菜单「复制」或功能区「复制」按钮执行复制操作，此时系统不会执行默认复制，而是自动运行你的邮件生成方法。

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