excel表格禁止复制粘贴用vBA实现

在 Excel 中禁止复制粘贴可以通过使用 VBA 脚本来实现。 您可以在工作簿或工作表的 VBA 编辑器中插入以下代码，以禁止复制整个工作簿或工作表：

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

Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.CutCopyMode = False End Sub

如果您只想禁止复制/粘贴一个特定的单元格范围，可以将此代码粘贴到工作表的 VBA 编辑器中：

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim rng As Range Set rng = Range("A1:C10") '定义不能复制的单元格范围 If Not Application.Intersect(Target, rng) Is Nothing Then Application.CutCopyMode = False End If End Sub

这些代码可以禁止在工作簿或工作表中复制粘贴，但不影响其他操作，例如编辑单元格内容。