save ppt with password vba

[Boss]

Hi,

I need to save the ppt file with passward. what changes shoud i make in the
code.

FileItem = "c:\test.ppt"

Dim pptfile As Object
Set pptfile = CreateObject("powerpoint.application")
pptfile.Visible = True
Set pShow = pptfile.Presentations.Open(FileItem)

With pShow
.SaveAs FileItem
.Close
End With

Please guide asap. thx!

Boss

 

[John Wilson]

Password to Open File?

With pShow
..Password="xyz"
..SaveAs FileItem
..Close
End With

Password to modify file

With pShow
..WritePassword="xyz"
..SaveAs FileItem
..Close
End With

 

[Bill Dilworth]

Steve,

Did you just send someone to the help files?!?

I know that you tested the advice and that it is sound, but isn't that one
of the 7 signs of the apocalypse?

Bill D.