ReadOnly Property
True if the workbook has been opened as read-only. Read-only Boolean.
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