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