PDA

View Full Version : loading all add-ins at one stroke



lior03
09-20-2007, 06:19 AM
hello
is it possible to install all addins through a macro.
thanks

lior03
09-20-2007, 06:24 AM
maybe?

Dim i As Integer
For i = 1 To AddIns.count
If AddIns(i).Installed = False Then
AddIns(i).Installed = True
End If
Next

tpoynton
09-20-2007, 06:30 AM
I believe that would load all add ins that are displayed in the add ins dialog box...

lior03
09-20-2007, 09:31 AM
my suggestion:

Sub addinstall()
If MsgBox("you must declick the addins you want to reinstall,goto addins manager?", vbExclamation + vbOKCancel, "addins list") = vbOK Then
Application.Dialogs(xlDialogAddinManager).Show
If MsgBox("would you like to reacivate addins you just clicked", vbInformation + vbOKCancel, "addins reactivation") = vbNo Then
Dim ad As AddIn
For Each ad In Application.AddIns
If ad.Installed = False Then
ad.Installed = True
End If
Next
End If
End If
End Sub

Bob Phillips
09-20-2007, 09:39 AM
Do it for them



Dim ad
Dim aryads
Dim i As Long
ReDim aryads(1 To 1)
i = 1
For Each ad In Application.AddIns
ReDim Preserve aryads(1 To i)
aryads(i) = ad.Name
i = i + 1
ad.Installed = False
Next ad
For i = 1 To UBound(aryads)
Application.AddIns(aryads(i)).Installed = True
Next i