Excel加载项有时不加载

我有一些excel插件有时无法加载，当我打开一个现有的工作簿。 以下是我在尝试诊断时注意到的一些相关事实和事情：

• 这些是常规的Excel加载项，而不是COM加载项。
• 从程序菜单打开excel时加载项始终加载。
• 从电子邮件/共享驱动器/个人驱动器打开工作簿时，加载项不会加载〜10-20％的时间。
• 我无法一贯地复制这个问题。 有时打开相同的工作簿将加载加载项，有时它不会。

• 该问题可能与其中包含安装程序的工具包之一相关联。 （这个插件背后的想法是它可以发送给人，并且只需打开就可以安装它，然后，一旦它被安装在AddIns文件夹中，当加载项加载时它不再执行任何操作）。

  Private Sub Workbook_Open() If Right(ThisWorkbook.Path, 6) <> "AddIns" Then Dim blRegister As Boolean Dim ThisAddIn As AddIn Application.DisplayAlerts = False On Error Resume Next ThisWorkbook.Sheets("Installing").Activate Application.AddIns("Toolkit").Installed = False ThisWorkbook.SaveAs "Z:\AppData\Microsoft\AddIns\ToolKit.xlam", AccessMode:=xlExclusive, ConflictResolution:=Excel.XlSaveConflictResolution.xlLocalSessionChanges, FileFormat:=55 On Error GoTo 0 blRegister = Application.RegisterXLL("Z:\AppData\Microsoft\AddIns\ToolKit.xlam") Set ThisAddIn = Application.AddIns.Add("Z:\AppData\Microsoft\AddIns\ToolKit.xlam") ThisAddIn.Installed = True MsgBox "Thanks for Installing the Toolkit!" ThisWorkbook.Close False Application.DisplayAlerts = True End If End Sub 

任何帮助或见解将不胜感激。 谢谢！