如何使用VBA 7.1解锁受保护PPTX文件并实现编辑保存

我需要解锁受保护的PPTX文件，编辑后另存。脚本在文件未加密时可正常运行，但使用VBA 7.1解锁文件，添加密码参数后触发错误（错误提示：参数类型错误或不在可接受的范围之内，或与其他参数冲突）。

以下是我的VBA代码：

Sub UpdatePPT()
Dim oPPApp As Object, oPPPrsn As Object, oPPSlide As Object
Dim oPPShape As Object
Dim FlName As String
Dim desktopFolderPath As String
Dim cellData As String
Dim password As String


desktopFolderPath = CreateObject("WScript.Shell").specialfolders("Desktop")
password = "Password123"
cellData = Range("Input!E21").Value
   
Const ppSaveAsDefault = 11

'~~> Change this to the relevant file
FlName = (desktopFolderPath & "\BES RCA Files\BES RCA Template DO NOT EDIT.pptx")

'~~> Establish an PowerPoint application object
On Error Resume Next
Set oPPApp = GetObject(, "PowerPoint.Application")

If Err.Number <> 0 Then
    Set oPPApp = CreateObject("PowerPoint.Application")
End If
Err.Clear
On Error GoTo 0

oPPApp.Visible = True

'~~> Open the relevant powerpoint file
Set oPPPrsn = oPPApp.Presentations.Open(FlName)
''''

解决方法 #

问题出在Presentations.Open方法的参数传递逻辑上：

• VBA的Presentations.Open包含多个可选参数，若不指定参数名，传值会严格按照预设的参数顺序匹配，而密码参数并非第二个位置的参数，直接追加会导致参数不匹配，触发类型错误。
• 必须显式指定参数名来传递密码，确保参数对应正确。

修改打开文件的代码行如下：

' 如果是打开密码（需要密码才能打开文件）
Set oPPPrsn = oPPApp.Presentations.Open(FileName:=FlName, Password:=password)

' 如果是修改密码（可打开但需密码编辑），则用WritePassword参数
' Set oPPPrsn = oPPApp.Presentations.Open(FileName:=FlName, WritePassword:=password)

这样就能正确传递密码参数，打开受保护的PPTX文件。

内容的提问来源于stack exchange，提问作者user29419778