打开Excel启用宏的工作簿时注册DLL文件

Question

我想为用户提供一个机会，当他们打开启用了宏的Excel工作簿时，创建对.tlb类型库的引用（如果不存在）。

我有以下子例程（在VBA中），当从按钮触发或通过在VBA编辑器中按绿色三角形按钮运行时，该子例程确实起作用：

Private Sub Workbook_Open()

    Dim isDLLReferenced As Boolean
    isDLLRegistered = False

    For Each ref In ActiveWorkbook.VBProject.References
        If Right(LCase(ref.FullPath), 7) = LCase("qms.tlb") Then
            isDLLReferenced = True
            GoTo OutIf
            Exit For
        End If
    Next ref

OutIf:
    If isDLLReferenced = False Then GoTo MessageBox
    GoTo OutSub:

MessageBox:
    Dim question As Integer
    question = MsgBox("A dll file needs to be isDLLReferenced on your 
    computer in order for this template's macros to function", vbYesNo + 
    vbQuestion,  "")
    If question = 7 Then GoTo OutSub

    Dim filepath As String
    filepath = Application.ActiveWorkbook.Path & "\Reference\qms.tlb"
    Application.VBE.ActiveVBProject.References.AddFromFile filepath

OutSub:
End Sub

但是，如果将此代码放置在如上所述的Workbook_Open事件中，则不会创建引用。

在打开工作簿时，将出现消息框，但未引用类型库。

我的问题是：如何在打开工作簿时以编程方式创建对.tlb的引用？ （可以这样做吗？）

提前致谢。