keyfile excel

[rvq35]

bonjour à tous, me revoilà sur votre forum, mais cette fois ci c'est pour Excel.
j'ai un fichier excel fait avec macro qui ne peut plus s'ouvrir car j'ai perdu le fichier keyfile qui allait avec.
De quel outil ais je besoin pour pouvoir le cracker ? j'ai suivi une méthode sur internet (changer une chaine DPB= en DPX= avec un éditeur Hexa mais ça ne marche pas). je pense que ça ne fonctionne que pour les protections de classeurs et de feuilles de calculs.
merci d'avance

[rvq35]

bonsoir
personne n'a déjà rencontré ce type de protection ?
j'ai beau parcourir sur internet les façons de cracker les fichiers faits sur Excel mais là ça ne peut pas marcher car dès que je veux l'ouvrir, j'ai un message qui s'affiche me disant que je n'ai pas les droits. Je sais que c'est un fichier .txt qu'il faut mettre sur la même racine mais j'ai perdu ce fichier et j'ai besoin de ce fichier.
sur internet on ne parle que des protections par mot de passe.

[HappyMan]

Il faut ouvrir ton fichier excel sans activer les macros.
Puis aller dans l'onglet Developpeur et regarder dans le code VBA.
il doit y avoir une macro dans ThisWorkbook\Workbook\Open

Il y a de forte chance pour que le code VBA soit protégé par un mot de passe, mais dans ce cas Google regorge de truc et astuce pour faire sauter la protection.

HM

[rvq35]

merci pour ta réponse mais je rencontre un problème
je vais bien dans le menu développeur puis visual basic et la je suis sur vba project "nom de mon fichier xls"
effectivement il demande le mot de passe.
sur le net on propose par exemple de créer un nouveau fichier et de copier cette macro mais quand je veux l'exécuter il me dit "erreur de compilation Sub ou fonction non définie"
cette macro est bien à faire dans un fichier excel annexe ?

sub TestProtect()
ProtectVBProject
Workbooks("Proteger_deproteger.xls"), "toto"
end sub
sub TestUnprotect()

UnprotectVBProject Workbooks("Proteger_deproteger.xls"), "toto"
end sub
sub
UnprotectVBProject(WB As Workbook, ByVal Password As String)
Dim vbProj As Object

Set vbProj = WB.VBProject

'Teste si le classeur est déjà déprotégé
If vbProj.Protection 1 Then exit sub
Set
Application.VBE.ActiveVBProject = vbProj

'uilise les sendkeys pourmasquer le mot de passe du projet
SendKeys Password & "~~"

Application.VBE.CommandBars(1).FindControl(ID:\=2578, recursive:=True).Execute

end sub


sub ProtectVBProject(WB As Workbook, ByVal Password As String)
Dim vbProj As Object
Set vbProj = WB.VBProject

'teste si le projet est déjà verrouillé
If vbProj.Protection = 1 Then exit sub
Set Application.VBE.ActiveVBProject = vbProj

'utilise les sendKeys pour mettre le mot de passe
SendKeys "+{TAB}{RIGHT}%V{+}{TAB}" & Password & "{TAB}" &
Password & "~"
Application.VBE.CommandBars(1).FindControl(ID:\=2578, recursive:=True).Execute

WB.Save
end sub

[rvq35]

ça y est j'ai enfin réussi !!!
merci quand même