Opening excel sheets automatically disables addins. Is there a fix for this?

[halleluljah]

Hi,

I use the following code to open a number of specific workbooks in excel automatically on booting a computer. However, the add-ins in these workbooks are disabled when they open. I have code to auto install the necessary add-ins, which works fine normally, but doesn't work on the sheets that are opened by this code. Can anybody see a solution to this problem?

Here is the macro for opening the sheets automatically...

Sub StartNewApp()

i = 2

Do Until IsEmpty(Cells(i, 1).Value)

Dim xlApp As New Application
Dim Wkbook As String

Set xlApp = New Excel.Application

Wkbook = Cells(i, 1).Value

xlApp.Workbooks.Open Wkbook
xlApp.ActiveWorkbook.Windows(1).Visible = True

xlApp.Visible = True

ThisWorkbook.Activate

i = i + 1

Loop

End Sub

Here is the code for auto installing the add-ins....


Sub Add_an_Addin()

Dim oAddin As AddIn

Set aAddin = AddIns.Add("dirAddin1", True)
Set bAddin = AddIns.Add("dirAddin2", True)
Set cAddin = AddIns.Add("dirAddin3", True)

If Not aAddin.Installed Then
aAddin.Installed = True
End If

If Not bAddin.Installed Then
bAddin.Installed = True
End If

If Not cAddin.Installed Then
cAddin.Installed = True
End If


End Sub

 

[halleluljah]

When I said sheets in the above thread, I meant to say workbooks....

 

[RoryA]

Automating Excel never loads addins. You need to toggle the installed property. Do you really want a separate Excel instance for every workbook?

 

[halleluljah]

I definitely need separate instances of excel. What do you mean by toggle the installed property?

 

[RoryA]

Loop through each addin, if its Installed property is True, then set it to False and back to True again and that will actually load it.

 

[halleluljah]

That works beautifully. Thanks for your help.