Exit X and Minimise Button Disable

[DaveRadford]

Afternoon,

I disabled the the x button for closing down the spreadhseet using:

Public Sub Workbook_BeforeClose(Cancel As Boolean)
Cancel = True
End Sub

Unfortunately when it try and save using my save&close button it will save but wont allow it to close.

ive tried button an IF Statement in where just before it attempts to close excel it changes "Close Allowed" true which i thought would allow it to save. Unfortunately excel will no longer close using the application.quit

Public Sub Workbook_BeforeClose(Cancel As Boolean)

Dim CloseAllowed As Boolean

If CloseAllowed = True Then

Cancel = False

Else
Cancel = True
End If

End Sub

Any idea?

Thanks,