Automate Add-in

I distribute some workbooks that rely on the Analysis ToolPak. The
recipients have a problem if the ToolPak is not installed. Upon opening the
workbook, how can I :

1. Determine and remember if the ToolPak is already installed
2. Install the ToolPak if not already installed
3. Prior to closing the workbook, returning the ToolPak installation status
to what it was initially
--
Gary's Student

Good evening Gary's Student

This should work Ok - basically a pair of macros that open run on opening and closing to start the add in and uninstall it if it was uninstalled to begin with. Usual bug bear applies in that the user must reply yes to macros being run.

Dim status

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If status = "No" Then
AddIns("Analysis ToolPak").Installed = False
End If
End Sub

Private Sub Workbook_Open()
If AddIns("Analysis ToolPak").Installed = True Then
status = "Yes"
Else
status = "No"
End If
On Error Resume Next
AddIns("Analysis ToolPak").Installed = True
End Sub

just copy this into the ThisWorkbook pane to utilise it.

HTH

DominicB

GS,

The following added to the "ThisWorkbook" module seems to work.
Note that if the module level variable value is lost then the
ToolPak will be left installed on Excel.
'---------------------------------------
Option Explicit

Private byteFlag As Byte

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If byteFlag < 100 Then
Excel.AddIns("Analysis ToolPak").Installed = True
Else
Excel.AddIns("Analysis ToolPak").Installed = False
End If
End Sub

Private Sub Workbook_Open()
If Excel.AddIns("Analysis ToolPak").Installed Then
byteFlag = 99
Else
byteFlag = 123
Excel.AddIns("Analysis ToolPak").Installed = True
End If

End Sub
'-------------------------------------

Regards,
Jim Cone
San Francisco, USA


"Gary's Student" <[email protected]> wrote in message
news:[email protected]...
I distribute some workbooks that rely on the Analysis ToolPak. The
recipients have a problem if the ToolPak is not installed. Upon opening the
workbook, how can I :

1. Determine and remember if the ToolPak is already installed
2. Install the ToolPak if not already installed
3. Prior to closing the workbook, returning the ToolPak installation status
to what it was initially
--
Gary's Student

Thanks Jim, for both this solution and the others you have helped me with in
the past.
--
Gary's Student


"Jim Cone" wrote:

> GS,
>
> The following added to the "ThisWorkbook" module seems to work.
> Note that if the module level variable value is lost then the
> ToolPak will be left installed on Excel.
> '---------------------------------------
> Option Explicit
>
> Private byteFlag As Byte
>
> Private Sub Workbook_BeforeClose(Cancel As Boolean)
> If byteFlag < 100 Then
> Excel.AddIns("Analysis ToolPak").Installed = True
> Else
> Excel.AddIns("Analysis ToolPak").Installed = False
> End If
> End Sub
>
> Private Sub Workbook_Open()
> If Excel.AddIns("Analysis ToolPak").Installed Then
> byteFlag = 99
> Else
> byteFlag = 123
> Excel.AddIns("Analysis ToolPak").Installed = True
> End If
>
> End Sub
> '-------------------------------------
>
> Regards,
> Jim Cone
> San Francisco, USA
>
>
> "Gary's Student" <[email protected]> wrote in message
> news:[email protected]...
> I distribute some workbooks that rely on the Analysis ToolPak. The
> recipients have a problem if the ToolPak is not installed. Upon opening the
> workbook, how can I :
>
> 1. Determine and remember if the ToolPak is already installed
> 2. Install the ToolPak if not already installed
> 3. Prior to closing the workbook, returning the ToolPak installation status
> to what it was initially
> --
> Gary's Student
>

What happens if the end user doesn't have the ATP files on their machine?

Biff

"Gary's Student" <[email protected]> wrote in message
news:[email protected]...
> Thanks Jim, for both this solution and the others you have helped me with
> in
> the past.
> --
> Gary's Student
>
>
> "Jim Cone" wrote:
>
>> GS,
>>
>> The following added to the "ThisWorkbook" module seems to work.
>> Note that if the module level variable value is lost then the
>> ToolPak will be left installed on Excel.
>> '---------------------------------------
>> Option Explicit
>>
>> Private byteFlag As Byte
>>
>> Private Sub Workbook_BeforeClose(Cancel As Boolean)
>> If byteFlag < 100 Then
>> Excel.AddIns("Analysis ToolPak").Installed = True
>> Else
>> Excel.AddIns("Analysis ToolPak").Installed = False
>> End If
>> End Sub
>>
>> Private Sub Workbook_Open()
>> If Excel.AddIns("Analysis ToolPak").Installed Then
>> byteFlag = 99
>> Else
>> byteFlag = 123
>> Excel.AddIns("Analysis ToolPak").Installed = True
>> End If
>>
>> End Sub
>> '-------------------------------------
>>
>> Regards,
>> Jim Cone
>> San Francisco, USA
>>
>>
>> "Gary's Student" <[email protected]> wrote in
>> message
>> news:[email protected]...
>> I distribute some workbooks that rely on the Analysis ToolPak. The
>> recipients have a problem if the ToolPak is not installed. Upon opening
>> the
>> workbook, how can I :
>>
>> 1. Determine and remember if the ToolPak is already installed
>> 2. Install the ToolPak if not already installed
>> 3. Prior to closing the workbook, returning the ToolPak installation
>> status
>> to what it was initially
>> --
>> Gary's Student
>>