Mde passe oublié

[Mapat]

Bonjour,

Fin 2007, j'ai fait une application pour prendre des réservations de
taxis TER (je travaillais dans une gare et depuis 1 an je suis à la retraite)
Cette application a bien plu et j'ai été contacté par mon ancien chef
me proposant d'aider pour en faire une application régionale.
le hic de l'affaire, c'est que j'avais mis un mot de passe et que ne
pratiquant plus, je l'ai oublié ....
Bon, je suis allé voir sur le forum et j'ai essayé avec acyd qui me répond :
"erreur d'exécution21474 17848(80010108)
erreur automation
l'objet masqué s'est déconnecté de ses clients"

et mon fichier est rendu inutilisable (j'ai une sauvegarde saine)
que puis faire ?

 

[Risleure]

Re : Mde passe oublié

Bonjour Mapat, le Forum

Il y a sans conteste Acyd !! Et je n'utilise plus le code ci dessous mais il marche. 🙄

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

 

[Mapat]

Re : Mde passe oublié

Bonjour Risleure

Merci de ta réponse. Je suppose que ton code doit être inséré dans un module
Mais bien sur je ne peux pas ouvrir visual basic ....

 

[JCGL]

Re : Mde passe oublié

Bonjour à tous,

Si cela peut te rassurer : Acyd ne fonctionne pas sous XL 2007 (il semblerait que Ti ne souhaite pas le faire tourner sous XL 2007)

A+ à tous

 

[Mapat]

Re : Mde passe oublié

Re JCGL

J'ai oublié de préciser que j'étais sous excel 2003

 

[JCGL]

Re : Mde passe oublié

Re,

Oups, non c'est moi j'ai vu 2007 et me suis mépris sur la version.

Est-ce un feuille qui est protégée ou le classeur ?
Es-tu sur d'avoir la bonne version d'Acyd (il en existe une pour XL 97 et une autre pour > XL 97 et < XL 2007)

A+ à tous

 

[Mapat]

Re : Mde passe oublié

re

C'est mon classeur qui est protégé
et j'ai téléchargé la dernière version sur le site de Ti tout à l'heure

 

[Risleure]

Re : Mde passe oublié

Re,

Ah si c'est le MdP du projet VBA, c'est autre chose.
Alors là je ne connais qu'Acyd de Ti
mon code ne retrouve que les MdP d'ouverture du fichier

Désolé

 

[Mapat]

Re : Mde passe oublié

ok Risleure
merci quand même de t'être intéressé au problème

 

[JCGL]

Re : Mde passe oublié

Re,

Effectivement tu as bien téléchargé la 1.9
Je ne vois pas comment t'aider.
Désolé 🙁

A+

 

[Mapat]

Re : Mde passe oublié

Re,

J'ai lu sur les différents messages concernant le même sujet qu'il pouvait y avoir un doute quant au véritable auteur du fichier.
Je comprends tout a fait les craintes et les retenues de certaines personnes qui connaissent la méthode pour retrouver ou supprimer les mots de passe.
J'ai également vu que sur certains post certains se proposaient pour faire le nécessaire en leur envoyant le fichier.
J'aimerais volontiers qu'une telle personne se propose car ce fichier, j'ai bossé dessus pendant un très long moment et, d'ailleurs, avec pas mal d'aide de ce forum.
Peut-être qu'avec un peu de chance je croiserai la bonne fée ...

 

[Mapat]

Re : Mde passe oublié

Bonjour le forum
Je fais remonter mon post espérant une solution à mon petit problème
Merci encore

 

[jmd2]

Re : Mde passe oublié

hello

y a-t-il possibilité d'enregistrer sous une version <=2003 ?
ensuite Acyd 😉

*****

 

[Mapat]

Re : Mde passe oublié

Re le forum, jmd2

Un grand merci a jmd2
j'ai réinstallé excel 2002 et ça a fonctionné.
Je vais donc pouvoir retravailler sur ce fichier
Bonne soirée à tous sur ce forum