1. Accueil
  2. Tous les snippets
  3. Snippets Visual Basic / VB.NET
  4. Oter la protection d'une feuille excel par macro (tabulations refaites)

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

5/5 (74 avis)

Snippet vu 326 112 fois - Téléchargée 45 fois

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

Ajouter un commentaire Commentaires
Brianeau
4 sept. 2014 à 11:37
Fonctionne sous Excel 2010
Il faut juste respecter la mise en page des lignes (pas de retour à la ligne...)
killedman Messages postés 17 Date d'inscription mardi 9 mars 2004 Statut Membre Dernière intervention 23 novembre 2017
3 déc. 2012 à 21:41
Un peut tard, mais c'est génial.

Merci, la macro original fonctionne bien.
haykoula1984 Messages postés 5 Date d'inscription samedi 30 juillet 2011 Statut Membre Dernière intervention 19 septembre 2011
19 sept. 2011 à 13:26
merci bien, ça marche!!!!
pascamau Messages postés 4 Date d'inscription vendredi 28 janvier 2005 Statut Membre Dernière intervention 5 juin 2009
3 août 2011 à 13:59
Merci pour ce code, ça va me faire gagner du temps.
lekoala1 Messages postés 1 Date d'inscription mardi 7 décembre 2010 Statut Membre Dernière intervention 7 décembre 2010
7 déc. 2010 à 13:48
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
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)