How to check if an Add In is present.

  • Thread starter Thread starter rick
  • Start date Start date
R

rick

Is there a way to check if a particular Add In has been installed in User's
Excel?

I have some xlVeryHidden sheets that should only be made visible if the User
has a particular Add In which interfaces with Oracle.

Thanks for your insight and assistance.

Rick
 
Rick;

In my view an Add-in is a workbook; a special workbook.
So, if you check for that workbook to be open, your problem should be
solved.

To find VBA code to do this check, do the google.
Lot's of examples for it.
 
Rick,

You didn't give the name of your addin so this check if the VBA analysis
toolpak is loaded. Substitute your addin name


Sub isaddinloaded()
On Error Resume Next
Set chkaddin = Workbooks("ATPVBAEN.XLA")
If Err Then MsgBox "ATPVBAEN.XLA! not loaded" & _
vbLf & vbLf & "Can't continue!", vbCritical + vbOKOnly, _
"Addin not loaded": Exit Sub
Err.Clear
On Error GoTo 0
End Sub

Mike
 
Rick,
Try clicking on the marble, then, in the bottom right of the window, you
should see excel options button. Click and you will see the Add-In button on
the left, click to see what add-ins are in use, available or to manage.
hope this helps.
babs
 
Yes you can do this

If bIsBookOpen_RB("MenuAddin.xlam") = False Then .......


It use this function

Function bIsBookOpen_RB(ByRef szBookName As String) As Boolean
' Rob Bovey
On Error Resume Next
bIsBookOpen_RB = Not (Application.Workbooks(szBookName) Is Nothing)
End Function


--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm
 
Thanks Mike for the programmatic solution...I think people forget that's why
we post here and not simply in .excel ;-)
 
Hi,

You are correct and here's an alternative way using your method

Sub sonic()
For Each wb In Application.AddIns
If wb.Name = "ATPVBAEN.XLA" Then GoTo Continue
Next wb
Exit Sub
Continue:
' rest of code here
End Sub

Mike
 
Mike your first solution did not seem to work when put in workbook_open in thisworkbook.
I'll try the second one.
Anybody's tried either one?
Thanks
 
Back
Top