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

Signaler
-
 PSM -
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

Configuration: Windows / Firefox 89.0

2 réponses

Messages postés
16490
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
18 juillet 2021
3 195
Je ne vous demande pas de trouver le mot de passe mais de m’expliquer pourquoi ma ligne de code ne marche pas et idéalement comment faire pour que ça marche. x)

PSM