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