vba before close save workbook

[babycody]

Is there a way to automatically save a workbook and any changes before it is closed? Thanks all.

 

[Joe Was]

Add this code to the "ThisWorkbook" code module, and it will automatically save the Workbook before that workbook is closed, without displaying a message to save!

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'ThisWorkbook Module code!

ActiveWorkbook.Save
End Sub

 

[babycody]

Thanks that works great.

 

[mpichora]

Add this code to the "ThisWorkbook" code module, and it will automatically save the Workbook before that workbook is closed, without displaying a message to save!

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'ThisWorkbook Module code!

ActiveWorkbook.Save
End Sub

I use this for my "personal.xlsb" workbook because I want it to stay invisible and I want the saving to be done automatically. But, since this is rarely the "active" workbook, I modified the code. Instead of "ActiveWorkbook.Save" I use "ThisWorkbook.Save".
That way, no matter what workbook is active, the one that you're putting the code into is the one that will save.