在VBA

Question

打开一个密码保护的Word文档，我需要打开VBA 密码保护的Word文档时它被要求输入密码，如何通过代码打开 代码：

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

只需添加一个参数：

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

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