Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 36
Default Add Ins check

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.
  #2   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 7,247
Default Add Ins check

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" wrote in message
...
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.



  #3   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 36
Default Add Ins check

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" wrote in message
...
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
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

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


Similar Threads
Thread Thread Starter Forum Replies Last Post
make a check form, and then have info go to a check register richie g Excel Worksheet Functions 0 May 5th 10 12:10 AM
Copy and move check box (check boxes) with new cell link? Marty Excel Worksheet Functions 1 January 20th 10 07:43 PM
Increase size of a Forms Check Box (click on to enter check mark) 718Satoshi Excel Discussion (Misc queries) 0 August 17th 07 01:52 AM
Check if Conditional Format is True or False / Check cell Color Kevin McCartney Excel Worksheet Functions 5 June 29th 07 11:12 AM
Enable check box in protected sheet + group check boxes Dexxterr Excel Discussion (Misc queries) 4 August 2nd 06 12:00 PM


All times are GMT +1. The time now is 01:09 AM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright ©2004-2024 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"