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

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 静乐县| 宜良县| 武山县| 梁平县| 喀喇| 安阳市| 民和| 汝城县| 左云县| 隆回县| 嘉黎县| 北碚区| 信丰县| 内乡县| 鲜城| 辽源市| 灵寿县| 宿州市| 鄂伦春自治旗| 桃源县| 巴林右旗| 永昌县| 新和县| 乐山市| 锦屏县| 陵川县| 广汉市| 达日县| 三穗县| 黄龙县| 昌平区| 丰城市| 浦东新区| 蒙阴县| 灌阳县| 会泽县| 天津市| 汶川县| 雷州市| 漾濞| 逊克县|