Bonjour à tous,
Je rencontre un problème assez délicat avec un classeur Excel. Je vais vous détailler la configuration de mon classeur.
1/ Le classeur contient au total 5 feuilles.
2/ Parmi ces 5 feuilles, 3 sont accessibles à l'utilisateur et les 2 autres sont cachées et protégées.
Sauf que j'ai changé par mégarde le mot de passe des feuilles cachées et protégées.
Je souhaiterais donc avoir accès de nouveau à l'ensemble des feuilles. Malheuresement, les 2 solutions majeures que j'ai trouvé sur le net n'ont pas fonctionnées.
En bref, la première solution est de zip puis modifier le xml puis de dézipper. Voir le détail de la procédure en cliquant sur le lien:
http://www.excelsupersite.com/how-to-remove-an-excel-spreadsheet-password-in-6-easy-steps/La seconde solution correspond au code VBA suivant qui n'a pas du tout fonctionné dans mon cas.
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 "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
Source du code : https://www.passfab.com/excel/how-to-unprotect-excel-2016-without-password.html
Je remercie par avance tous ceux qui pourront me faire sortir de cette situation.
Bon après-midi à tous.