ReadOnly Property

Returns True if the publication is read-only; False if it is read-write. Read-only Boolean.

expression   Required. An expression that returns one of the objects in the Applies To list.

Example

This example saves the active publication and  notifies the user that the file is saved and if it is read-only or not.

Sub SaveAndStatus()

    Dim bStatus As Boolean

    Application.ActiveDocument.SaveAs "c:\testfile.pub"
    bStatus = Application.ActiveDocument.ReadOnly
    MsgBox "File Saved and Read-only Status = " & bStatus

End Sub