Mot de passe oublié

bonjour,

comme tu peux le trouver à peu près n'importe où, y compris chez John
Walkenbach, autant que je te donne la proc. Attention, ca cassera la
protection de ta feuille mais ca ne te donnera pas le vrai mdp en raison de
la manière qu'Excel utilise pour encrypter les mdp de feuille et de classeur.

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)
If ActiveSheet.ProtectContents = False Then
MsgBox "un mot de passe possible : " & Chr(i) & Chr(j) & _
Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
Exit Sub
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next

A+

Bonjour à tous,

J'ai protégé mes feuilles par un mot de passe que je n'ai évidemment pas
manqué d'oublier...

Je dois apporter quelques modifs de mise en forme...bernique ;-)

Quelqu'un peut-il m'aider ?

Merci d'avance et bonne journée.

Daniel S.