国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 辦公 > Excel > 正文

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

2024-08-23 19:28:09
字體:
來源:轉載
供稿:網友

  在Excel中限制使用粘貼功能,可以有效防止用戶將外部的數據復制粘貼到本工作薄。

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

  一、實現原理

  使用VBA代碼來實現,實現的理論指導是:

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

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

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

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

  二、實現方法

  ①禁用粘貼功能的代碼

  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

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 延川县| 中牟县| 大新县| 万盛区| 江津市| 团风县| 理塘县| 金坛市| 广宁县| 双牌县| 高清| 吉林省| 上杭县| 喀喇沁旗| 溧阳市| 遂溪县| 利辛县| 平利县| 遂川县| 伽师县| 安义县| 交城县| 治县。| 曲阳县| 汝州市| 台东市| 湾仔区| 洪洞县| 靖宇县| 汤原县| 武山县| 信阳市| 鹿邑县| 永清县| 峨边| 黄山市| 金沙县| 望都县| 华亭县| 东源县| 吴江市|