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

首頁 > 辦公 > Excel > 正文

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

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

  在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


發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 英超| 万全县| 新绛县| 尉犁县| 秭归县| 卓尼县| 毕节市| 二手房| 顺昌县| 威信县| 潍坊市| 驻马店市| 岐山县| 铁岭县| 准格尔旗| 安泽县| 晋州市| 天峻县| 新和县| 章丘市| 来安县| 盐边县| 青田县| 武定县| 青铜峡市| 鹿邑县| 同心县| 安化县| 湟源县| 东乌珠穆沁旗| 巩留县| 六安市| 乌拉特前旗| 汉中市| 阿坝| 双流县| 区。| 鄂尔多斯市| 德江县| 昌黎县| 肇源县|