VBA代码取消保护打开的powerpoint演示文稿，然后在保存之前再次保护它？

我保护了 Power Point 演示文稿不被用户修改。但是我无法使用 VBA 取消对其的保护。

我尝试使用下面的代码，但它不起作用。它仅适用于未受保护的演示文稿。但您必须从代码中删除密码。

set p = pa.presentations.open(pth + pptname, pw)

假设您知道密码，您可以使用以下命令打开文件：

Presentations.Open("c:\temp\protected_presentation.pptx::password::")

并在演示文稿上设置密码，例如：

ActivePresentation.Password = "Hide_me"

[编辑以添加一个完整的经过测试的工作示例，该示例假设使用密码 opensesame 保存的演示文稿 C:\temp\testtest.pptx ]

Sub TestTest()

    Dim oPPTApp As Object
    Dim oPPTPres As Object

    Set oPPTApp = CreateObject("PowerPoint.Application")

    If Not oPPTApp Is Nothing Then
        Set oPPTPres = oPPTApp.presentations.Open("C:\temp\test.pptx::opensesame::")
        MsgBox oPPTPres.slides(1).Shapes(1).TextFrame.TextRange.Text
        oPPTPres.Close
        oPPTApp.Quit
    End If
End Sub