Modification macro

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