XL 2013 enlevé le mots de passe de projet vba

M12

XLDnaute Accro

• 29 Novembre 2019

• #2

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 29 Novembre 2019

• #3

Bonsoir le fil

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

VB:

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.

 

Dernière édition: 29 Novembre 2019

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 29 Novembre 2019

• #4

Bonsoir à tous,

Staple1600 à dit:

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

Cliquez pour agrandir...

Toujours ton sens de l'humour, hein JM ?

A+

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 29 Novembre 2019

• #5

Re

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 29 Novembre 2019

• #6

Staple1600 à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

Simply

XLDnaute Occasionnel

• 29 Novembre 2019

• #7

Bonsoir

Attention je peux attacher le code 😎

VB:

Option Explicit
....

 

Dernière édition: 29 Novembre 2019

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 29 Novembre 2019

• #8

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 30 Novembre 2019

• #9

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é... 🙄

 

Vote positif 0 Vote négatif