禁止事件程序发生的VBA代码

禁止事件程序的发生，可以用Application.EnableEvents = False
恢复把值设置为TRUE即可

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
    MsgBox Target.Address
End Sub

Public Sub EnabledEvent()
    Range("A1") = "Excel VBA"
End Sub

Public Sub DisableEvents()
    Application.EnableEvents = False
    Range("A1") = "Excel VBA"
    Application.EnableEvents = True
End Sub