如何在Excel中禁用剪切，複製和粘貼功能？

假設您有一本工作簿，其中包含需要保護的重要數據，以防止其被剪切，複製和粘貼。 如何實現呢？ 本文提供了一種VBA方法，供您在Excel工作簿中同時禁用剪切，複製和粘貼功能。

使用VBA代碼禁用剪切，複製和粘貼功能

使用VBA代碼禁用剪切，複製和粘貼功能

請執行以下操作以禁用Excel工作簿中的剪切，複製和粘貼功能。

1.在工作簿中，您需要禁用剪切，複製和粘貼功能，請按 其他 + F11 同時打開 Microsoft Visual Basic for Applications 窗口。

2。 在裡面 Microsoft Visual Basic for Applications 窗口，請雙擊 的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 for Applications 窗口。

現在，您不能從該工作簿中剪切或複制數據，同時，您從其他工作表或工作簿中復制的數據也無法粘貼到該工作簿中。

備註：運行上述VBA代碼後，拖放功能也被禁用。

使用 Kutools AI 解鎖 Excel 魔法

• 智慧執行：執行單元格操作、分析資料並建立圖表 - 所有這些都由簡單的命令驅動。
• 自定義公式：產生客製化公式以簡化您的工作流程。
• VBA編碼：輕鬆編寫和實作 VBA 程式碼。
• 公式解讀：輕鬆理解複雜的公式。
• 文字翻譯：打破電子表格中的語言障礙。

使用 AI 支援的工具增強您的 Excel 功能。 立即下載 並體驗前所未有的效率！

相關文章:

• 如何在Excel中禁用工作表標籤上的右鍵單擊？
• 如何在Excel中的指定工作表或整個工作簿中禁用右鍵菜單？
• 如何通過雙擊Excel中的單元格來防止或禁用編輯模式？