ReadOnly 属性

       

返回指定的演示文稿是否为只读。只读。MsoTriState 类型。

示例

如果当前演示文稿为只读,本示例将其保存为文件“Newfile.ppt”。

With Application.ActivePresentation
    If .ReadOnly Then .SaveAs FileName:="newfile"
End With