限制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