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

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

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

vbs代码如下:

Private Sub Worksheet_Change(ByVal Target As Range)Dim rng As RangeDim c As StringFor Each rng In TargetIf Not rng.Validation.Value ThenApplication.UndoDim msg As Stringmsg = "粘贴的数据不符合校验规则：位置在第" & rng.Row & "行，第" & getColumnName(rng.column) & "列，请仔细检查"MsgBox prompt:=msg, Title:="输入提示"Exit ForEnd If
Next
End SubPrivate Function getColumnName(column As Integer) As StringDim alphabet(26) As Stringalphabet(0) = "A"alphabet(1) = "B"alphabet(2) = "C"alphabet(3) = "D"alphabet(4) = "E"alphabet(5) = "F"alphabet(6) = "G"alphabet(7) = "H"alphabet(8) = "I"alphabet(9) = "J"alphabet(10) = "K"alphabet(11) = "L"alphabet(12) = "M"alphabet(13) = "N"alphabet(14) = "O"alphabet(15) = "P"alphabet(16) = "Q"alphabet(17) = "R"alphabet(18) = "S"alphabet(19) = "T"alphabet(20) = "U"alphabet(21) = "V"alphabet(22) = "W"alphabet(23) = "X"alphabet(24) = "Y"alphabet(25) = "Z"If (column < 27) ThengetColumnName = alphabet(column - 1)ElseDim i, j As Integeri = column \ 26j = column Mod 26If (i < 26) ThengetColumnName = alphabet(i - 1) & alphabet(j - 1)ElsegetColumnName = columnEnd IfEnd IfEnd Function

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

在 Excel 中以编程方式复制工作表会导致运行时错误 1004
https://support.microsoft.com/zh-cn/kb/210684 针对 Office 2003 的支持已终止 Microsoft 已于 2014 年 4 月 8 日终止了针对 ...
计算机电子表格三维簇状柱形图怎么设置,Excel中怎么制作柱形对比图【excel表格数据生成柱形图】...
怎么创建Excel簇状柱形图并设置图表的格第一步:插入---图表----选择"簇状柱形图" 在图表区域右击---选择数据-----点击" "号-----选择系 ...
C# 设置Excel中的数字字符串格式
在Excel中,数字字符串用不同格式表示,可代表不同数据意义.例如在财务报表里需要用特定的数字字符串格式来反映金额信息.货币币种.数据精确程度.增减趋势等等.下面分享如何通过C#编程来设置Excel表 ...
在Excel中插入行并复制单元格格式
标题工作需要在Excel中的sheet页中,插入行并复制上一行的单元格格式.注意是当前sheet页中的操作.跨sheet页或者跨Excel文件并不能使用.` public static void ma ...
如何设置excel中重复的单元格颜色
当在excel中输入相同的数据时,用不同的底色显示.比如说输入L2006A2008这个图号的时候,如果此前曾经有过这样的一个图号存在的话,就用红色的底色显示.设置如下:选中L2006A2008单元格A ...
Excel中的数据怎么复制到CAD?
当我们想要将excel中的数据直接复制到CAD中该如何操作呢?当需要在CAD中利用Excel中的大量数据绘制简单重复图形的时候.徒手绘制会很麻烦.如果使用Excel直接绘制会使我们的工作简洁很多.下面 ...
将excel中的表快速复制粘贴进word中且不变形
1.在excel中,选中表中的任意一个单元格,ctrl+a,系统会自动全选表格 2.ctrl+c 3.到word中,不要直接ctrl+v,而是要ctrl+alt+v,选择性粘贴,选择Micorsoft ...
POI删除Excel中数据有效性
读到这篇文章,请停下您Ctrl+c,Ctrl+v的脚步.因为这并不是真正的删除数据有效性,而是通过一种方式实现多次为某列设置数据有效性.我是真的百度没查到,Google没查到,官网也没找到关于使用PO ...
如何设置excel中一部分表格显示但是不打印？
转自:微点阅读 https://www.weidianyuedu.com 可以通过"设置打印区域"来实现,下面来介绍2种方法: 一.通过[设置打印区域]来实现 1.选中要打印的 ...
Excel中无法下拉复制
想要复制一些重复的数据或者是建立一个数值列表,但是按照正常操作无响应.怎么办呢? 打开Tools中的Options选项,然后看红色圈的地方,将其选项勾选,保存修改后再试一下.就会看到excel的下拉复 ...

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

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

最新文章

热门文章