How to open a password protected powerpoint file by Excel macro

[wangww]

how to open a password protected powerpoint file by Excel macro? by the
way,the cipher is known.

 

[Jacob Skaria]

Not an expert with PPT; but there is no way to check whether a presentation
has got a password or presentations.Open do not have an option to pass the
password. Try the below which worked for me....which uses Sendkeys..

Sub Macro()

Dim pptApp As Object, strFile As String, strPassWord As String

strFile = "d:\Presentation8.ppt"
strPassWord = "password"

Set pptApp = CreateObject("PowerPoint.Application")
pptApp.Visible = True
pptApp.Activate
SendKeys "%F", True
SendKeys "O", True
SendKeys strFile, True
SendKeys "%O", True
SendKeys strPassWord, True
SendKeys "~", True

'Set myPPT = pptApp.Presentations(1)
'MsgBox myPPT.Name

End Sub

 

[Jacob Skaria]

If that works; you can combine all Sendkeys as below

SendKeys "%FO" & strFile & "%O" & strPassWord & "~", True