AutoSave on exit stopped working

[Mech.Mon]

My PERSONAL.xlsb has been set up for years to save before exit without the prompt to save. Now it has stopped working. It does not matter if the worksheet is opened individually or after taking the focus after closing another sheet.
In VBAProject>>ExcelObject>ThisWorkbook

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Tried Private and Public

'Fails
'Workbooks("PERSONAL.xlsb").Activate
'Me.Save

'Fails
'ThisWorkbook.Saved = True
'ThisWorkbook.Save

'Fails
Application.DisplayAlerts = False
ThisWorkbook.Saved = True
ThisWorkbook.Save
Application.DisplayAlerts = True

'Created Macro in a module with the previous code.
'Fails
'Call Close_Book

I just tried putting a messagebox in the Workbook_BeforeClose event and it never fired.

 

[rlv01]

Run this macro to check if Events have somehow been disabled.

'Check if events are enabled.
Sub TurnOnEventsIfOff()
    If Not Application.EnableEvents Then
        Select Case MsgBox("Events are off!" & vbCrLf & vbCrLf & "Turn them back on?", vbYesNo Or vbExclamation, Application.Name)
        Case vbYes
            Application.EnableEvents = True
        End Select
    End If
End Sub

 

[Mech.Mon]

I've already done that.

With Application
        .ScreenUpdating = True
        .EnableEvents = True
        .DisplayAlerts = True      
End With

Application.Calculation = xlAutomatic

So I copied every sheet into a new WkBk, imported all the modules and user forms from the original. Saved to XLSTART. Went through a few rounds of open and closing both files with making edits and no edits. Original WkBk would only fire Before_Close event sporadically. Then noticed my XLAMs were not loading so had to regedit HKEY_CURRENT_USER\Software\Microsoft\Office\16.0\Excel\Options and rewrite the OPEN keys so that there were no blanks between entries. That and new workbook seems to have solved it.