设置excel中数据有效性不被复制黏贴破坏

最新推荐文章于 2024-09-12 17:24:45 发布

置顶

itAcmen

最新推荐文章于 2024-09-12 17:24:45 发布

阅读量1.5w

点赞数 6

分类专栏： poi 文章标签：数据有效性

本文链接：https://blog.csdn.net/itacmen/article/details/88640310

版权

加入vbs脚本编程,同时开启宏。但是如果用户电脑不开启宏,意味着生成的excel中vbs脚本失效。操作步骤如下：
在这里插入图片描述点击开发工具,启动宏,如果wps的话开启需要安装插件

点击根据步骤1,2,3将vbs代码复制黏贴进去，vbs代码在文章底部。
重点!重点!重点!最后记得要加密整个工作簿，可以编辑的单元格要设置取消锁定（选中单元格，鼠标右键后点击单元格格式）。
在这里插入图片描述
vbs代码如下:

Private Sub Worksheet_Change(ByVal Target As Range)
   Dim rng As Range
   Dim c As String
    For Each rng In Target
    If Not rng.Validation.Value Then
        Application.Undo
        Dim msg As String
        msg = "粘贴的数据不符合校验规则：位置在第" & rng.Row & "行，