hello
is it possible to install all addins through a macro.
thanks
hello
is it possible to install all addins through a macro.
thanks
moshe
maybe?
[VBA]
Dim i As Integer
For i = 1 To AddIns.count
If AddIns(i).Installed = False Then
AddIns(i).Installed = True
End If
Next
[/VBA]
moshe
I believe that would load all add ins that are displayed in the add ins dialog box...
my suggestion:
[VBA]
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
[/VBA]
moshe
Do it for them
[vba]
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
[/vba]
____________________________________________
Nihil simul inventum est et perfectum
Abusus non tollit usum
Last night I dreamed of a small consolation enjoyed only by the blind: Nobody knows the trouble I've not seen!
James Thurber