Yes... and no.

If you were to place in your AddIn's Workbook Open Event (or maybe better,
in a procedure that remembers, the first time it was run) a routine that
does the following:
'--------------------
Private myAddins() as string

Sub UninstallAllAddins()

Dim AI As AddIn
Dim i as integer

Redim myAddins(0)
For Each AI In AddIns
'you might need to check it's not your own
'haven't tried:
' if not thisworkbook.name = AI.name
'for example
If AI.Installed Then
myaddins(i ) = AI.FullName
i = i +1
redim preserve myaddins(i)
AI.Installed = False
End If
Next AI
End Sub
'------------
Then, when your workbook closes reinstall everything you
uninstalled.'---------
Sub ReinstallAddins
do while not myaddins(i) = ""
Application.AddIns.Add Filename:=myaddins(i), copyfile:=False
i = i +1
Loop
Application.AddIns.Add Filename:=mypath, copyfile:=False
End Sub

But I have to say again... this won't make you many friends!

HTH,
Gareth


"SIGE" wrote in message
...
Hi Gareth,

I managed to make no friends ... ;o)
Can I create ennemies? :o)

=I still have the possibility to load an Add-in, i.e. I can double
click an xla ... and run the respective xla. Ok, you can't set it up
anymore in Tool=Add-in ...

But I would prefer not to "load" (activate) ANY Add-ins anymore (to a
restricted nr of users btw) besides the ones I am "loading"
(activating).

Is this possible to trigger?

Cheers Sige

"NOSPAM" to be removed for direct mailing...

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!