VBA：PPT課件演示打開爲只讀

Question

我嘗試打開，修改和保存演示文稿，但它總是被開闢爲只讀：

If measTypesDict.Exists(MeasType) = False Then 
    Dim targetPath As String 
    Dim newPres As PowerPoint.presentation 

    measTypesDict.Add MeasType, New Dictionary 

    Set newPres = PowerPoint.Application.Presentations.Add(msoFalse) 

    targetPath = rootDir & "\final\" & MeasType & ".ppt" 
    newPres.SaveAs targetPath 
    ' newPres.Close that is what's been missing 

    targetPresentationsDict.Add MeasType, Presentations.Open(targetPath, ReadOnly:=msoFalse, WithWindow:=msoFalse) 
End If 

從Microsoft Documentation：

The ReadOnly parameter is used to open a presentation as Read-Only. 
The following example opens a file named test.ppt as Read-Only. 

    Sub OpenPresentationReadOnly() 
     Presentations.Open "c:\test.ppt", msoTrue 
    End Sub 

任何人都可以給我一個提示，爲什麼這是這種情況？我是目標文件夾的所有者，並根據文件夾設置完全控制。

Answer 1

你可以試試這個：

Sub OpenPresentation() 
     Presentations.Open "c:\test.ppt" 
    End Sub 

希望它能幫助。