Oter les protection de feuilles et classeur excel. méthode sans échec.

Soyez le premier à donner votre avis sur cette source.

Vue 164 638 fois - Téléchargée 11 881 fois

Description

Cette macro supprime les protection du classeur actif ou de la feuille active et fournit un mot de passe équivalent.
La méthode est basé sur l'algorithme de hachage de Microsoft et trouve obligatoirement un mot de passe.
La macro contient tous les commentaires explicatifs.
Cette macro est postée pour éclaircir celle proposée par Granddebutant sur le forum le 03/07/2002 et répondre aux questions posées (enfin j'espère !).

Activez la feuille ou le classeur à déprotéger et lancez la macro.

Source / Exemple :


Attribute VB_Name = "Deprotection"
'
'Déprotection sans échec du classeur ou de la feuille Excel avec extraction de mot de passe.
'
'Auteur : CHEPAKOIDIR
'
'PRINCIPE :
'Excel ne mémorise pas le mot de passe mais une clé sur 15 bits calculée à partir de ce mot de passe.
'Il y a donc 2^15 = 32768 possibilités de clés (de 0 à 32767) en tout et pour tout (c'est dire la fiabilité !).
'Il existe ainsi des milliards de mots de passe qui donnent la même clé. Ils sont EQUIVALENTS. On peut protéger
'avec un mot de passe et déprotéger avec un équivalent, reprotéger avec un autre équivalent, etc.
'Ceci pour répondre à ceux qui voudraient trouver le "bon" mot de passe. C'est impossible et ça n'a aucune
'importance, si vous voulez pirater un classeur sans que son propriétaire s'en rende compte (c'est pas bien ça), 
'déprotégez-le puis reprotégez-le avec le mot de passe équivalent trouvé, il n'y verra que du feu.
'
'CALCUL DE LA CLE PAR EXCEL :
'Microsoft n'en fait pas un secret et l'on peut trouver facilement la méthode sur internet.
'On applique à chaque caractère du mot de passe une rotation à gauche sur 15 bits. Le premier caractère tourne
'de 1 bit, le deuxième caractère tourne de 2 bits, etc. Comme c'est une rotation sur 15 bits, le 15ème caractère
'tourne de 0 bits, le 16ème tourne de 1 bit et on recommence par tranche de 15 ...
'Tous les résultats des rotations sont ensuite combinés avec des Ou Exclusifs (XOR pour les prétentieux).
'Puis on fait encore un ou exclusif entre le résultat final et la longueur du mot de passe.
'Enfin, on fait un dernier ou exclusif avec la constante CE4Bh. Notez que les ou exclusifs sont commutatifs.
'La clé ainsi calculée est stockée dans l'enregistrement numéro 13h du stream de la feuille ou du classeur.
'Par exemple, le mot de passe "toto" donne la clé CA4Bh. Le mot de passe "CCCBBBBBBCBBBBC" donne la même.
'
'ALGORITHME :
'Cette macro utilise 15 boucles imbriquées de deux valeurs. Peu importe les valeurs, elles doivent juste être deux
'valeurs CONSECUTIVES et IDENTIQUES pour toutes les boucles (pour assurer que les 32768 possibilités soient
'couvertes). Attention, la première valeur doit être PAIRE. Ces deux valeurs doivent aussi être les codes ASCII de 
'caractères acceptés par Excel dans les mots de passe. 
'Exemples : "0" et "1" ou "B" et "C" ou "x" et "y" mais pas "A" et "B" (codes 65 et 66, le premier est impair).
'Le bit de poids faible de chaque variable de boucle correspond ainsi à 1 bit de la clé (0 ou 1 = 2 valeurs). Les
'autres bits des variables sont sans importance puisqu'ils sont constants et l'on est sûr de parcourir les 32768 
'possibilités mais pas forcément dans l'ordre, ce qui n'a aucune importance.
'A chaque tour, les 15 caractères sont concaténés pour former le mot de passe à essayer et on boucle jusqu'à 
'trouver celui qui marche.
'Sur un pentium à 2 GHz normalement constitué, il faut un peu plus d'une minute dans le pire des cas pour faire
'sauter une protection.
'
'AUTRE METHODE :
'Il est possible de récupérer la clé de la feuille ou du classeur dans le fichier Excel (voir doc microsoft) et de calculer
'directement un mot de passe équivalent. Dans ce cas, il faut 2 secondes.
'Au boulot !!!
'

'ATTENTION, la feuille ou le classeur à déprotéger doivent être actifs au lancement de la macro 
'et il vaut mieux désactiver ses macros.
Sub Deproteger()

    Dim A As Byte, B As Byte, C As Byte, D As Byte, E As Byte
    Dim F As Byte, G As Byte, H As Byte, I As Byte, J As Byte
    Dim K As Byte, L As Byte, M As Byte, N As Byte, O As Byte
    Dim Reponse As Byte, Temps As Variant
    Dim Cible As Object, Passe As String
    
'   Demande ce qu'il faut déprotéger.
    Reponse = MsgBox("Voulez-vous déprotéger le classeur actif ?" & vbCrLf & _
     "Si vous répondez non, c'est la feuille active qui sera déprotégée.   ", _
      vbYesNoCancel, "Déprotectionnateur")
                                        
    On Error Resume Next
'   Teste ce qu'il faut déprotéger.
    Select Case Reponse
        Case vbYes
'           Définit le classeur actif comme cible à déprotéger.
            Set Cible = ActiveWorkbook
'           Teste si le classeur est protégé.
            If Not (Cible.ProtectStructure Or Cible.ProtectWindows) Then
                MsgBox "Le classeur actif n'est pas protégé.   " & vbCrLf & _
                vbCrLf & "Andouille !", vbOKOnly, "Déprotectionnateur"
                Exit Sub
            End If
'           Teste si le classeur est protégé sans mot de passe.
            Err.Clear
            Cible.Unprotect vbNullString
            If Err = 0 Then
                MsgBox "La protection du classeur actif a été supprimée.   " _
             & vbCrLf & "Il n'y avait pas de mot de passe. Petit rigolo !",  _
               vbOKOnly, "Déprotectionnateur"
                Exit Sub
            End If
        Case vbNo
'           Définit la feuille active comme cible à déprotéger.
            Set Cible = ActiveSheet
'           Teste si la feuille est protégée (on ne teste pas UserInterfaceOnly qui ne peut être positionné que par macro 
'           et n'est pas enregistré avec le classeur).
            If Not (Cible.ProtectContents Or Cible.ProtectDrawingObjects Or _
             Cible.ProtectScenarios) Then
                MsgBox "La feuille active n'est pas protégée.   " & vbCrLf & _
                vbCrLf & "Patate !", vbOKOnly, "Déprotectionnateur"
                Exit Sub
            End If
