Add Ins check

R

Rominall

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.
 
C

Chip Pearson

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)
 
R

Rominall

That's great. Thanks!!

Chip Pearson said:
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)
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top