Home |
Search |
Today's Posts |
#1
|
|||
|
|||
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 |
#2
|
|||
|
|||
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" wrote in message ... 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 |
#3
|
|||
|
|||
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 -- dominicb ------------------------------------------------------------------------ dominicb's Profile: http://www.excelforum.com/member.php...o&userid=18932 View this thread: http://www.excelforum.com/showthread...hreadid=380388 |
#4
|
|||
|
|||
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" wrote in message ... 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 |
#5
|
|||
|
|||
What happens if the end user doesn't have the ATP files on their machine?
Biff "Gary's Student" wrote in message ... 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" wrote in message ... 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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Automate Macro | Excel Discussion (Misc queries) | |||
I would like to know how to automate graph using drop down list | Charts and Charting in Excel | |||
Automate cut/paste functions - Help! | Excel Discussion (Misc queries) | |||
HELP....Is there a way to automate copy/paste special/transpose - | Excel Worksheet Functions | |||
How can I automate a 16 man wrestling bracket in Excell. | Excel Worksheet Functions |