ein Passwort geschützt Öffnen

Question

Ich brauche das Passwort geschützte Word-Dokument in VBA öffnen Es wird nach dem Passwort gefragt, wie über Code -Code zu öffnen:

Dim DPDoc 
Dim DPApp 
Dim DPPath 
DPPath = "C:\MyFolder\PwdProtectdFile.docx" 
Set DPApp = CreateObject("word.Application") 
' It is asking for the password here 
DPDoc = DPApp.Documents.Open(DPPath) 

Answer 1

einfach ein Argument hinzu:

Dim YourOwnPassword As String 
YourOwnPassword = "TestPWD" 
DPDoc = DPApp.Documents.Open(DPPath, PasswordDocument:=YourOwnPassword) 

Src: https://msdn.microsoft.com/en-en/library/office/ff835182.aspx