ReadOnly Property
Applies To
Presentation object.
Description
True if the specified presentation is read-only. Read-only Long.
Example
If the active presentation is read-only, this example saves it as Newfile.ppt.
With Application.ActivePresentation
If .ReadOnly Then .SaveAs FileName:="newfile"
End With