Workbook.ReadOnly Property (Excel)
Office 2013
Published: July 16, 2012
Returns True if the object has been opened as read-only. Read-only Boolean.
expression .ReadOnly
expression A variable that represents a Workbook object.
If the active workbook is read-only, this example saves it as Newfile.xls.
If ActiveWorkbook.ReadOnly Then ActiveWorkbook.SaveAs fileName:="NEWFILE.XLS" End If