VBA - save before close unless...

[bdfagoodfella]

I am trying to force my workbook to save before close unless it was opened as read only.
Does anyone have the correct code to accomplish this?

Thanks in advance for your suggestions.

 

[Legacy 98055]

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    If Not Me.ReadOnly Then Me.Save
End Sub

Ok?

 

[bdfagoodfella]

I had finally come up with something....

Dim blnReadonly As Boolean
blnReadonly = ThisWorkbook.ReadOnly
If blnReadonly = True Then
Exit Sub
Else
ThisWorkbook.Save
End If

but yours looks much simpler.

TY much for your help

 

[Legacy 98055]

They are both the same. You are welcome.