AHMED DRIDI
XLDnaute Nouveau
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
merci pour vous aide
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
Toujours ton sens de l'humour, hein JM ?NB: Garde cette macro pour toi, ne la diffuse pas.
Ce n'en est pas une, c'est mon humour à moi.NB: Sinon pour les admonestations, il y a les MP.
Option Explicit
....