Problem with Macro Running When Closing a Document

Question

Hi Folks;
I'm trying to develop a Visio macro that runs when I close a document, but I've run into a snag...
The problem is that the code below only works when I press the 'X' in the corner of the document to close it.  If I try to close it using
File -> Close, I get the error "Run Time Error -2032464741 (86db0c9b) An exception occurred", and the debugger highlights the first 'Application' line.
I need the code to work regardless of the close operation, and I'm not sure how to make that happen (since I assumed it should've work the same regardless).
Private Function Document_QueryCancelDocumentClose(ByVal doc As IVDocument) As Boolean
Document_QueryCancelDocumentClose = True
If MsgBox("If you made changes, did you UPDATE the Diagram History? (Select Yes if no changes were made)", vbYesNo + vbCritical + vbDefaultButton2, "Warning - DIAGRAM HISTORY UPDATED?") = vbYes Then
Application.ActiveDocument.Pages.ItemU("Diagram").Layers.Item("Warning").CellsC(4) = 1
Document_QueryCancelDocumentClose = False
Else
Document_QueryCancelDocumentClose = True
End If
End Function
Any help would be appreciated.
Zang

Answer 1

I'm betting your typical "try this" response is not what anyone wants.  But since you've chimed in... my problems with the Visio event model are PLENTY.  Print and save events that cannot be cancelled, document close that doesn't fire on application
close, and Application.BeforeDocumentSaveAs that occurs WAY AFTER the document has been saved are just a few.  (Did Microsoft even test these events??)  The official Microsoft response to ALL of this was, in a word, "repurpose" it. Essentially they
advocate completely rewriting the actual Save and Print portions of the interface and corresponding logic in Visio by intercepting keystrokes and redirecting ribbon extensibility idMso ="FileSave" and idMso ="FileSaveAs" commands to your own methods. 
To quote paid support:
"You may repurpose Save command in Visio as suggested in my previous email, however there is a design limitation that does not allow repurposing Print backstage button.
In order to achieve Visio Print repurpose, the workaround is to hide the print back stage altogether and plug with custom backstage ribbon xml."
We now also repurpose idMso="FilePrintQuick", idMso="FilePrintPreview", and idMso="FileClose" customUI commands, but we still had to use the logic above to catch save before closing. 
Valid methods that work while Visio is active will fail within Application close.  IT IS A BUG IN VISIO.  That is what this post is about.