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

--
john ATSIGN PPTAlchemy.co.uk

Free PPT Hints, Tips and Tutorials
http://www.pptalchemy.co.uk/powerpoint_hints_and_tips_tutorials.html

[Steve Rindsberg]

Before .SaveAs insert

Password = "blahblahblah"

For more details:
Start PowerPoint
Press Alt+F11 to open the VBA IDE
Type "password" into the help box

==============================
PPT Frequently Asked Questions
http://www.pptfaq.com/

PPTools add-ins for PowerPoint
http://www.pptools.com/

[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.

"Steve Rindsberg" <ab...@localhost.com> wrote in message
news:VA.0000549...@localhost.com...

[Steve Rindsberg]

In article <u5#aCCvaK...@TK2MSFTNGP06.phx.gbl>, Bill Dilworth wrote:
> 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?

One? 8, I'd think. *

I'm so embarassed. Really. But you have to understand that for the first
time in Idunnohowmanyyears, I asked Help a question and actually found a
relevant answer, and right near the top of the "hit list" ... understandably,
I was startled and thrilled. It takes so little when one's expectations are
so circumscribed. I just HAD to share the excitement.

* PS. The world as you knew it ended a few minutes ago.