本示例打开 TestPassword.dps 。为其设置密码,然后关闭该演示文稿。
With Presentations.Open(FileName:="C:\TestPassword.dps")
.Password = "abc"
.Save
.Close
End With