ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Prevent loading Add-in ... (https://www.excelbanter.com/excel-programming/325828-prevent-loading-add.html)

SIGE

Prevent loading Add-in ...
 
Hi All,

Is it possible to prevent loading of another Add-in when my workbook is open?

Cheers Sige

Bob Phillips[_6_]

Prevent loading Add-in ...
 
Sige,

The add-ins are loaded when Excel starts up. What exactly do you mean by
'... loading of another Add-in when my workbook is open ..? Is the workbook
loading the addin through code or something?

--

HTH

RP
(remove nothere from the email address if mailing direct)


"SIGE" wrote in message
om...
Hi All,

Is it possible to prevent loading of another Add-in when my workbook is

open?

Cheers Sige




Gareth Roberts

Prevent loading Add-in ...
 
Hi Sige,

If you mean prevent someone using Tools \ AddIns to install an AddIN then
yes.

- Create a class module called cslApp
- Have this declaration at the top:
Public WithEvents AppEvents As Excel.Application
- In a normal module decla
Public myEvents As New clsApp
- When you start your own AddIn load
Set myEvents.AppEvents = Excel.Application
-Place this in your clsApp module

Private Sub AppEvents_WorkbookAddinInstall(ByVal Wb As Workbook)
'enter you code here
End Sub

This will fire when someone tries to install an AddIn manually. You can then
close the workbook they installed. Although whether you'll make any friends
that way... :-)

HTH,
Gareth


"SIGE" wrote in message
om...
Hi All,

Is it possible to prevent loading of another Add-in when my workbook is

open?

Cheers Sige




SIGE GOEVAERTS

Prevent loading Add-in ...
 

Hi Bob,


My add-ins are loaded at startup of Excel!
(or maybe not ... see my previous threat (loading/unloading Add-in
mystery = Personally I think it is a rather complicated "Command Line
Switch" issue ...maybe something else???)

My workbook is loading the Add-ins I need for this particular workbook
through code.
My question was on how to prevent loading ... other Add-ins (custom
and/or MS standard Add-ins) which this workbook does not need.

HTH, Sige
(Can only access the Newsgroup through the Internet so my response(s)
may lag a bit .. sorry for that!)

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

SIGE

Prevent loading Add-in ...
 

Hi Gareth,

Will try out your solution. Not very familiar with Class Modules though.

The friends ...yeah... I will make it up with them later!
:o)

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

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

SIGE

Prevent loading Add-in ...
 
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!

Gareth Roberts

Prevent loading Add-in ...
 
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!





All times are GMT +1. The time now is 10:23 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com