Comment ôter une protection d'un document Excel

Vous avez créé une merveilleuse feuille de calcul Excel et avez décidé de la protéger avec un mot de passe... Bravo! Maintenant que vous avez oublié le mot de passe, les problèmes commencent! Et bien voici la solution: une macro qui enlève la protection de la feuille Excel active.

Choisissez Outils, Macro, Visual Basic Editor, cliquer sur afficher le code et collez cette Macro. Dans la feuille active protégée, choisissez Outils, Macro, Macro puis selectionnez la macro enleve_protection et cliquez sur Executer. La macro enlève la protection de la feuille en quelques secondes.

Sub enleve_protection()
Dim a, b, c, d, e, f, g, h, i, j, k, l As Integer
On Error Resume Next
For a = 65 To 66
For b = 65 To 66
For c = 65 To 66
For d = 65 To 66
For e = 65 To 66
For f = 65 To 66
For g = 65 To 66
For h = 65 To 66
For i = 65 To 66
For j = 65 To 66
For k = 65 To 66
For l = 32 To 126
ActiveSheet.Unprotect Chr(a) & Chr(b) & Chr(c) & Chr(d) & Chr(e) & Chr(f) & Chr(g) & Chr(h) & Chr(i) & Chr(j) & Chr(k) & Chr(l)
If ActiveSheet.ProtectContents = False Then
MsgBox "La Protection a été enlevée"
Exit Sub
End If
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
End Sub