国产探花免费观看_亚洲丰满少妇自慰呻吟_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


發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 垣曲县| 任丘市| 东源县| 佛山市| 马鞍山市| 甘孜县| 虎林市| 长乐市| 洛宁县| 大新县| 新和县| 来安县| 曲沃县| 西充县| 新乡县| 崇信县| 蓝田县| 武宁县| 陕西省| 廉江市| 大竹县| 门源| 昆明市| 墨江| 河北区| 宁都县| 博兴县| 洪湖市| 茂名市| 济源市| 汉寿县| 南江县| 土默特左旗| 江华| 石屏县| 同江市| 大丰市| 利辛县| 南通市| 临泉县| 南宫市|