save ppt with password vba

  • Thread starter Thread starter Boss
  • Start date Start date
B

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
 
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
 
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.
 
Back
Top