Closing the workbook & saving automatically

I don't think you can save changes in Read Only.

Once the workbook has been saved you can use this, it goes into the workbook module

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


End Sub

You can set up the workbook to be read only in the tools options, and then use a password if you want to modify the workbook....

Try

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

Still get the "Do you want to save your changes" message. If I add

Application.DisplayAlerts = False

to the workbookbeforeclose macro, I still get the message.

Just noticed something...these macros are contained on my sheet object. Do they need to be on my workbook object instead?

Got it working mostly with...

Private Sub Workbook_BeforeClose(cancel As Boolean)
Application.DisplayAlerts = False
ThisWorkbook.Save
End Sub

When opened in read-only mode, if someone tried to make a change, it closes without saving the changes.