Oter la protection d'une feuille excel par macro (tabulations refaites)

Commenter

Contenu du snippet

La macro enleve la protection de la feuille excel active.Choisissez Outils, Macro, Visual Basic Editor 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 et affiche quel est le mot de passe qui est parvenu à ce résultat.

Source / Exemple : 


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 - Un mot de passe satisfaisant est :" & Chr(a) & Chr(b) & _
             Chr(c) & Chr(d) & Chr(e) & Chr(f) & Chr(g) & _
             Chr(h) & Chr(i) & Chr(j) & Chr(k) & Chr(l)
             Exit Sub
            End If
           Next
          Next
         Next
        Next
       Next
      Next
     Next
    Next
   Next
  Next
 Next
Next
End Sub

Conclusion :


Testé sous Excel 97.

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (granddebutant)