Read Only

[tasander]

Hi

I need to get some code which checks if the workbook is read only before i try and save it and if so tell the user this and abort the operation

Does anyone know anything i can use?

Thanks

 

[Andrew Poulsom]

Like this?

If ActiveWorkbook.ReadOnly Then
    MsgBox "Read only"
    Exit Sub
End If

 

[BAlGaInTl]

You can put this in your "ThisWorkbook" code

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If ActiveWorkbook.ReadOnly = True Then
    MsgBox ("This file is read only and can not be saved.")
    Cancel = True
End If
End Sub

 

[tasander]

Thanks guys thats great