Save the ppt file with password

[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

 

[Per Jessen]

Hi

Try this:

..SaveAs FileItem, Password:="JustMe"

Regards,
Per

 

[Boss]

That does not work. that works in excel..

In ppt below is the code i got...

With pShow
.password = "test"
.SaveAs FileItem
.Close
End With


thx!