Workbook.ReadOnly Property (Excel)
Returns True if the object has been opened as read-only. Read-only Boolean.
Syntax
식 .ReadOnly
식 A variable that represents a Workbook object.
Example
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