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

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

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

.