Workbook_BeforeClose not triggering

[roscoe]

I have a template with a workbook_open event that works like a champ. Within that routine I save (to a cell) the user's default file save format. Then I change the format to macroenabled so that the template can be saved with macros intact without the users having to remember to change the setting (trivial I know, but my customer whine a lot about the simplest things...maybe that's a good sign that the big stuff works fine).

Anyway, I also have a Workbook_BeforeClose event where I want to reset the user's default file save format back to where it was when the file was opened. Problem is the Workbook_BeforeClose event is not triggering. I know this because I inserted both a Stop command for debugging as well as a breakpoint and it never stops.

Her's the basics of the code if it helps:

Private Sub Workbook_Open()
    Range("Start") = Application.DefaultSaveFormat
    Application.DefaultSaveFormat = xlOpenXMLWorkbookMacroEnabled
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Stop
    Application.DefaultSaveFormat = Range("Start")
End Sub

Ideas?

 

[V_Malkoti]

Are you setting EnableEvents to False in other subroutines/functions?

 

[roscoe]

That was exactly the problem...thanks!