Dzwebs.Net

撰写电脑技术杂文十余年

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

Admin | 2011-8-11 6:34:06 | 被阅次数 | 8046

温馨提示!

如果未能解决您的问题,请点击搜索;登陆可复制文章,点击登陆

  在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


该杂文来自: Excel杂文

上一篇:excel中的cos函数

下一篇:在Excel中以班级号为参照求所有同学各科成绩的总

网站备案号:

网站备案号:滇ICP备11001339号-7

版权属性:

Copyright 2007-2021-forever Inc. all Rights Reserved.

联系方式:

Email:dzwebs@126.com QQ:83539231 访问统计