SaveAs password protected document without password - Excel VBA

Question

I am opening a password protected Word document using the below macro in Excel, then I want to save a copy of the document without the password protection. Currently, I am still prompted for the original password when I try and open the newly saved document.

Dim DPObj
Dim DPApp As Object
Dim YourOwnPassword As String
Dim DocPath As String
DocSrcPath = "C:\Users\ADMIN\Desktop\Sources\SourceDoc.doc"
DocTgtPath = "C:\Users\ADMIN\Desktop\Targets\TargetDoc.doc"
YourOwnPassword = "TestPWD"
Set DPApp = CreateObject("word.Application")
'Open Password enabled document
DPDoc = DPApp.Documents.Open(DocSrcPath, PasswordDocument:=YourOwnPassword)
'Make some changes to the document. 
'Save the edited document without a password
DPApp.ActiveDocument.SaveAs2 DocTgtPath

Does anybody know how to make it so that the TargetDoc.doc is not still password protected?

When i open the new document it is prompting for the password "TestPWD". Which i don't wanted to — Udhayakumar
– Udhayakumar, Commented Mar 30, 2017 at 13:22
You want to remove the password in the saved document? Try using DPApp.Unprotect before saving. — Vincent G
– Vincent G, Commented Mar 30, 2017 at 13:23
@Vincent G Getting error ** Run-time error '438' Object doesn't support this property or method ** — Udhayakumar
– Udhayakumar, Commented Mar 30, 2017 at 13:30

Vincent G · Accepted Answer · 2017-03-30 14:04:56Z

3

Using a blank password should work:

DPApp.ActiveDocument.SaveAs2 DocTgtPath, Password:=""

answered Mar 30, 2017 at 14:04

Vincent G

3,1981 gold badge16 silver badges31 bronze badges

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

SaveAs password protected document without password - Excel VBA

1 Answer 1

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Related