可通过VBA拦截Paste事件并取消操作来禁止复制粘贴：一、在工作表模块中编写SelectionChange和BeforeRightClick事件代码；二、在ThisWorkbook中禁用Ctrl+V快捷键；三、锁定单元格并启用工作表保护；四、用API检测并清空剪贴板。
如果您希望在Excel表格中限制用户只能手动输入数据，禁止通过复制粘贴方式录入内容，则可以通过VBA代码拦截Worksheet的Paste事件并取消操作。以下是实现该功能的具体步骤：
一、启用开发工具并插入VBA代码
该方法通过捕获工作表的SelectionChange和BeforeRightClick事件间接抑制粘贴行为，并结合禁用快捷键粘贴与右键菜单控制，达到阻止粘贴的目的。需将代码放置于对应工作表的模块中，而非ThisWorkbook或标准模块。
1、在Excel中按Alt + F11打开VBA编辑器。
2、在左侧“工程资源管理器”中，双击需要保护的工作表名称（如Sheet1）。
3、在右侧代码窗口中，粘贴以下事件代码：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.CutCopyMode = False
End Sub
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
MsgBox "禁止使用右键粘贴，请手动输入数据", vbInformation, "输入限制"
End Sub
二、禁用Ctrl+V快捷键粘贴
该方法通过拦截Application级的KeyDown事件，识别Ctrl+V组合键并取消其默认行为，从而阻止键盘粘贴。需将代码写入ThisWorkbook模块，并确保工作簿启用宏。
1、在VBA编辑器中，双击ThisWorkbook节点。
2、粘贴以下代码：
Private Sub Workbook_Open()
Application.OnKey "^v", "DisablePaste"
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnKey "^v"
End Sub
Sub DisablePaste()
MsgBox "已禁用Ctrl+V粘贴功能，请手动输入", vbExclamation, "输入限制"
End Sub
三、锁定单元格并启用工作表保护
该方法通过设置单元格格式为“锁定”，再启用工作表保护，使非手动输入的操作（如粘贴）被系统拒绝。此方式无需VBA，但需配合前两种方法增强防护强度。
1、选中允许手动输入的单元格区域（如A1:D100）。
2、右键→“设置单元格格式”→“保护”选项卡→取消勾选“锁定”。
3、全选工作表（Ctrl+A），右键→“设置单元格格式”→“保护”→确认勾选“锁定”。
4、点击“审阅”选项卡→“保护工作表”，输入密码并确保“选定锁定单元格”和“选定未锁定的单元格”均取消勾选。
四、拦截PasteSpecial与剪贴板内容检测
该方法通过API调用检测系统剪贴板是否含文本数据，并在用户触发粘贴动作时主动清空剪贴板内容，使粘贴操作无实际数据可贴。适用于高安全要求场景。
1、在VBA编辑器中插入一个新模块（右键工程→插入→模块）。
2、粘贴以下声明与函数：
Declare PtrSafe Function OpenClipboard Lib "user32" (ByVal hwnd As LongPtr) As Long
Declare PtrSafe Function EmptyClipboard Lib "user32" () As Long
Declare PtrSafe Function CloseClipboard Lib "user32" () As Long
Sub ClearClipboardOnPaste()
If OpenClipboard(0) 0 Then
EmptyClipboard
CloseClipboard
End If
MsgBox "检测到粘贴尝试，剪贴板内容已被清除", vbInformation
End Sub
3、在工作表的BeforeRightClick或SelectionChange事件中添加调用：ClearClipboardOnPaste。
