I have created a PowerPoint Presentation with Excel and I want to save the PPT with a password that is found in a cell in my Excel file.
Here is my code that uses data in my Excel Spreadsheet to name the PPT file:
The password is located in cell P23
PP.SaveAs Filename:="C:\Users\Joe\Documents\" & ActiveSheet.Range("P19").value & ActiveSheet.Range("P20").value & ActiveSheet.Range("P21").value & ActiveSheet.Range("P22").value
Last edited by Bobbbo; 01-27-2017 at 05:37 PM. Reason: Mark it solved
There are two different passwords a PP Presentation can have:
- User needs password to open and view the file.
- User can open and view the file but needs password to edit the file.
Chose one or both.
'User needs password to open and view the file PP.Password = ActiveSheet.Range("P23").Value 'User can open and view the file but needs password to edit the file. PP.WritePassword = ActiveSheet.Range("P23").Value PP.SaveAs Filename:="C:\Users\Joe\Documents\" & ActiveSheet.Range("P19").Value & ActiveSheet.Range("P20").Value & ActiveSheet.Range("P21").Value & ActiveSheet.Range("P22").Value
Surround your VBA code with CODE tags e.g.;
[CODE]your VBA code here[/CODE]
The # button in the forum editor will apply CODE tags around your selected text.
Thanks AlphaFrog, I need the one to keep from opening the file. Just to make sure the code would look like this:Originally Posted by AlphaFrog
There are two different passwords a PP Presentation can have:
- User needs password to open and view the file.
- User can open and view the file but needs password to edit the file.
Chose one or both.
'User needs password to open and view the file PP.Password = ActiveSheet.Range("P23").Value 'User can open and view the file but needs password to edit the file. PP.WritePassword = ActiveSheet.Range("P23").Value PP.SaveAs Filename:="C:\Users\Joe\Documents\" & ActiveSheet.Range("P19").Value & ActiveSheet.Range("P20").Value & ActiveSheet.Range("P21").Value & ActiveSheet.Range("P22").Value
Correct?PP.Password = ActiveSheet.Range("P23").Value PP.SaveAs Filename:="C:\Users\Joe\Documents\" & ActiveSheet.Range("P19").Value & ActiveSheet.Range("P20").Value & ActiveSheet.Range("P21").Value & ActiveSheet.Range("P22").Value
AlphaFrog, I tried it out and it worked great. Thank you so much for your great help!
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
Bookmarks