如何在Excel中停用剪下、複製和貼上功能?


Excel是一個用於處理資料和進行大量計算的有用工具。在某些情況下,為了避免無意的資料更改或未經授權的複製,您可能希望限制某些功能。您可以透過關閉剪下、複製和貼上功能來維護Excel工作簿的完整性和安全性。本文將探討實現此目標的各種方法,使您能夠根據自己的特定需求修改Excel的行為。讓我們開始吧!

停用剪下、複製和貼上功能

在這裡,我們將為整個工作簿插入VBA程式碼以完成任務。讓我們來看一個簡單的過程,學習如何在Excel中停用剪下、複製和貼上功能。

步驟1

考慮任何Excel工作表。首先,右鍵單擊工作表名稱,然後選擇“檢視程式碼”以開啟VBA應用程式。然後雙擊此工作簿。

右鍵單擊 > 檢視程式碼 > 雙擊。

步驟2

然後將下面提到的程式碼複製到文字框中,類似於下圖。

程式碼

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關閉VBA應用程式以完成任務。

結論

在本教程中,我們使用了一個簡單的示例來演示如何在Excel中停用剪下、複製和貼上功能。

更新於:2023年7月11日

2K+ 次瀏覽

啟動你的職業生涯

透過完成課程獲得認證

開始學習
廣告