Modification macro

[riekol]

bonjour à tous,

Ci joint une macro afin debloquer une feuille excel suite à une perte de mot de passe.
En plus de ne pas tout comprendre sur le fonctionnement de celle ci, je souhaiterai afficher le mot de passe.

merci d'avance pour votre aide

Sub pasword()
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
Dim MyStrings

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 = 65 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) = MyStrings


If ActiveSheet.ProtectContents = False Then
Exit Sub



End If
Next: Next: Next: Next: Next: Next: Next: Next: Next: Next: Next: Next
End Sub

 

[bond]

Re : Modification macro

Avant End Sub, ajoute :
Msgbox Mystrings

 

[riekol]

Re : Modification macro

dsl mais me renvoi un code asci totalement foireux ABABBAA

 

[bond]

Re : Modification macro

Je ne sais pas si c'est foireux, mais apparement le code 'joue' avec des A et des B pour tous les caractères de la chaine sauf le 12ème et dernier caractère qui peut être toutes les lettres de l'alphabet et quelques caractères spéciaux...

 

[riekol]

Re : Modification macro

Modification du code car la premiere version ne marchais pas

Sub pasword()

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
Dim MyStrings

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)

MyStrings = 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

Application.StatusBar = False

Exit Sub

End If
Next: Next: Next: Next: Next: Next: Next: Next: Next: Next: Next: Next


End Sub

 

[bond]

Re : Modification macro

le code 'joue' avec des A et des B pour tous les caractères de la chaine sauf le 12ème

Si tu veux étendre, remplace tous les 65 par 32, et tous les 65 par 126...