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

Soyez le premier à donner votre avis sur cette source.

Snippet vu 312 081 fois - Téléchargée 43 fois

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

Ajouter un commentaire

Commentaires

Fonctionne sous Excel 2010
Il faut juste respecter la mise en page des lignes (pas de retour à la ligne...)
Messages postés
17
Date d'inscription
mardi 9 mars 2004
Statut
Membre
Dernière intervention
23 novembre 2017

Un peut tard, mais c'est génial.

Merci, la macro original fonctionne bien.
Messages postés
5
Date d'inscription
samedi 30 juillet 2011
Statut
Membre
Dernière intervention
19 septembre 2011

merci bien, ça marche!!!!
Messages postés
4
Date d'inscription
vendredi 28 janvier 2005
Statut
Membre
Dernière intervention
5 juin 2009

Merci pour ce code, ça va me faire gagner du temps.
Messages postés
1
Date d'inscription
mardi 7 décembre 2010
Statut
Membre
Dernière intervention
7 décembre 2010

bonjour,

j'ai ouvert la feuille protégée aller dans "outil, macro, visual basic editor" et sur sur l'écran de droite fait la copie du programme ci-dessus puis retourner dans la feuille. Cependant, en faisant "outil, macro, macro" mais il n'y a pas macro enleve_protection. Pouvez-vous détailler la procédure et où trouver la fonction enleve_protection.

Merci pour votre aide
Afficher les 74 commentaires

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.