excel - 一段时间后出现“对象库无效或包含对无法找到的对象定义的引用”

Question

所以我有这本带有很多工作表的工作簿，其中三个带有表单对象。三个按钮是表单控件，仅用于工作表之间的导航，其他是 ActiveX 对象。

表单对象在开始时工作得很好，但一段时间后它们停止工作，显示错误：“对象库无效或包含对无法找到的对象定义的引用。”

我什至无法按下表单控件。基本上运行代码。

Sub Show_EBS_Sheet()
Worksheets("EBS").Activate
End Sub

没有按钮、复选框、组合框有效。

什么都没有真正改变。我只是打开它，我与表单对象进行交互，然后它就不再工作了。必须重新启动 Excel，然后它才能再次工作。任何人都知道可能是什么原因造成的？

一键删除一些activeX复选框并创建新的。也许这就是罪魁祸首？

这是删除复选框的代码：

Dim s As Shape
For Each s In ActiveSheet.Shapes
    If s.Type = 12 Then
        If Not Intersect(s.TopLeftCell, Sheets("EmpChoice").Range("A14:T33")) Is Nothing Then
            s.Delete
        End If
    End If
Next

我试图删除所有 .exd 文件，但没有帮助。一旦我再次启动 Excel，它们再次出现，同样的问题再次发生。

标签： excelvba