Password Protect a PowerPoint File

[Bobbbo]

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:

PP.SaveAs Filename:="C:\Users\Joe\Documents\" & ActiveSheet.Range("P19").value & ActiveSheet.Range("P20").value & ActiveSheet.Range("P21").value & ActiveSheet.Range("P22").value

The password is located in cell P23