如何在Excel中禁用剪切、复制和粘贴功能？

假设您有一个包含重要数据的工作簿，需要防止这些数据被剪切、复制和粘贴。该如何实现呢？本文提供了一种VBA方法，帮助您在Excel工作簿中同时禁用剪切、复制和粘贴功能。

使用VBA代码禁用剪切、复制和粘贴功能

使用VBA代码禁用剪切、复制和粘贴功能

请按照以下步骤操作以在Excel工作簿中禁用剪切、复制和粘贴功能。

1. 在需要禁用剪切、复制和粘贴功能的工作簿中，请同时按下 Alt + F11 键打开 Microsoft Visual Basic for Applications 窗口。

2. 在 Microsoft Visual Basic for Applications 窗口中，请双击左侧“项目”窗格中的 ThisWorkbook，然后将以下VBA代码复制并粘贴到 ThisWorkbook（代码） 窗口中。参见截图：

VBA代码：在Excel中同时禁用剪切、复制和粘贴功能

Private Sub Workbook_Activate()
Application.CutCopyMode = False
Application.OnKey "^c", ""
Application.CellDragAndDrop = False
End Sub

Private Sub Workbook_Deactivate()
Application.CellDragAndDrop = True
Application.OnKey "^c"
Application.CutCopyMode = False
End Sub

Private Sub Workbook_WindowActivate(ByVal Wn As Window)
Application.CutCopyMode = False
Application.OnKey "^c", ""
Application.CellDragAndDrop = False
End Sub

Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
Application.CellDragAndDrop = True
Application.OnKey "^c"
Application.CutCopyMode = False
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Application.CutCopyMode = False
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Application.OnKey "^c", ""
Application.CellDragAndDrop = False
Application.CutCopyMode = False
End Sub

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
Application.CutCopyMode = False
End Sub

3. 然后请按 Alt + Q 键退出 Microsoft Visual Basic for Applications 窗口。

现在，您无法从该工作簿中剪切或复制数据，同时，您从其他工作表或工作簿中复制的数据也无法粘贴到此工作簿中。

备注：运行上述VBA代码后，拖放功能也会被禁用。

使用 Kutools AI 解锁 Excel 魔法

• 智能执行：执行单元格操作、分析数据和创建图表——所有这些都由简单命令驱动。
• 自定义公式：生成量身定制的公式，优化您的工作流程。
• VBA 编码：轻松编写和实现 VBA 代码。
• 公式解释：轻松理解复杂公式。
• 文本翻译：打破电子表格中的语言障碍。

通过人工智能驱动的工具增强您的 Excel 能力。立即下载，体验前所未有的高效！

相关文章：

• 如何在Excel中禁用工作表标签上的右键单击功能？
• 如何在Excel中禁用指定工作表或整个工作簿的右键菜单？
• 如何通过双击单元格来防止或禁用编辑模式？