Code pour déprotéger une feuille de calcul Excel

Il arrive que vous protégiez une feuille de calcul Excel, afin d’éviter que des personnes autres que vous viennent modifier le contenu des cellules. Après des mois, vous oubliez vous mêmes le mot de passe, mais vous devez faire des modifictions sur les cellules protégées. Je mets à votre disposition ce bout de code, qu’il faut coller derrière la feuille à deprotéger.
Pour cela, faites un clic droit sur l’onglet de la feuille (là où se trouve le nom de la feuille), choisir “Visualiser le code”. Une fenêtre s’ouvre. Si vous ne l’avez jamais fait, vous serez en face d’une fenêtre qui sert à la programmation sur Excel.
Collez le code suivant:

Sub EnleveProtection()

ActiveSheet.Protect , , , , True
ActiveSheet.Range(”a1″).Copy ActiveSheet.Range(”a1″)
End Sub

Dès que le code est coller, cliquez juste en dessous de “Sub EnleveProtection()”, puis appuyer sur F5 (pour l’exécution).
Rentrez sur la feuille, et vous constaterez que la protection a disparu!
Attention: Ce code n’est valable que les versions d’Excel antérieure à Excel 2003.

Code pour les versions d’Excel supérieures à 97 (2000, XP et 2003)

Sub EnleveProtection2003()
‘Déprotège Feuille courante

      ActiveSheet.Protect vbNullString, , True, , , , , , , , , , , , , True 
    ActiveSheet.Unprotect vbNullString

End Sub