在Excel中限制使用貼上功能，可以有效防止使用者將外部的資料複製貼上到本工作薄。

以下是實現在Excel中使用貼上功能的方法。

一、實現原理

使用VBA程式碼來實現，實現的理論指導是：

禁用編輯選單中的貼上功能

禁用編輯選單中的選擇性貼上功能

限制使用右鍵選單中的貼上功能

限制使用鍵盤上的快捷鍵Ctrl+V鍵

二、實現方法

①禁用貼上功能的程式碼

PrivateSubWorkbook_SheetSelectionChange(ByValShAsObject,ByValTargetAsRange)

Application.CommandBars("WorksheetMenuBar").Controls("編輯(E)").Controls("貼上(P)").Enabled=False

Application.CommandBars("cell").Controls(3).Enabled=False

Application.CommandBars("WorksheetMenuBar").Controls("編輯(E)").Controls("選擇性貼上(S)...").Enabled=False

Application.OnKey"^v",""

EndSub

②解除貼上功能的限制

PrivateSubWorkbook_BeforeClose(CancelAsBoolean)

Application.CommandBars("WorksheetMenuBar").Controls("編輯(E)").Controls("貼上(P)").Enabled=True

Application.CommandBars("cell").Controls(3).Enabled=True

Application.CommandBars("WorksheetMenuBar").Controls("編輯(E)").Controls("選擇性貼上(S)...").Enabled=True

Application.OnKey"^v"

EndSub