Save file if not Read Only

[Pavertheway]

Hi,

I have the following code;

Private Sub Workbook_BeforeClose(Cancel As Boolean)Dim ws As Worksheet
Sheets("START").Visible = xlSheetVisible
Application.EnableEvents = False
For Each ws In ThisWorkbook.Worksheets
If ws.Name <> "START" Then
ws.Visible = xlVeryHidden
End If
Next ws
ActiveWorkbook.Save
End Sub

And in the ActiveWorkbook.Save I owuld only like this to happen if it is a local file, and if it is read only then it would not save. Is this possible?

Thanks!

 

[steve the fish]

Try:

If Not ActiveWorkbook.ReadOnly Then ActiveWorkbook.Save

 

[Pavertheway]

Perfect. Cheers!