Auto Save on Closing Spreadsheet

[alexdurc09]

Hello all,
I have the below code to automatically save my spreadsheetwhen it is closed down so that people can’t close without saving. However, whenit is closed down, the spreadsheet reopens its self automatically. The only wayto close it down is to exit Excel completely and all spread sheets which are open.
Thanks,
Alex
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'ThisWorkbook Modulecode!

ActiveWorkbook.Save
End Sub

 

[Jaafar Tribak]

Try Me.Save instead of ActiveWorkbook.Save and see what happens.

 

[alexdurc09]

Hi, thank you for your suggestion. Have just tried it but hasn't worked unfortunately. Have you anything else I could try?
Thank,
Ale

 

[Yongle]

The code you are using is standard and works - so there is something else interfering (or possibly a minor corruption)
Is there any other code in ThisWorkbook module?

Perhaps force the user to save the workbook, something like this instead of your code

If Not Me.Saved Then
   MsgBox "Please save the file before closing"
   Cancel = True
End If