【原】4.'Change事件

'Worksheet_Change(ByValTarget As Range)

'当修改单元格中的数据时触发该事件?

'参数Target代表工作表中所选取的单元格或单元格区域

'例： 提示用户不要修改数据,

'修改工作表单元格区域A1:C3中的数据时，弹出对话框提示 请不要修改。

Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, Range("A1:C3")) Is Nothing Then

        MsgBox "请不要修改!"

   End If


End Sub