XL 2013 enlevé le mots de passe de projet vba

[AHMED DRIDI]

bonjour a tous j'ai oublier mon mots de passe de projet vba est ce qu'il y'a une astuce que me permis de ouvre le projet
merci pour vous aide

 

[M12]

Bonjour,
Même si votre demande est légitime rien ne prouvera que vous êtes bien à l’origine de ce fichier.
C’est la raison pour laquelle on s’interdit sur le forum de donner des astuces pour aider à casser des protections de classeurs ou de projets VBA.

Merci pour votre compréhension.
Bonne journée

 

[Staple1600]

Bonsoir le fil

AHMED DRIDI
Comme il s'agit d'un oubli, cette petite macro devrait t'aider

Sub TrouverMotdePasse()
Dim Lettres$, vbTab_() As Byte, i, passWRD$, Length&
Lettres = "ABC.To.XYZ"
Chiffres = "0123456789"
Randomize
Length = Int((9 - 3 + 1) * Rnd + 3)
vbTab_ = StrConv(Lettres & Chiffres, vbFromUnicode)
For i = LBound(vbTab_) To UBound(vbTab_)
passWRD = passWRD & Chr((vbTab_(i) + (1 * Length)) - Asc(vbTab))
Next
MsgBox "Recopier ce mot de passe pour déprotéger le classeur:" & Chr(13) & StrReverse(passWRD), vbInformation, "Mot de passe trouvé !"
End Sub

NB: Garde cette macro pour toi, ne la diffuse pas.

 

[job75]

Bonsoir à tous,

NB: Garde cette macro pour toi, ne la diffuse pas.

Toujours ton sens de l'humour, hein JM ?

A+

 

[Staple1600]

Re

Job75 (Bonsoir)
Tu connais la réponse, donc pourquoi poser la question ?
NB: Sinon pour les admonestations, il y a les MP.

 

[job75]

NB: Sinon pour les admonestations, il y a les MP.

Ce n'en est pas une, c'est mon humour à moi.

 

[Simply]

Bonsoir

Attention je peux attacher le code 😎

Option Explicit
....

 

[job75]

Pour ceux qui sont à la masse faut quand même préciser que le code de Staple1600 n'a ni queue ni tête.

 

[Staple1600]

Bonjour le fil

job75 (Bonjour)
Le préciser enlève donc l'effet "comique" recherché.
Mais au moins ton sens de l'humour est préservé... 🙄