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

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

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

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

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

请执行以下操作以禁用Excel工作簿中的剪切，复制和粘贴功能。

1.在工作簿中，您需要禁用剪切，复制和粘贴功能，请按 其他 + F11 同时打开 Microsoft Visual Basic应用程序 窗口。

2.在 Microsoft Visual Basic应用程序 窗口，请双击 的ThisWorkbook 在左边 项目 窗格，然后将以下VBA代码复制并粘贴到 本工作簿（代码） 窗口。 看截图：

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.然后按 其他 + Q 退出键 Microsoft Visual Basic应用程序 窗口。

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

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

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