Excel VBA 检查插件是否已安装但未打开

我有以下代码来检查所需的插件是否已安装/可用，然后再从当前上下文调用该插件中的脚本：

Function IsAddinEnabled(addinName as string) As Boolean
    IsAddinEnabled = True
    Dim myAddin As addin
    On Error GoTo NotExists
    Set myAddin = Application.AddIns2(addinName)
    If myAddin.IsOpen = False Then ' this logic is my workaround
        myAddin.Installed = False 'uninstall 
        myAddin.Installed = True ' install to "Open" the addin
    Else
        myAddin.Installed = True 'redundant
    End If
    Exit Function
NotExists:
    IsAddinEnabled = False
End Function

当出现以下情况时就会出现问题：

myAddin.IsOpen = false我必须添加此逻辑才能重新安装插件。卸载并重新安装插件会有点麻烦/减慢速度。有没有办法强制插件“打开”而不重新安装插件？

每@查尔斯·威廉姆斯

这是我用过的方法：

Function IsAddinEnabled(addinName as string) As Boolean
    IsAddinEnabled = True
    Dim myAddin As addin
    On Error GoTo NotExists
    Set myAddin = Application.AddIns2(addinName)
    If myAddin.IsOpen = False Then ' this logic is my workaround
        Workbooks.Open myAddin.Path & "\" & myAddin.Name 'open the addin, if it's not open
    Else
        myAddin.Installed = True 'redundant
    End If
    Exit Function
NotExists:
    IsAddinEnabled = False
End Function