如何在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中的單元格來防止或禁用編輯模式？