Ouvrir un word protégé avec VBA

Bonjour,

J'ai trouver de code VBA sur internet, il est dit qu'il peu ouvrir un fichier sélectionné même si on ne connais pas le mdp. Je suis sceptique.

Sinon j'ai une erreur à la ligne

Line2: If Error Then GoTo Line1

mais je ne vois pas le pblm.

Sub test()
Dim i As Long
i = 0
Dim FileName As String
Application.FileDialog(msoFileDialogOpen).Show
FileName = Application.FileDialog(msoFileDialogOpen).SelectedItems(1)
ScreenUpdating = False
Line2: If Error Then GoTo Line1
Documents.Open FileName, , True, , i & ""
MsgBox "The password is" & i
Application.ScreenUpdating = True
Exit Sub
Line1: i = i + 1
Resume Line2
ScreenUpdating = True
End Sub

Merci d'avance pour votre aide,
PSM