ReadOnly Property 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