Excel中如何让数据有效性不被复制粘贴破坏？简单到没朋友！

千万别学Excel 2017-08-29 21:09

前言：

Excel中如何让数据有效性不被复制粘贴破坏？简单到没朋友！

最近有朋友在后台求助，问题演示如下：（对单元格设置好数据有效性之后，却被用户用复制粘贴轻松取消数据有效性的限制）

问题

希望要实现的最终效果：

• 对不符合数据有效性的数据粘贴将不被接受，并出现弹屏提醒。

对不符合数据有效性的数据粘贴将不被接受，并出现弹屏提醒

实现方法：

1、利用vba代码对粘贴数据作限制。在开发工具---Visual Basic，双击sheet1输入以下代码：

1. Private Sub Worksheet_Change(ByVal Target As Range)

2. Dim 单元格 As Range

3. For Each 单元格 In Target

4. If Not 单元格.Validation.Value Then

5. Application.Undo

6. MsgBox prompt:="粘贴的数据不符合该单元格的数据有效性要求！", Title:="输入提示"

7. Exit For

8. End If

9. Next

10. End Sub

请在开发工具---Visual Basic输入代码

2、取消单元格锁定，并设置保护工作表，即可大功告成！注：密码可以为空即可。

取消单元格锁定，并设置保护工作表