本示例打开 TestPassword.dps 。为其设置密码,然后关闭该演示文稿。

With Presentations.Open(FileName:="C:\TestPassword.dps")
    .Password = "abc"
    .Save
    .Close
End With