Excel vba循环运行时单元格编辑错误

我有这个简单的代码

Sub TestEdit()
    Dim s
    While True
        On Error GoTo StopAction
            Cells(1, 1) = 1
StopAction:
        WaitSeconds (1)
        DoEvents
    Wend
End Sub

当我编辑任何单元格时，宏停止运行时出现错误1004：应用程序定义或对象定义错误

Real script每隔1秒从文件中读取数据并将其添加到工作表中。我不能编辑任何单元格

有什么办法可以阻止它&

尝试更改loc-5：

---

Activesheet.Cells（1,1）.value=1

您可以使用Application.OnTime每秒运行一次宏，而不使用DoEvents，而不是循环

附言：我相信虽然。。。Wend结构已弃用，最好在。。。环路

---

但是，如果看不到真实的宏，就很难给出有意义的答案。

不，没有。