Code VBA pour déverrouiller une feuille Excel verrouillée

Si vous avez déjà oublié un mot de passe pour l'une de vos feuilles de calcul Excel, vous savez à quel point cela peut être frustrant.

Le code utilisé dans cette instruction est l'un des plus simples que j'ai trouvés. Il générera un code utilisable qui déverrouillera votre feuille protégée.

Je ne peux pas prendre le crédit du code car je l'ai simplement trouvé dans un moment de besoin (et je ne peux plus trouver où se trouve le site) ... alors je ne serai pas d'une grande aide s'il ne fonctionne pas pour vous mais je 'ai réussi et j'ai pensé partager.

Étape 1: Ouvrez VBA

Ouvrez la feuille de calcul à laquelle vous avez oublié votre mot de passe.

Utilisez Alt + F11 pour accéder à l'éditeur de macros.
Une fois dans VBA, double-cliquez sur la feuille que vous devez déverrouiller dans la liste de menu à gauche.
Cela ouvrira la page des déclarations générales de la feuille.

Étape 2: couper et coller le disjoncteur de code

Insérez le code ci-dessous dans la page des déclarations générales que vous avez ouverte.

Vous ne devriez rien changer, le nom de la feuille etc ... Il suffit de couper et coller.
_______________________

Sub PasswordBreaker ()

'Casse la protection par mot de passe de la feuille de calcul.

Dim i comme entier, j comme entier, k comme entier
Dim l comme entier, m comme entier, n comme entier
Dim i1 comme entier, i2 comme entier, i3 comme entier
Dim i4 comme entier, i5 comme entier, i6 comme entier
En cas d'erreur Reprendre ensuite
Pour i = 65 à 66: Pour 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 = False Then
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)
Quitter sous
Fin si
Suivant: Suivant: Suivant: Suivant: Suivant: Suivant
Suivant: Suivant: Suivant: Suivant: Suivant: Suivant
End Sub
________________________

Étape 3: exécuter la macro

Une fois le code ajouté, exécutez la macro en sélectionnant Exécuter dans la barre d'onglets du menu en haut de l'écran de l'éditeur VBA ou appuyez simplement sur F5

Étape 4: utilisez le code généré

La macro vous ramènera à la feuille de calcul que vous souhaitez déprotéger. Une boîte de style d'alerte apparaîtra avec un code utilisable.

Dans l'onglet du menu Révision, cliquez sur Déprotéger la feuille.
Entrez le code généré comme mot de passe et c'est fait. Votre feuille doit être déverrouillée!

Vous ne devez utiliser ce pouvoir à bon escient et de manière responsable que pour déverrouiller vos propres feuilles de calcul.