怎么解决Worksheet_Change事件导致的无限循环

如何解决Worksheet_Change事件导致的无限循环
Worksheet_Change事件导致无限循环。

在A列单元格输入内容后，在对应的那一行C列单元格写入当前时间。
接下来一句代码，也是在对应的那一行，但是在B列单元格写入数值。
如果不做最后的操作，也就是不在B列写入数值。那光标会进入到下一行。程序正常。
在加了最后这个操作之后，程序就死掉了。
分析可能是对单元格赋值时（最后那步操作），又触发了Worksheet_Change事件，结果导致无限循环。

 请问有没有什么设置可以暂时屏蔽某事件的触发？




还请大家多多指教，谢谢啦。


------解决方案--------------------
设置固定的触发区域，如：
If Not Intersect(Target,[A1:B5]) Is Nothing Then 
……
End If
------解决方案--------------------
Cels，少 了 个 s

探讨

假设在A列输入内容后，回车换行。触发了事件：
Private sub Worksheet_Change(ByVal Target As Range)

//"N1"为当前行
i=Range("N1").value+2 If Range("N1").value<>"" then
cels(i-1,3)=Format(Now(),"MM-DD-H:MM.SS")
Cel(i-1……