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