Close a second workbook from the Wrokbook BeforeClose

[carsto]

I cannot make this work in XL2010.

I am opening a second workbook in ReadOnly in the Workbook Open and Closing it in the Workbook BeforeClose.
I don't EVER want to save changes on either workbook.
I need to leave excel open as the macro created a 3rd workbook which the user will need.
TAI

Please Login or Register  to view this content.

Please Login or Register  to view this content.

Please Login or Register  to view this content.

Please Login or Register  to view this content.

[nathansav]

What error are you getting?

[AlphaFrog]

The Public variable (Public dbWb As Workbook) should be declared in a Standard code module (e.g. Module1) and not in a worksheet or workbook code module.

This should work.

Please Login or Register  to view this content.

[carsto]

Public variable IS in standard code module

Please Login or Register  to view this content.

does not close the workbook. It should but it doesn't!


I don't get any error message, it closes the workbook containing the code and it leaves the wbDb open


dbWb.Activate this does NOT activate the dbWb
dbWb.Close This ACTIVATES IT BUT DOES NOT CLOSE IT

[carsto]

It has to be a setting that I've made elsewhere in the code because when I put just these routines in a blank workbook it works fine.

But what could I have done to make it ignore the code? The BeforeClose Event IS firing when I step thru



Even in the original workbook, the CloseDb works WHEN NOT CALLED FROM THE Workbook BeforeClose

[carsto]

The BeforeClose Event will close BOTH workbooks if I have not run any other code.
When I run the following code, to force an error to GoTo QuitNow and close the closing of the 2nd workbook fails.

Please Login or Register  to view this content.

How can I close both workbooks upon an error but NOT close Excel, as I have a 3rd workbook that the user needs.

[AlphaFrog]

Maybe throw in an Err.Clear command. Just a guess.

Please Login or Register  to view this content.