Advertisement
Guest User

Untitled

a guest
Jul 16th, 2019
80
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.20 KB | None | 0 0
  1. Sub SetPassword()
  2.  
  3. With Presentations.Open(FileName:="C:My DocumentsEarnings.ppt")
  4.  
  5. .Password = complexstrPWD 'global variable
  6.  
  7. .Save
  8.  
  9. .Close
  10.  
  11. End With
  12.  
  13. End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement