Ouvrir un word protégé avec VBA [Résolu]

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