加载项工作簿中的Application.OnTime_Open

Question

我已经构建了一个自定义Excel加载项，并且当前正在尝试找到一种方法，以便在新版本的加载项可用时通过VBA提示用户。

我尝试仅使用workbook_open事件检查最新版本，然后使用用户窗体提示用户，但是我发现，当Excel加载触发用户窗体的加载项时，Excel停止加载用户实际尝试打开的工作簿，并且重新加载该加载项。 因此，当用户窗体按我希望的方式工作时，用户将获得一个空白（不读取工作表）带有加载项的Excel Shell。

因此，我考虑使用Application.OnTime将VBA推迟到加载项和目标文件都打开之后。 我在这里和这里都感到这是可能的，但是我只能使其在.xlsm文件而不是.xlam文件中工作。

这是我正在测试的代码：

Sub Workbook_Open()
    Application.OnTime Now() + TimeValue("00:00:05"), "Test_Addin.xlam!Versioning.Notify_User"
End Sub

并在常规代码模块中：

Sub Notify_User()
    MsgBox "Hello"
End Sub

所以，我的问题是： 我在这里做错了吗？

我想知道是否有关于如何加载/设计加载项的事情，以防止它允许执行此类操作。

或者，您可以想到其他方法吗？

我读了Dick Kusleika撰写的有关该主题的有趣的博客文章 （和评论），但听起来有些人在每个子过程中都进行了版本检查……我有很多过程，所以听起来并不好。另一种选择，尽管我可能不得不求助于它。

Answer 1

好吧，时间至关重要，因此我诉诸最不希望的选择：在每个过程的开始进行检查。

对于感兴趣的各方，这是我的做法：

在每个子过程开始的某个地方，我放置了以下代码行：

If Version_Check Then Call Notify_User

在我的Versioning模块中，我输入了以下功能和过程：

Function Version_Check() As Boolean
    Installed = FileDateTime(ThisWorkbook.FullName)
    Available = FileDateTime("\\NetworkDrive\Test_AddIn.xlam")
    If Installed < Available Then Version_Check = True
End Function

Sub Notify_User()
    Update_Check.Show
End Sub

因此，每次运行过程时，此代码都会检查公司网络上的版本，该版本的修改后的日期时间大于已安装的加载项的日期时间。

我仍然非常乐于接受其他检查新版本的方法，请随时发布答案。