BeforeClose Cancel not working

[kadeo]

I'm hoping someone can identify the issue here:
I have this code in the ThisWorkbook module:

Please Login or Register  to view this content.

But the event doesn't cancel.

I get the msgbox so I know that the If statement is good.

When I step through and debug the value of Cancel before the code sets it to True, the value is False (as expected). After the code sets it to True and I debug the value of Cancel, the value is True (as expected).

But the event is never cancelled and the workbook always closes.

I have also tried using ByRef in the parameters for the procedure but nada.

Driving me insane!

[Norie]

Works for me in a blank workbook after I change 'Sheet 1' to 'Sheet1'.

Any other code in the workbook?

[kadeo]

Works for me in a blank workbook after I change 'Sheet 1' to 'Sheet1'.

Any other code in the workbook?

No, no other code.

However, that got me thinking. There's an add-in we use at work that changes the save behaviour of MS Office Apps so that all documents are saved through the API of a document management system (HP TRIM). I wonder could that be continuing the close event?

Could I use DisableEvents or something similar to deal with this? If so where would I use it?

[Norie]

Not sure if disabling events would help, if you disabled events then BeforeClose wouldn't be triggered and it might not even affect the add-in.

[kadeo]

It looks like it was the Add-In that was causing the problem. A few tests with it installed and uninstalled revealed the truth.

Toying with the idea of turning the Add-In off in the Workbook_Open event until the required cells have been completed. Not ideal but a workaround nonetheless.

As always Norie, thanks for your help. You got me on the right track. I'd give you rep but it looks like I have to spread the love before I can give to you again. lol That's how much you help me!