VBA禁用Excel拖拽功能后无法跨工作簿复制粘贴问题咨询

Application.CellDragAndDrop是Excel应用全局属性，并非工作簿专属。你现有代码的冲突点在于：当你从当前工作簿复制内容后切换到其他工作簿时，会先触发本工作簿的Workbook_Deactivate事件，此时修改CellDragAndDrop属性的操作会直接清空Excel剪切板，导致目标工作簿没有可粘贴的内容。

方案1（优先推荐）：使用工作表事件拦截拖拽，不修改全局属性 #

完全不需要调整应用级设置，仅在当前工作簿内拦截所有拖拽操作即可，不会影响任何复制粘贴逻辑：
将以下代码放入ThisWorkbook模块，替换原有代码即可：

Private Sub Workbook_SheetBeforeDragOver(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
    Cancel = True
End Sub

方案2：保留全局修改逻辑，增加剪切板状态判断 #

如果你确实需要修改全局拖拽设置，可以补充判断逻辑，仅在用户没有处于剪切/复制状态时调整属性，同时补充工作簿关闭时的属性恢复逻辑，避免全局设置被异常篡改：

Private Sub Workbook_Activate()
    Application.CellDragAndDrop = False
End Sub

Private Sub Workbook_Deactivate()
    ' 剪切/复制状态下不修改属性，避免清空剪切板
    If Application.CutCopyMode <> xlNone Then Exit Sub
    Application.CellDragAndDrop = True
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    ' 关闭工作簿时强制恢复全局设置
    Application.CellDragAndDrop = True
End Sub

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