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

首頁 > 辦公 > Excel > 正文

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

2019-10-25 20:22:36
字體:
來源:轉載
供稿:網友

  在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

 ?、诮獬迟N功能的限制

  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


發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 长海县| 北海市| 增城市| 武邑县| 莆田市| 连南| 仲巴县| 邳州市| 日土县| 外汇| 泌阳县| 贞丰县| 司法| 巍山| 边坝县| 双桥区| 安远县| 寻乌县| 西城区| 株洲县| 溧水县| 祁阳县| 鹰潭市| 蕉岭县| 曲沃县| 南城县| 安陆市| 读书| 柏乡县| 甘南县| 德保县| 长岛县| 纳雍县| 大新县| 寻乌县| 深泽县| 高密市| 桂平市| 雅江县| 富锦市| 东海县|