Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Uninstall Add-ins when workbook closes
I have a very simple macro I want to run each time I close a workbook. Its
purpose is to uninstall thee excel add-ins. But the macro is not running. I put it in "ThisWorkbook" in my Personal macro workbook and cannot figure out why it is not running. I can't even get the messagebox to appear. Any help is greatly appreciated. Private Sub Workbook_BeforeClose(cancel As Boolean) i = MsgBox("TESTING", vbOKOnly, "TESTING") Call Uninstall_Essbase_and_SmartView End Sub Sub Uninstall_Essbase_and_SmartView() AddIns("Hyperion Essbase OLAP Server DLL (non-Unicode)").Installed = False AddIns("Hyperion Essbase Query Designer Addin").Installed = False AddIns("Hyperion Smart View for Office").Installed = False End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Uninstall Add-ins when workbook closes
"Dan" skrev i en meddelelse ... I have a very simple macro I want to run each time I close a workbook. Its purpose is to uninstall thee excel add-ins. But the macro is not running. I put it in "ThisWorkbook" in my Personal macro workbook and cannot figure out why it is not running. I can't even get the messagebox to appear. Any help is greatly appreciated. Private Sub Workbook_BeforeClose(cancel As Boolean) i = MsgBox("TESTING", vbOKOnly, "TESTING") Call Uninstall_Essbase_and_SmartView End Sub Sub Uninstall_Essbase_and_SmartView() AddIns("Hyperion Essbase OLAP Server DLL (non-Unicode)").Installed = False AddIns("Hyperion Essbase Query Designer Addin").Installed = False AddIns("Hyperion Smart View for Office").Installed = False End Sub Hi The macro will never run, where you have i now. Put the "Workbook_BeforeClose" sub in "ThisWorkbook" in each workbook where you want to trigger the uninstall sub. The "Sub Uninstall...." can be in a module in your Personal macro workbook. //Per |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Uninstall Add-ins when workbook closes
is there any way to put something out there that will run when all workbooks
are closed? "Per Jessen" wrote: "Dan" skrev i en meddelelse ... I have a very simple macro I want to run each time I close a workbook. Its purpose is to uninstall thee excel add-ins. But the macro is not running. I put it in "ThisWorkbook" in my Personal macro workbook and cannot figure out why it is not running. I can't even get the messagebox to appear. Any help is greatly appreciated. Private Sub Workbook_BeforeClose(cancel As Boolean) i = MsgBox("TESTING", vbOKOnly, "TESTING") Call Uninstall_Essbase_and_SmartView End Sub Sub Uninstall_Essbase_and_SmartView() AddIns("Hyperion Essbase OLAP Server DLL (non-Unicode)").Installed = False AddIns("Hyperion Essbase Query Designer Addin").Installed = False AddIns("Hyperion Smart View for Office").Installed = False End Sub Hi The macro will never run, where you have i now. Put the "Workbook_BeforeClose" sub in "ThisWorkbook" in each workbook where you want to trigger the uninstall sub. The "Sub Uninstall...." can be in a module in your Personal macro workbook. //Per |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Uninstall Add-ins when workbook closes
Hi Dan
If you want to uninstall the add-ins when the last workbook is closed, put this sub in all workbooks that will be open at the same time. The add-ins will be uninstalled when only one workbook plus Personal.xls is still open, but closing. Private Sub Workbook_BeforeClose(Cancel As Boolean) If Workbooks.Count = 2 Then ' Personal.xls count as open workbook i = MsgBox("TESTING", vbOKOnly, "TESTING") Call Uninstall_Essbase_and_SmartView End If End Sub "Dan" skrev i en meddelelse ... is there any way to put something out there that will run when all workbooks are closed? "Per Jessen" wrote: "Dan" skrev i en meddelelse ... I have a very simple macro I want to run each time I close a workbook. Its purpose is to uninstall thee excel add-ins. But the macro is not running. I put it in "ThisWorkbook" in my Personal macro workbook and cannot figure out why it is not running. I can't even get the messagebox to appear. Any help is greatly appreciated. Private Sub Workbook_BeforeClose(cancel As Boolean) i = MsgBox("TESTING", vbOKOnly, "TESTING") Call Uninstall_Essbase_and_SmartView End Sub Sub Uninstall_Essbase_and_SmartView() AddIns("Hyperion Essbase OLAP Server DLL (non-Unicode)").Installed = False AddIns("Hyperion Essbase Query Designer Addin").Installed = False AddIns("Hyperion Smart View for Office").Installed = False End Sub Hi The macro will never run, where you have i now. Put the "Workbook_BeforeClose" sub in "ThisWorkbook" in each workbook where you want to trigger the uninstall sub. The "Sub Uninstall...." can be in a module in your Personal macro workbook. //Per |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Deleting workbook closes Excel | Excel Discussion (Misc queries) | |||
Esc Key Closes Workbook | Excel Programming | |||
run a macro before a workbook closes | Excel Programming | |||
Workbook Unexpectedly Closes Immediately | Excel Discussion (Misc queries) | |||
protect add-in after workbook closes | Excel Programming |