'           Teste si la feuille est protégée sans mot de passe.
            Err.Clear
            Cible.Unprotect vbNullString
            If Err = 0 Then
               MsgBox "La protection de la feuille active a été supprimée.   " _
             & vbCrLf & "Il n'y avait pas de mot de passe. Quelle burne !",  _
               vbOKOnly, "Déprotectionnateur"
               Exit Sub
            End If
        Case Else
'           Annulation demandée par l'utilisateur.
            MsgBox String(14, " ") & "Ciao !", vbOKOnly, "Déprotectionnateur"
            Exit Sub
    End Select
        
'   Note l'instant de départ.
    Temps = Timer

'   Boucles de calcul des mots de passe. On utilise ici les codes ascii des caractères "0" et "1".
    For A = 48 To 49
     For B = 48 To 49
      For C = 48 To 49
       For D = 48 To 49
        For E = 48 To 49
         For F = 48 To 49
          For G = 48 To 49
           For H = 48 To 49
            For I = 48 To 49
             For J = 48 To 49
              For K = 48 To 49
               For L = 48 To 49
                For M = 48 To 49
                 For N = 48 To 49
                  For O = 48 To 49
'                       Calcule le mot de passe.
                        Passe = Chr(A) & Chr(B) & Chr(C) & Chr(D) & Chr(E) & _
                                Chr(F) & Chr(G) & Chr(H) & Chr(I) & Chr(J) & _
                                Chr(K) & Chr(L) & Chr(M) & Chr(N) & Chr(O)
'                       Essaie de déprotéger la cible.
                        Err.Clear
                        Cible.Unprotect Passe
'                       Teste si la cible est bien déprotégé.
                        If Err = 0 Then
'                           Si oui, affiche le mot de passe et sort.
                            MsgBox "La protection a été supprimée en " & _
                            Timer - Temps & " secondes.   " & vbCrLf &  _
                             "Le mot de passe équivalent trouvé est :" & _
                            vbCrLf & vbCrLf & String(28, " ") & Passe, _
                            vbOKOnly, "Déprotectionnateur"
                            Exit Sub
                        End If
                  Next
                 Next
                Next
               Next
              Next
             Next
            Next
           Next
          Next
         Next
        Next
       Next
      Next
     Next
    Next

