[TUTO] Cracker le mot de passe VBA d’un fichier XLS

Pour faire suite à mon précédent post: Crack Excel VBA Password

Voici, Le tutoriel complet pour changer le mot de passe VBA d’un fichier Excel en version 2003 extension .XLS et accèder au code:

Pour cela il vous faut la version 2010 d’Excel obligatoirement

Je vous recommande de faire une copie du fichier avant de faire les manipulations, au cas où

1/ Ouvrir le fichier avec un éditeur de texte (ex: Notepad2+)

2/ Rechercher la ligne DPB= et remplacer la par DPx=

01

3/ Enregistrer et fermer l’éditeur

4/ Ouvrir le fichier avec Excel 2010: Cliquez “Oui” pour l’erreur

02

5/ Allez dans l’éditeur VBA, ALT+F11: Cliquez “Ok” pour l’erreur

03

6/ Changer le mot de passe dans l’onglet Protection

04

7/ Enregistrer, fermer, reouvrer, taper le mot de passe que vous venez de changer…

05

…et bingo!

Crack Excel VBA Password

La méthode qui fonctionne, testé et approuvé par mes soins pour les versions d’Excel 2003 et 2010.

1/ – Pour la version 2003: Ouvrez le fichier Excel dans un éditeur de texte (ou hexa) et passer directement à l’étape 2.

– Pour la version 2010: Renommer le fichier .xlsm en .zip, ouvrez le et faite extraire le fichier xl/vbaProject.bin ou ouvrer le directement dans un éditeur de texte.

2/ Cherchez la ligne DPB= et remplacer la par DPx=, enregistrer

– Pour la version 2010 remettrez le fichier à sa place dans le zip et renommer en xlsm

3/ Ouvrez le fichier dans Excel, faite « Ok » pour les erreurs, allez dans l’éditeur VBA : ALT+F11 et changer le mot de passe : Outils > Propriétés de VBAProject…, onglet Protection.

4/ Enregistrer, fermer, recouvrer le fichier et le tour est joué.

Editeur Hexa Open source

Edit:

Le tuto en images: [TUTO] Cracker le mot de passe VBA d’un fichier XLS

VBA Les boucles For Foreach While

For

Dim i As Integer, result As Integer

result = 0
For i = 1 To 10 ' Step 2
 result = result + i
Next

For Each

Dim ele As Workbook

For Each ele In Workbooks
    ele.Save
Next

While

Dim total As Integer
Set cell = ActiveCell

Do While Not IsEmpty(cell)
    total = total + cell
Loop

Loop Until/While

Dim resp As String
Do
    resp = InputBox("Name?")
Loop Until resp <> ""

More: http://silkyroad.developpez.com/vba/boucles/