前言：
Excel中如何讓資料有效性不被複制貼上破壞？簡單到沒朋友！
最近有朋友在後臺求助，問題演示如下：（對單元格設定好資料有效性之後，卻被使用者用複製貼上輕鬆取消資料有效性的限制）
問題
對不符合資料有效性的資料貼上將不被接受，並出現彈屏提醒。
對不符合資料有效性的資料貼上將不被接受，並出現彈屏提醒
1、利用vba程式碼對貼上資料作限制。在開發工具---Visual Basic，雙擊sheet1輸入以下程式碼：
Private Sub Worksheet_Change(ByVal Target As Range)
Dim 單元格 As Range
For Each 單元格 In Target
If Not 單元格.Validation.Value Then
Application.Undo
MsgBox prompt:="貼上的資料不符合該單元格的資料有效性要求！", Title:="輸入提示"
Exit For
End If
Next
End Sub
請在開發工具---Visual Basic輸入程式碼
2、取消單元格鎖定，並設定保護工作表，即可大功告成！注：密碼可以為空即可。
取消單元格鎖定，並設定保護工作表
前言：
Excel中如何讓資料有效性不被複制貼上破壞？簡單到沒朋友！
最近有朋友在後臺求助，問題演示如下：（對單元格設定好資料有效性之後，卻被使用者用複製貼上輕鬆取消資料有效性的限制）
問題
希望要實現的最終效果：對不符合資料有效性的資料貼上將不被接受，並出現彈屏提醒。
對不符合資料有效性的資料貼上將不被接受，並出現彈屏提醒
實現方法：1、利用vba程式碼對貼上資料作限制。在開發工具---Visual Basic，雙擊sheet1輸入以下程式碼：
Private Sub Worksheet_Change(ByVal Target As Range)
Dim 單元格 As Range
For Each 單元格 In Target
If Not 單元格.Validation.Value Then
Application.Undo
MsgBox prompt:="貼上的資料不符合該單元格的資料有效性要求！", Title:="輸入提示"
Exit For
End If
Next
End Sub
請在開發工具---Visual Basic輸入程式碼
2、取消單元格鎖定，並設定保護工作表，即可大功告成！注：密碼可以為空即可。
取消單元格鎖定，並設定保護工作表