ReadOnly Property
Applies To
Workbook object.
Description
True if the workbook has been opened as read-only. Read-only Boolean.
See Also
Open method, SaveAs method.
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