Casse-mot de passe Excel écrasant le programme
Je travaille sur un fichier Excel qui contient une douzaine de feuilles distinctes. J'ai utilisé le code ci-dessous pour casser le mot de passe sur chacune des feuilles.
Cependant, il y a deux feuilles où je rencontre un problème. Chaque fois que j'exécute le code ci-dessous, il bloque complètement Excel. J'ai essayé différents codes pour casser le mot de passe sur ces deux feuilles, mais le même problème continue de se produire.
Ces deux feuilles ne semblent pas présenter de différences par rapport à l'autre des draps, mais peut-être que je néglige quelque chose? Le classeur n'est pas protégé et il n'y a pas d'autres macros dans le fichier. Toutes les idées sont grandement appréciées!
Sub PasswordBreaker()
'Breaks worksheet password protection.
Dim i As Integer, j As Integer, k As Integer
Dim l As Integer, m As Integer, n As Integer
Dim i1 As Integer, i2 As Integer, i3 As Integer
Dim i4 As Integer, i5 As Integer, i6 As Integer
On Error Resume Next
For i = 65 To 66: For j = 65 To 66: For k = 65 To 66
For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66
For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66
For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126
ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & _
Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
If ActiveSheet.ProtectContents = False Then
MsgBox "One usable password is " & Chr(i) & Chr(j) & _
Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
Exit Sub
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
End Sub