'   Message impossible à atteindre.
    MsgBox "Mot de passe introuvable." & vbCrLf & vbCrLf & _
            "C'est pas normal !!!", vbOKOnly, "Déprotectionnateur"
    
End Sub

Conclusion :


Aucun bug (connu). Fonctionne sur toutes les versions Excel que j'ai pu approcher (de 97 à 2003).
Version définitive !

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

us_30
Messages postés
2117
Date d'inscription
lundi 11 avril 2005
Statut
Membre
Dernière intervention
14 mars 2016
7 -
Salut,

JE pense qu'on peutt largemenent optimiser le code...

Par exemple, au lieu de toutes les lignes FOR, on peut construire directement les nb binaires, qui ce révèle globlalement plus rapide...

Voici, une possibilité :

'Boucles de calcul des mots de passe
Fin = 2 ^ 15 - 1
For N = 0 To Fin Step 1
Passe = vbNullString
B = N
Do
Passe = CStr(B Mod 2) & Passe
B = B \ 2
Loop While B > 0

'Erreur nulle
Err.Clear
Cible.Unprotect Passe

'Teste si la cible est bien déprotégé.
If Err = 0 Then
'Si oui, affiche le mot de passe et sort.
MsgBox "La protection a été supprimée en " & Timer - Temps & " secondes. " & _
vbCrLf & "Le mot de passe équivalent trouvé est :" & _
vbCrLf & vbCrLf & String(28, " ") & Passe, vbOKOnly, "Déprotectionnateur"
Exit Sub
End If
Next N

Après quelques mesures du temps, j'ai obtenu avec cette version une durée globalement réduite de 2 à 8 fois. (Le temps dépend aussi du mot de passe à découvrir, par ex: si mot de passe = "fred" (140s contre 315s) alors c'est bien plus long à découvrir que "a" (18s contre 145s))


Amicalement,
Us.
us_30
Messages postés
2117
Date d'inscription
lundi 11 avril 2005
Statut
Membre
Dernière intervention
14 mars 2016
7 -
Complément,

Bien sur, N et B seront déclarés en Integer... D'ailleurs, au lieu du type byte, dans ton code tu devrais chosir le type Integer que sera un peu plus rapide...

Us.
chepakoidir
Messages postés
2
Date d'inscription
vendredi 22 juillet 2005
Statut
Membre
Dernière intervention
2 avril 2006
-
Salut,

Je suis d'accord, l'idée est bonne mais alors ça ne marcherait qu'avec des mots de passe composés de 1 et de 0.
Dans mes boucles j'utilise 48 et 49 qui sont les codes ascii de "0" et "1" mais on peut aussi bien les remplacer par les codes 65 et 66 ("A" et "B") ou autre chose. Et l'astuce ne marche plus !

Pour le temps, tout dépend si le mot passe initial a modifié ou pas les bits de gauche de la clé. A cause de la constante CA4Bh mise en Xor, les petits passes donne un bit 15 à 1 par exemple mais pas les grands. On peut mélanger les boucles mais c'est impossible à optimiser, faudrait connaître le passe avant de l'avoir trouvé !!!
Bah, on n'est pas à une minute près. Mon objectif était surtout d'expliquer le principe de la chose. Je préférerais lire la clé dans le fichier et calculer directement un passe avec. Mon problème c'est que la doc Microsoft est peu claire sur la structure du fichier. Si quelqu'un a des infos ...

Amicalement,

Chepakoidir
cyril16000
Messages postés
1
Date d'inscription
lundi 3 juillet 2006
Statut
Membre
Dernière intervention
9 août 2006
-
Hello!

J'ai bien aimé le message "le classeur n'est pas protégé, ANDOUILLE", lorsque l'on fait un test sur un classeur effectivement NON PROTEGE...
Bien ri!!! Merci...
cs_bourasseau
Messages postés
1
Date d'inscription
vendredi 3 novembre 2006
Statut
Membre
Dernière intervention
3 novembre 2006
-
Bonjour,
Le problème est que je ne peux pas rendre actif le classeur protégé par mot de passe car la boite de dialogue mot de passe se ferme et le classeur aussi, donc la macro ne sert a rien puisque le classeur est fermé.
A moins qu'il y ait une autre combine.

merci pour la réponse

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.