为了确保数据准确性,在A列设置了数据验证,可以输入值的列表如下图所示。

但是如果用户使用复制-粘贴,仍然可以输入其他值,如下图所示。

使用如下事件带可以实现禁止粘贴。

Private Sub Worksheet_Change(ByVal Target As Range)On Error Resume NextApplication.EnableEvents = FalseIf CommandBars.FindControl(, 128).List(1) = Left(CommandBars.FindControl(, 22).Caption, 2) ThenApplication.UndoMsgBox "请勿使用粘贴!", vbExclamationEnd IfApplication.EnableEvents = True
End Sub

【代码解析】
第2行代码忽略运行时错误。
第3行代码禁用系统事件。
第4行代码是整个过程代码的核心,利用“撤销”功能实现阻止粘贴。
CommandBars.FindControl(, 128)用于定位Excel工具栏中的“撤销”。
CommandBars.FindControl(, 22)用于定位Excel工具栏中的“粘贴”。
注意:关于ID值(128和22)在不同Excel版本中可能会有差异,上述代码在Excel 365中测试通过。
如果“撤销”清单中的最后一个操作时“粘贴”,那么第6行代码执行撤销操作,第7行代码给出提示。

效果如下图所示。

如何在数据验证单元格区域禁用粘贴相关推荐

  1. 计算机所选区域单元格数值,筛选Excel2007单元格区域或表中的数据

    Excel2007使用自动筛选来筛选数据,可以快速而又方便地查找和使用单元格区域或表列中数据的子集. 了解有关筛选的详细信息 筛选过的数据仅显示那些满足指定条件 (条件:所指定的限制查询或筛选的结果集 ...

  2. 计算机单元格复制,2010年职称计算机考试:单元格区域的复制和移动

    单元格区域复制是将某个单元格或单元格区域内容复制到指定的其他单元格或单元格区域中,原有单元格或单元格区域内容不变;而单元格区域移动是将某个单元格或单元格区域内容移动到指定的其他单元格或单元格区域中,而 ...

  3. 2、Power Query-动态汇总单元格区域数据

    数据来源之单元格区域数据(动态汇总单元格区域数据) 这次主要讲解power query的基本操作界面. 任务:求出各个行业第一.二季度的总数据. 例子非常简单,聪明的朋友可能会认为用透视表更加简单,这 ...

  4. 选择邻近区域时: 代码操作与实际EXCEL键盘操作的区别 Currentregion与CTRL+A的区别, 又存在于,比如第一行有数据(合并单元格), 第二行为空, 第三行往下有数据, 第一行选中其中

    选择邻近区域时: 代码操作与实际EXCEL键盘操作的区别 Currentregion与CTRL+A的区别, 又存在于,比如第一行有数据(合并单元格), 第二行为空, 第三行往下有数据, 第一行选中其中 ...

  5. Excel如何将某单元格区域数据随机排序

    ​ 如下图是某公司人员名单,现在想要对这些员工进行随机分组.即对单元格区域内数据进行随机排序. 选中B2:E10单元格区域 ​ 点击下图选项(Excel工具箱,百度它即可了解详细的下载安装方法,本文这 ...

  6. Excel催化剂开源第15波-VSTO开发之DataTable数据导出至单元格区域

    上篇提到如何从Excel界面上拿到用户的数据,另外反方向的怎样输出给用户数据,也是关键之处. VSTO最大的优势是,这双向的过程中,全程有用户的交互操作. 而一般IT型的程序,都是脱离用户的操作,只能 ...

  7. 个人永久性免费-Excel催化剂功能第81波-指定单元格区域内容及公式填充

    在日常数据处理过程中,需要对缺失数据进行填充时,按一定逻辑规则进行处理,实现快速填充,规范数据源.此篇给大家带来多种填充数据的场景. 业务使用场景 对各种系统中导出的数据,很多时候存在数据缺失的情况, ...

  8. 接口里面的方法都是抽象方法吗_单元格区域选取,竟然有这么多种方法,你都造吗?...

    在日常工作中, 怎么能少了Excel表格,相信我,如果你能把Excel用到极致,工作效率可是瞬间提升的,当然,可能还附带升职加薪哟! 关于单元格及单元格区域的选取可以说是Excel中最基本的操作之一, ...

  9. C#/VB.NET 复制Excel中的指定单元格区域

    本文介绍C#及VB.NET程序代码来复制Excel中的指定单元格区域,包括复制单元格文本及单元格样式.复制时,可在工作簿中的同一个sheet工作表内复制,也可在不同工作簿的不同sheet工作表间复制. ...

最新文章

  1. UVa307 - Sticks(DFS+剪枝)
  2. JAVA中文字符串编码--GBK转UTF-8
  3. Docker+Jenkins+Nginx+Spring Boot 自动化部署项目
  4. [FF-A]-01-Introduction
  5. a 标签中调用js的几种方法
  6. 加快vs2010的启动速度
  7. SWT外观:自定义FlatScrollBar颜色等
  8. 表格为一条细线的html代码,html制作细线表格的简单实例
  9. 数据科学和人工智能技术笔记 十五、支持向量机
  10. LoadRunner 常用C语言函数使用举例说明
  11. 【Caffe】caffe框架讲解,解析修改caffemodel与prototxt
  12. Git 工具之TortoiseGit小乌龟安装配置及使用
  13. 按键精灵 android,按键精灵手机版
  14. 3D模型格式全解|含RVT、3DS、DWG、FBX、IFC、OSGB、OBJ等70余种
  15. 帝国cms !--list.var1--,!--list.var2--的终极用法
  16. Delta RPMs disabled because /usr/bin/applydeltarpm not installed.问题解决记录
  17. 软件研发模型和软件测试模型
  18. 牛X,网易开源了这个项目后,结果被山寨出了无数个网易云音乐APP,网友炸锅了!...
  19. 【Learn and record】 天气现象选码原则
  20. 腾讯云「轻量应用服务器」开放公测!

热门文章

  1. 三日月くるみ - 魔法みたいな恋したい
  2. c++中引用作为函数参数
  3. 央视主持人都在用的无限领夹麦克风快充方案
  4. 互联网开放平台纵横论
  5. Python入门基础总结笔记——正则表达式
  6. 读薄《高性能MySql》(三)索引优化
  7. 如何实现罗克韦尔PLC的模拟量采集和远程上下载?
  8. 投资组合计算器(1)
  9. canvas星空连线背景
  10. Redis中使用Lua脚本(续)- Linux下Lua-cjson开源库的安装和使用