Save the ppt file with password
 

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

Save the ppt file with password
 

Hi

Try this:

..SaveAs FileItem, Password:="JustMe"

Regards,
Per

"Boss" skrev i meddelelsen
...
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

Save the ppt file with password
 

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!


"Per Jessen" wrote:

Hi

Try this:

..SaveAs FileItem, Password:="JustMe"

Regards,
Per

"Boss" skrev i meddelelsen
...
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

.