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