x in upper right corner

[bam12]

Is there a way to close a spreadsheet when clicking on x in upper right corner and it not asking to save file first?

 

[Oaktree]

In the ThisWorkbook module put either:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Save
End Sub

to automatically save before closing

or

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Saved = True
End Sub

to automatically close without saving