Prevent workbook from opening if required Add-in is not installed

[d.sanchez]

I am looking to either prevent a workbook from opening, or forcing a close, if a required add-in is not installed on the user's computer. I have a series of workbooks that contain data, and all their functionality is controlled from an add-in.

I have tried to place the following code in several different routines, including Workbook_Open, Workbook_Activate, and in other modules where it is triggered by an event or command button. I continually get a run-time error 1004 when it tries to close the workbook. The following code does a good job of recognizing when the add-in is installed or not. The trouble I am having is focused solely on forcing a close.

Please Login or Register  to view this content.

Instead of ActiveWorkbook.Close I have also tried ThisWorkbook.Close with the same results.

Does anybody have some insight on this? Or previous experience to share? Or other techniques to consider for disabling the file?

Thanks!

[berlan]

Would this work for you?

Please Login or Register  to view this content.

[berlan]

The reason is that you will get an error if the add-in is not available to the user, and not with the line to close the workbook.

[d.sanchez]

Thank you for the response. I just tried the method you suggested, and it produced the same result of a run-time 1004 error. (Method 'Close' of object '_Workbook' Failed)

[berlan]

Alright, but for me it worked just fine...

[d.sanchez]

I have placed your code in an empty workbook with no other closing routines, etc, and it works great. I must have a conflict somewhere in the Workbook_Close event.

[d.sanchez]

Yes, I found the problem. It was a conflict with a Workbook_Deactivate item. Works beautifully now. Thank you!!

[berlan]

You're welcome, glad it works