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

加入vbs脚本编程,同时开启宏。但是如果用户电脑不开启宏,意味着生成的excel中vbs脚本失效。操作步骤如下：




点击开发工具,启动宏,如果wps的话开启需要安装插件



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




vbs代码如下:

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.    Dim rng As Range
   
3.    Dim c As String
   
4.     For Each rng In Target
   
5.     If Not rng.Validation.Value Then
   
6.         Application.Undo
   
7.         Dim msg As String
   
8.         msg = "粘贴的数据不符合校验规则：位置在第" & rng.Row & "行，第" & getColumnName(rng.column) & "列，请仔细检查"
   
9.         MsgBox prompt:=msg, Title:="输入提示"
   
10.     Exit For
    
11.     End If
    
12. Next
    
13. End Sub
    
14. 
    
15. 
    
16. Private Function getColumnName(column As Integer) As String
    
17.     Dim alphabet(26) As String
    
18.     alphabet(0) = "A"
    
19.     alphabet(1) = "B"
    
20.     alphabet(2) = "C"
    
21.     alphabet(3) = "D"
    
22.     alphabet(4) = "E"
    
23.     alphabet(5) = "F"
    
24.     alphabet(6) = "G"
    
25.     alphabet(7) = "H"
    
26.     alphabet(8) = "I"
    
27.     alphabet(9) = "J"
    
28.     alphabet(10) = "K"
    
29.     alphabet(11) = "L"
    
30.     alphabet(12) = "M"
    
31.     alphabet(13) = "N"
    
32.     alphabet(14) = "O"
    
33.     alphabet(15) = "P"
    
34.     alphabet(16) = "Q"
    
35.     alphabet(17) = "R"
    
36.     alphabet(18) = "S"
    
37.     alphabet(19) = "T"
    
38.     alphabet(20) = "U"
    
39.     alphabet(21) = "V"
    
40.     alphabet(22) = "W"
    
41.     alphabet(23) = "X"
    
42.     alphabet(24) = "Y"
    
43.     alphabet(25) = "Z"
    
44. 
    
45.    
    
46.     If (column < 27) Then
    
47.         getColumnName = alphabet(column - 1)
    
48.     Else
    
49.         Dim i, j As Integer
    
50.         i = column \ 26
    
51.         j = column Mod 26
    
52.         If (i < 26) Then
    
53.             getColumnName = alphabet(i - 1) & alphabet(j - 1)
    
54.         Else
    
55.             getColumnName = column
    
56.         End If
    
57.             
    
58.     End If
    
59.    
    
60. End Function

复制代码