Excel VBA以可写模式打开PPT并保存关闭：只读模式问题

你的核心问题是Presentations.Open默认可能因参数设置、文件占用或权限问题导致只读打开，进而无法执行Save操作，以下是针对性解决方案：

1. 强制以可编辑模式打开PPT #

修改Presentations.Open的参数，明确指定非只读模式，同时添加占用提示：

Set oPresentation = ObjPPT.Presentations.Open(FileName:=opath, ReadOnly:=msoFalse, Notify:=msoTrue)

参数说明：

• ReadOnly:=msoFalse：强制要求可编辑权限，只要文件未被其他进程锁定，就能获取写入权限
• Notify:=msoTrue：如果文件被其他用户/程序打开，会弹出提示窗口，避免静默失败

2. 排查文件基础问题 #

• 确认目标PPT未被PowerPoint客户端或其他程序打开
• 检查文件所在文件夹的写入权限，确保当前用户有修改权限
• 右键文件→属性，取消「只读」属性勾选

3. 只读状态下的兜底保存方案 #

如果无法避免只读打开，可先判断状态，用SaveAs覆盖原文件：

If oPresentation.ReadOnly Then
    oPresentation.SaveAs FileName:=opath, FileFormat:=ppSaveAsOpenXMLPresentation
Else
    oPresentation.Save
End If

完整修改后的代码 #

Sub Macro()

Dim ObjPPT As PowerPoint.Application
Dim oPresentation As PowerPoint.Presentation
Dim oslide As PowerPoint.Slide
Dim oshape As PowerPoint.Shape
Dim i As Long
Dim opath As String

Set ObjPPT = New PowerPoint.Application
opath = "G:\Kommunikation_Meetings_Actions\Audits\Lean Audits\Lean Action Tracker & Production Performance (VBA)\Daily KPI.pptx"
ObjPPT.Visible = msoCTrue

' 强制以可编辑模式打开
Set oPresentation = ObjPPT.Presentations.Open(FileName:=opath, ReadOnly:=msoFalse, Notify:=msoTrue)

' ...........（你的其他操作代码）

' 根据只读状态选择保存方式
If oPresentation.ReadOnly Then
    oPresentation.SaveAs FileName:=opath, FileFormat:=ppSaveAsOpenXMLPresentation
Else
    oPresentation.Save
End If

Application.Wait "00:00:05"
oPresentation.Close
ObjPPT.Quit ' 退出PowerPoint进程，避免后台残留
Set oPresentation = Nothing
Set ObjPPT = Nothing

End Sub

额外提醒 #

操作完成后必须执行ObjPPT.Quit，否则会有PowerPoint后台进程残留，可能导致后续文件锁定；如果文件在网络共享路径，建议先复制到本地操作后再放回共享路径，避免权限/延迟问题。

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