Étape 2: Copier / coller le Code Breaker
Insérez le code ci-dessous dans la page déclarations générales que vous avez ouvert.
Vous ne devriez pas avoir à changer quoi que ce soit, feuille nom etc.... Il suffit de couper et coller.
_______________________
Void PasswordBreaker()
' Brise protection de mot de passe de feuille de calcul.
Dim i As Integer, j As Integer, k As Integer
Dim l As Integer, m As Integer, n As Integer
Protected int i1, i2 As Integer, i3 As Integer
Protected int i4, i5 As Integer, i6 As Integer
On Error Resume Next
Pour i = 65 à 66: j = 65 à 66 : pour k = 65 à 66
Pour l = 65 à 66 : pour m = 65 à 66 : pour i1 = 65 à 66
Pour i2 = 65 à 66 : pour i3 = 65 à 66 : pour i4 = 65 à 66
Pour i5 = 65 à 66 : pour i6 = 65 à 66 : pour n = 32 à 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)
Si ActiveSheet.ProtectContents = faux alors
MsgBox « Un mot de passe utilisable est » & 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
Suivant : Next : prochaine : prochaine : prochaine : prochaine
Suivant : Next : prochaine : prochaine : prochaine : prochaine
End Sub
________________________