Mot de passe perdu

[coyote]

Bonjour,

J'ai mis à disposition un fichier Excel sur notre réseau interne avec les protections suivantes :
Lecture seule
VBA

Et je ne me souviens plus du mot de passe.
:angry:

Je n'arrive même pas à faire une copie 'enregistrer sous'.

Le fichier fait 5 Mo, zippé 1,5 mo (créé avec EXCEL 2000). Je ne peux le mettre en pièce jointe

J'ai essayé le fichier DeprotectionExcel et j'obtiens le message : 'Les mots de passe ont été trouvé en 0 essai' et bien sûr le fichier n'est pas déprotégé.


L'un de vous a t'il une solution ?

Merci d'avance


PS : bravo pour cette nouvelle version de forum

 

[_Thierry]

Bonjour Coyote


Si tu vas dans l'ancien Forum XLD :

=> Ce lien n'existe plus

... Et que tu ustilises le Moteur de Recherche de ce Forum là avec les mots clefs 'Mot de passe'...

...Tu devrais trouver ton bonheur... C'est le Top 50 des questions !!!

Bonne Recherche
@+Thierry

 

[Brigitte]

Bon pour une fois je vais être un peu plus généreuse que Thierry...

Voici une macro donnée par Risleure dans l'ancienne version du forum, si tu veux tout le fil, tu cliques sur : Archives du forum, puis tu fais Recherche et là tu tapes MDP, tu choisis 'sujet' puis 60 jours... Mais voici le lien de celui auquel je pense : Lien supprimé

A placer dans un module dans le fichier excel à 'craquer' :

Sub crack()

Dim i As Integer, j As Integer, k As Integer
Dim l As Integer, m As Integer, n As Integer
Dim i1 As Integer, i2 As Integer, i3 As Integer
Dim i4 As Integer, i5 As Integer, i6 As Integer
On Error Resume Next
For i = 65 To 66: For j = 65 To 66: For k = 65 To 66
For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66
For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66
For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126
ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & _
Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
Application.StatusBar = 'Le mot de passe en cours d'évaluation est ' & _
Chr(i) & Chr(j) & Chr(k) & Chr(l) & Chr(m) & Chr(i1) & _
Chr(i2) & Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
If ActiveSheet.ProtectContents = False Then
Application.StatusBar = False
Exit Sub
End If
Next: Next: Next: Next: Next: Next: Next: Next: Next: Next: Next: Next
End Sub

Bon courage, chez moi ca marche impeccable... même avec un mot de passe tordu...

Ceci dit, vrai qu'il y a plein de solutions géniales ici ou sur VériTi (notamment Acyd)...

 

[Coyote]

Merci Thierry pour ton intervention

J'ai essayé les 2 versions d'Acyd

J'obtiens le message d'erreur suivant :
Erreur d'exécution 1004
L'accès par programme au projet Visual Basic n'est pas fiable

 

[Coyote]

Salut Brigitte

Mon projet VBA est également protégé, donc je n'arrive pas à y intégrer ta solution.

 

[Ti_]

dans ce cas lis la doc, ça aide bien...

 

[_Thierry]

Bonjour Brigitte (et donc Bonne Fête à toi !) et re Coyote

Pour ton dernier message concernant 'Acyd' celà signifie que tu es sous Office XP 2002 ou 2003.

Il s'agit d'un paramètre de sécurité additionnel aux standards 'Macros Protections'

Je travaille en version americaine mais ça donne ceci

[li]=> Menu Excel [/li]=> Tools (Outils)
[li]=> Macro (!)[/li]=> Security (Sécurité)
[li]=> Dans la Fenêtre 'Sécurity', second Onglet 'Trusted Source' (Source Fiable... ?)[/li]
[li]=> Cocher 'Trust Access to Visual Basic Project' ('Faire Confiance !!!')[/li]

Voilà c'est tout, j'en ai déjà dépanné plus d'un avec cette nouvelle sécurité ...

Bonne Journée
@+Thierry

 

[_Thierry]

Oh entre temps le 'Ti_ Nouveau est arrivé !!!' lol on est pas en Novembre pourtant !!!

Salut à Toi, je ne t'avais pas vu.

@+Thierry

 

[Coyote]

_Thierry écrit:

Bonjour Brigitte (et donc Bonne Fête à toi !) et re Coyote

Pour ton dernier message concernant 'Acyd' celà signifie que tu es sous Office XP 2002 ou 2003.

Il s'agit d'un paramètre de sécurité additionnel aux standards 'Macros Protections'

Je travaille en version americaine mais ça donne ceci

[li]=> Menu Excel [/li]=> Tools (Outils)
[li]=> Macro (!)[/li]=> Security (Sécurité)
[li]=> Dans la Fenêtre 'Sécurity', second Onglet 'Trusted Source' (Source Fiable... ?)[/li]
[li]=> Cocher 'Trust Access to Visual Basic Project' ('Faire Confiance !!!')[/li]

Voilà c'est tout, j'en ai déjà dépanné plus d'un avec cette nouvelle sécurité ...

Bonne Journée
@+Thierry

EXCELlentissime (en 1 mot)

Merci à tous pour vos interventions

Si çà interesse quelqu'un (fichier 1,5 mo zippé)
J'ai une base de donnée sous EXCEL avec l'ensemble des communes de france (VILLE, CP, Code INSEE, DEPT) et j'y ai développé un moteur de recherche avec plusieurs critéres