Comment récupérer le mot de passe de protection de feuille de calcul perdu dans Excel?

Nous définissons toujours des mots de passe pour protéger certaines feuilles de calcul importantes contre la destruction ou la modification par d'autres. Mais si vous oubliez vos mots de passe, comment pourriez-vous faire? Heureusement, Excel prend en charge certains codes VBA pour récupérer votre mot de passe de protection de feuille de calcul perdu. Vous pouvez traiter ce problème comme suit:

Récupérer le mot de passe de protection de feuille de calcul perdu dans Excel avec le code VBA

Récupérer le mot de passe de protection de feuille de calcul perdu dans Excel avec le code VBA

Le code VBA suivant peut vous aider à annuler rapidement vos mots de passe d'origine dans une feuille de calcul.

1. Ouvrez votre feuille de calcul qui a été protégée auparavant.

2. Maintenez le ALT + F11 clés, et il ouvre le Fenêtre Microsoft Visual Basic pour Applications.

3Cliquez sur insérer > Moduleet collez le code suivant dans le Fenêtre du module.

Code VBA: récupérer le mot de passe de protection de feuille de calcul perdu

Sub PasswordRecovery()
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

4. Puis clique F5 clé pour exécuter ce code, et une boîte de dialogue apparaîtra, cliquez sur OK pour le fermer, et vos mots de passe de la feuille de calcul protégée seront immédiatement annulés.

Notes:

1. Avec ce code, vous ne récupérez qu'un seul mot de passe de protection de feuille de calcul à la fois, s'il existe plusieurs feuilles de calcul protégées, vous devez appliquer ce code une par une.
2. Le code ci-dessus provient de http://excelzoom.com/2009/08/how-to-recover-lost-excel-passwords/.

Articles connexes

Comment protéger plusieurs feuilles de calcul à la fois dans Excel?

Comment déprotéger plusieurs feuilles de calcul à la fois dans Excel?