ReadOnly Property 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