限制Excel使用所有的粘貼方法

限制Excel使用所有的粘貼方法

　　在Excel中限制使用粘貼功能，可以有效防止用戶(hù)將外部的數(shù)據(jù)復(fù)制粘貼到本工作薄。

　　以下是實(shí)現(xiàn)在Excel中使用粘貼功能的方法。

　　一、實(shí)現(xiàn)原理

　　使用VBA代碼來(lái)實(shí)現(xiàn)，實(shí)現(xiàn)的理論指導(dǎo)是：

　　禁用編輯菜單中的粘貼功能

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

　　限制使用右鍵菜單中的粘貼功能

　　限制使用鍵盤(pán)上的快捷鍵Ctrl+V鍵

　　二、實(shí)現(xiàn)方法

　　①禁用粘貼功能的代碼

　　Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

　　Application.CommandBars("Worksheet Menu Bar").Controls("編輯(E)").Controls("粘貼(P)").Enabled = False

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

　　Application.CommandBars("Worksheet Menu Bar").Controls("編輯(E)").Controls("選擇性粘貼(S)...").Enabled = False

　　Application.OnKey "^v", ""

　　End Sub

　　②解除粘貼功能的限制

　　Private Sub Workbook_BeforeClose(Cancel As Boolean)

　　Application.CommandBars("Worksheet Menu Bar").Controls("編輯(E)").Controls("粘貼(P)").Enabled = True

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

　　Application.CommandBars("Worksheet Menu Bar").Controls("編輯(E)").Controls("選擇性粘貼(S)...").Enabled = True

　　Application.OnKey "^v"

　　End Sub

【限制Excel使用所有的粘貼方法】相關(guān)文章：

珍惜所擁有的11-11

珍惜所擁有的作文12-24

珍惜所擁有的幸福10-18

珍惜所擁有的青春10-18

珍惜所擁有的青春02-13

珍惜所擁有的幸福02-18

珍惜所擁有的母愛(ài)作文08-21

關(guān)于珍惜所擁有的作文08-21

珍惜你所擁有的作文12-24

珍惜所擁有的的失敗作文10-26