PC Review


Reply
Thread Tools Rate Thread

Add Ins check

 
 
=?Utf-8?B?Um9taW5hbGw=?=
Guest
Posts: n/a
 
      6th Mar 2007
This may be a stupid question, but is there a way to get the current users
list of Add ins?

Add ins are apparently regulated at my workplace and only certain people may
have the analysis ToolPak available. I would like to have something to check
to see if it's there and if not, close the workbook with a message. I may
also need to find out if the user has Solver too.

I always thought these came standard, but guess our IT dept may be a little
paranoid.
 
Reply With Quote
 
 
 
 
Chip Pearson
Guest
Posts: n/a
 
      6th Mar 2007
Try something like


Sub ListAddIns()
Dim AI As AddIn
Debug.Print "*********** ALL ADDINS *************"
For Each AI In Application.AddIns
Debug.Print AI.Name, AI.FullName, AI.Installed
Next AI

Debug.Print "*********** INSTALLED ADDINS *************"
For Each AI In Application.AddIns
If AI.Installed = True Then
Debug.Print AI.Name, AI.FullName
End If
Next AI
End Sub


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com
(email address is on the web site)

"Rominall" <(E-Mail Removed)> wrote in message
news:3BD01A4D-1C81-4F91-93D6-(E-Mail Removed)...
> This may be a stupid question, but is there a way to get the current users
> list of Add ins?
>
> Add ins are apparently regulated at my workplace and only certain people
> may
> have the analysis ToolPak available. I would like to have something to
> check
> to see if it's there and if not, close the workbook with a message. I may
> also need to find out if the user has Solver too.
>
> I always thought these came standard, but guess our IT dept may be a
> little
> paranoid.



 
Reply With Quote
 
=?Utf-8?B?Um9taW5hbGw=?=
Guest
Posts: n/a
 
      6th Mar 2007
That's great. Thanks!!

"Chip Pearson" wrote:

> Try something like
>
>
> Sub ListAddIns()
> Dim AI As AddIn
> Debug.Print "*********** ALL ADDINS *************"
> For Each AI In Application.AddIns
> Debug.Print AI.Name, AI.FullName, AI.Installed
> Next AI
>
> Debug.Print "*********** INSTALLED ADDINS *************"
> For Each AI In Application.AddIns
> If AI.Installed = True Then
> Debug.Print AI.Name, AI.FullName
> End If
> Next AI
> End Sub
>
>
> --
> Cordially,
> Chip Pearson
> Microsoft MVP - Excel
> Pearson Software Consulting, LLC
> www.cpearson.com
> (email address is on the web site)
>
> "Rominall" <(E-Mail Removed)> wrote in message
> news:3BD01A4D-1C81-4F91-93D6-(E-Mail Removed)...
> > This may be a stupid question, but is there a way to get the current users
> > list of Add ins?
> >
> > Add ins are apparently regulated at my workplace and only certain people
> > may
> > have the analysis ToolPak available. I would like to have something to
> > check
> > to see if it's there and if not, close the workbook with a message. I may
> > also need to find out if the user has Solver too.
> >
> > I always thought these came standard, but guess our IT dept may be a
> > little
> > paranoid.

>
>
>

 
Reply With Quote
 
 
 
Reply

Thread Tools
Rate This Thread
Rate This Thread:

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are Off


Similar Threads
Thread Thread Starter Forum Replies Last Post
Spell check -- text marked skip spelling and grammar check =?Utf-8?B?RGF2aWQgQS4=?= Microsoft Word Document Management 8 9th Aug 2008 11:47 PM
Asp.net Treeview Clientscript - Auto Check Child Notes After Check Parent Node Sylvie Microsoft C# .NET 1 9th Oct 2007 02:25 PM
Treeview Clientscript - Auto Check Child Notes After Check Parent Node Sylvie Microsoft ASP .NET 1 9th Oct 2007 02:25 PM
In outlook get message "Spell check cannot check items...try agai =?Utf-8?B?am1yYW5jaG1hbg==?= Microsoft Outlook Discussion 1 28th Sep 2006 10:26 PM
Xp:Check Disk:Tools:Check Now:Both Options:reboot countdown does not complete? RAS Windows XP General 3 1st Feb 2005 06:23 AM


Features
 

Advertising
 

Newsgroups
 


All times are GMT +1. The time now is 11:49 PM.