Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Sub SetPassword()
- With Presentations.Open(FileName:="C:My DocumentsEarnings.ppt")
- .Password = complexstrPWD 'global variable
- .Save
- .Close
- End With
- End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement