VBA Macro to Open password protected Word Documents

[gennylk]

Hi There,
I have a Word Document which is password protected. I think I may know the password, but it is one of around 20 possible passwords. I wanted to create a macro that has the list of passwords (probably in a static array) and want to try to open it one by one using a loop. When the file opens, Perhaps remove the password and save it or pop up the working password.

Any assistance on how I can try to open another file from a different word document ?
Thanks


Genny

[gmayor]

If you don't have the right password then you cannot open the document with VBA, however you can test it with a list of passwords e.g.

Sub Macro1()
Const strPassword As String = "Test|password|Lorem|another" 'List the passwords separated with '|'
Const strName As String = "E:\Path\Forum\Password is lorem test.docx" 'The document to open
Dim oDoc As Document
Dim vPass As Variant
Dim i As Integer
    vPass = Split(strPassword, "|")
    On Error Resume Next
    For i = 0 To UBound(vPass)
Debug.Print vPass(i)
        Set oDoc = Documents.Open(FileName:=strName, _
                                  PasswordDocument:=vPass(i), _
                                  ReadOnly:=True)
        If Not oDoc Is Nothing Then Exit For
    Next i
lbl_Exit:
    Set oDoc = Nothing
    Exit Sub
End Sub

If the correct password is in the list the document will be opened and the password for the document is the last one listed in the immediate window of the VBA editor (Ctrl+G),

[gennylk]

Thank you GMayor, this is exactly what i was looking for. I wasnt sure which password to use, so this should help, as I can put all my guess list in this. Thanks So much.