The following example demonstrates how to return the ReadOnly property.
Private Sub ReadOnlyPropExample()
Dim ReadStatus As Boolean
ReadStatus = ActiveDocument.ReadOnly
MsgBox "The ReadOnly property is: " & ReadStatus
End Sub