MOT PASSE

A vec douceur et SANS crier
http://www.motdepasseperdu.com/

Au fait

Bonjour LUC
et de rien d'avance

lSteph

"DEVEROUILLER FICHIER XLS" <DEVEROUILLER FICHIER
XLS@discussions.microsoft.com> a écrit dans le message de news:
365EC71E-7878-432C-ACE9-3C79464818F6@microsoft.com...

BONJOUR A TOUS
J AI UN SOUSIS POUR LA PROTECTION DE FICHIER XLS
J AI OUBLIER LE CODE ????
COMMENT FAIT POUR DEVEROUILLER ???? OU ENTRER DEDANS????
MERCI D AVANCE

LUC

Salut Luc,
Je me doute que tu as les boules mais ce n'est pas la peine de crier. ;o)
Regarde avec ce code. Tu le place dans le module d'un nouveau classeur, tu
mets un bouton sur la feuille, tu lui attache la macro "TestMotDePasse" en
indiquant au préalable à cette dernière la feuille ou le classeur à
déprotéger, tu clique sur ton bouton et l'avancement de la recherche est
indiqué dans la barre d'état. Un message te prévient quand c'est fini. Selon
le mot de passe il te faudra être patient :

Sub OterMotDePasse(Cls_Fe As Object)
Dim EtatBarre As Boolean
Dim Message As String
Dim MotDePasse As String
Dim I As Integer
Dim J As Long

'teste si une protection par mot de passe existe
On Error Resume Next
Cls_Fe.Unprotect ("essaPeDtoM")
If Err.Number = 0 Then
MsgBox IIf(TypeName(Cls_Fe) = "Workbook", _
"Le classeur '", "La feuille '") & _
Cls_Fe.Name & _
"' ne possède pas de protection par mot " & _
"de passe !", vbExclamation, "Protection."
Exit Sub
End If
'réinitialise le gestionnaire
On Error GoTo 0

With Application
EtatBarre = .DisplayStatusBar
.DisplayStatusBar = True
End With
'défini le message à afficher en fonction
'de l'objet (classeur ou feuille)
Message = " Recherche du mot de passe "
If TypeName(Cls_Fe) = "Workbook" Then
Message = Message & "du classeur '" _
& Cls_Fe.Name & "'. Itérations : "
Else
Message = Message & "de la feuille '" _
& Cls_Fe.Name & "'. Itérations : "
End If

'initialise le générateur
Randomize

'recherche du mot de passe où la sortie est faite
'quand il n'y a plus d'erreur sur la tentative
'd'ouverture
'si cela dure trop, appuyer sur "Ctrl + Pause"
Do
For I = 1 To Int(9 * Rnd + 1) - 1
MotDePasse = MotDePasse + Chr(Int(2 * Rnd + 33))
Next I
MotDePasse = MotDePasse + Chr(Int((255 - 32 + 1) * Rnd + 32))
On Error Resume Next
Cls_Fe.Unprotect MotDePasse
If Err.Number = 0 Then Exit Do
J = J + 1
Application.StatusBar = Message & J
MotDePasse = ""
Loop

'commence la construction du message
If TypeName(Cls_Fe) = "Workbook" Then
Message = "Le classeur '" & Cls_Fe.Name & _
"' est maintenant déprotégé !"
Else
Message = "La feuille '" & Cls_Fe.Name & _
"' est maintenant déprotégée !"
End If

Message = Message & vbCrLf & _
"Mot de passe crypté : " & MotDePasse

MsgBox Message, vbInformation, "Protection."

With Application
.StatusBar = False
.DisplayStatusBar = EtatBarre
End With

End Sub

Sub TestMotDePasse()
'Pour un classeur : Workbooks("MonClasseur.xls")
'Pour une feuille : Workbooks("MonClasseur.xls").Worksheets("Feuil1")
OterMotDePasse Workbooks("MonClasseur.xls")
End Sub

Hervé.

"DEVEROUILLER FICHIER XLS" <DEVEROUILLER FICHIER
XLS@discussions.microsoft.com> a écrit dans le message news:
365EC71E-7878-432C-ACE9-3C79464818F6@microsoft.com...

BONJOUR A TOUS
J AI UN SOUSIS POUR LA PROTECTION DE FICHIER XLS
J AI OUBLIER LE CODE ????
COMMENT FAIT POUR DEVEROUILLER ???? OU ENTRER DEDANS????
MERCI D AVANCE

LUC

Bonjour,

Ce n'est pas vraiment dans les habitudes du forum que d'afficher des
macros pour retrouver les mots de passe; compte tenu du doute légitime
vis à vis les intentions réelles du demandeur.

Personne ne connaît personne ici, et personne ne peut dire que le
demandeur dit la vérité vraie. C'est pour cela que le consensus
général est de ne pas donner directement les mots de passe ou la
solution. Même si on sait que les mots de passe dans Office, sont loin
d'être à toute épreuve.



--
On n' apprend pas à un vieux singe à faire des grimaces
"Hervé" <hmsilve@wanadoo.fr> a écrit dans le message de
news:u%23wWynXXFHA.2540@tk2msftngp13.phx.gbl...

Salut Luc,
Je me doute que tu as les boules mais ce n'est pas la peine de
crier. ;o)

Regarde avec ce code. Tu le place dans le module d'un nouveau
classeur, tu

mets un bouton sur la feuille, tu lui attache la macro
"TestMotDePasse" en

indiquant au préalable à cette dernière la feuille ou le classeur à
déprotéger, tu clique sur ton bouton et l'avancement de la recherche
est

indiqué dans la barre d'état. Un message te prévient quand c'est
fini. Selon

le mot de passe il te faudra être patient :

Sub OterMotDePasse(Cls_Fe As Object)
Dim EtatBarre As Boolean
Dim Message As String
Dim MotDePasse As String
Dim I As Integer
Dim J As Long

'teste si une protection par mot de passe existe
On Error Resume Next
Cls_Fe.Unprotect ("essaPeDtoM")
If Err.Number = 0 Then
MsgBox IIf(TypeName(Cls_Fe) = "Workbook", _
"Le classeur '", "La feuille '") & _
Cls_Fe.Name & _
"' ne possède pas de protection par mot " & _
"de passe !", vbExclamation, "Protection."
Exit Sub
End If
'réinitialise le gestionnaire
On Error GoTo 0

With Application
EtatBarre = .DisplayStatusBar
.DisplayStatusBar = True
End With
'défini le message à afficher en fonction
'de l'objet (classeur ou feuille)
Message = " Recherche du mot de passe "
If TypeName(Cls_Fe) = "Workbook" Then
Message = Message & "du classeur '" _
& Cls_Fe.Name & "'. Itérations : "
Else
Message = Message & "de la feuille '" _
& Cls_Fe.Name & "'. Itérations : "
End If

'initialise le générateur
Randomize

'recherche du mot de passe où la sortie est faite
'quand il n'y a plus d'erreur sur la tentative
'd'ouverture
'si cela dure trop, appuyer sur "Ctrl + Pause"
Do
For I = 1 To Int(9 * Rnd + 1) - 1
MotDePasse = MotDePasse + Chr(Int(2 * Rnd + 33))
Next I
MotDePasse = MotDePasse + Chr(Int((255 - 32 + 1) * Rnd + 32))
On Error Resume Next
Cls_Fe.Unprotect MotDePasse
If Err.Number = 0 Then Exit Do
J = J + 1
Application.StatusBar = Message & J
MotDePasse = ""
Loop

'commence la construction du message
If TypeName(Cls_Fe) = "Workbook" Then
Message = "Le classeur '" & Cls_Fe.Name & _
"' est maintenant déprotégé !"
Else
Message = "La feuille '" & Cls_Fe.Name & _
"' est maintenant déprotégée !"
End If

Message = Message & vbCrLf & _
"Mot de passe crypté : " & MotDePasse

MsgBox Message, vbInformation, "Protection."

With Application
.StatusBar = False
.DisplayStatusBar = EtatBarre
End With

End Sub

Sub TestMotDePasse()
'Pour un classeur : Workbooks("MonClasseur.xls")
'Pour une feuille :
Workbooks("MonClasseur.xls").Worksheets("Feuil1")

OterMotDePasse Workbooks("MonClasseur.xls")
End Sub

Hervé.

"DEVEROUILLER FICHIER XLS" <DEVEROUILLER FICHIER
XLS@discussions.microsoft.com> a écrit dans le message news:
365EC71E-7878-432C-ACE9-3C79464818F6@microsoft.com...

BONJOUR A TOUS
J AI UN SOUSIS POUR LA PROTECTION DE FICHIER XLS
J AI OUBLIER LE CODE ????
COMMENT FAIT POUR DEVEROUILLER ???? OU ENTRER DEDANS????
MERCI D AVANCE

LUC

Bonjour,

Bon, je vais ranger la Ferrari dans le garage.....
;o))

JJ


"Hervé" <hmsilve@wanadoo.fr> a écrit dans le message de
news:u%23wWynXXFHA.2540@tk2msftngp13.phx.gbl...

Salut Luc,
Je me doute que tu as les boules mais ce n'est pas la peine de crier.
;o)

Regarde avec ce code. Tu le place dans le module d'un nouveau classeur,
tu

mets un bouton sur la feuille, tu lui attache la macro "TestMotDePasse"
en

indiquant au préalable à cette dernière la feuille ou le classeur à
déprotéger, tu clique sur ton bouton et l'avancement de la recherche est
indiqué dans la barre d'état. Un message te prévient quand c'est fini.
Selon

le mot de passe il te faudra être patient :

Sub OterMotDePasse(Cls_Fe As Object)
Dim EtatBarre As Boolean
Dim Message As String
Dim MotDePasse As String
Dim I As Integer
Dim J As Long

'teste si une protection par mot de passe existe
On Error Resume Next
Cls_Fe.Unprotect ("essaPeDtoM")
If Err.Number = 0 Then
MsgBox IIf(TypeName(Cls_Fe) = "Workbook", _
"Le classeur '", "La feuille '") & _
Cls_Fe.Name & _
"' ne possède pas de protection par mot " & _
"de passe !", vbExclamation, "Protection."
Exit Sub
End If
'réinitialise le gestionnaire
On Error GoTo 0

With Application
EtatBarre = .DisplayStatusBar
.DisplayStatusBar = True
End With
'défini le message à afficher en fonction
'de l'objet (classeur ou feuille)
Message = " Recherche du mot de passe "
If TypeName(Cls_Fe) = "Workbook" Then
Message = Message & "du classeur '" _
& Cls_Fe.Name & "'. Itérations : "
Else
Message = Message & "de la feuille '" _
& Cls_Fe.Name & "'. Itérations : "
End If

'initialise le générateur
Randomize

'recherche du mot de passe où la sortie est faite
'quand il n'y a plus d'erreur sur la tentative
'd'ouverture
'si cela dure trop, appuyer sur "Ctrl + Pause"
Do
For I = 1 To Int(9 * Rnd + 1) - 1
MotDePasse = MotDePasse + Chr(Int(2 * Rnd + 33))
Next I
MotDePasse = MotDePasse + Chr(Int((255 - 32 + 1) * Rnd + 32))
On Error Resume Next
Cls_Fe.Unprotect MotDePasse
If Err.Number = 0 Then Exit Do
J = J + 1
Application.StatusBar = Message & J
MotDePasse = ""
Loop

'commence la construction du message
If TypeName(Cls_Fe) = "Workbook" Then
Message = "Le classeur '" & Cls_Fe.Name & _
"' est maintenant déprotégé !"
Else
Message = "La feuille '" & Cls_Fe.Name & _
"' est maintenant déprotégée !"
End If

Message = Message & vbCrLf & _
"Mot de passe crypté : " & MotDePasse

MsgBox Message, vbInformation, "Protection."

With Application
.StatusBar = False
.DisplayStatusBar = EtatBarre
End With

End Sub

Sub TestMotDePasse()
'Pour un classeur : Workbooks("MonClasseur.xls")
'Pour une feuille : Workbooks("MonClasseur.xls").Worksheets("Feuil1")
OterMotDePasse Workbooks("MonClasseur.xls")
End Sub

Hervé.

"DEVEROUILLER FICHIER XLS" <DEVEROUILLER FICHIER
XLS@discussions.microsoft.com> a écrit dans le message news:
365EC71E-7878-432C-ACE9-3C79464818F6@microsoft.com...

BONJOUR A TOUS
J AI UN SOUSIS POUR LA PROTECTION DE FICHIER XLS
J AI OUBLIER LE CODE ????
COMMENT FAIT POUR DEVEROUILLER ???? OU ENTRER DEDANS????
MERCI D AVANCE

LUC

Bonjour,
Fais vite, avant qu'Hervé n'en ai copié et distribué les clefs !
;o)))
--
Amicales Salutations

"Jacky" <delaenlevezjusquiciJacky.jaeg@Wbidon.fr> a écrit dans le message de news:
OUFR7tcXFHA.580@TK2MSFTNGP15.phx.gbl...

Bonjour,

Bon, je vais ranger la Ferrari dans le garage.....
;o))

JJ


"Hervé" <hmsilve@wanadoo.fr> a écrit dans le message de
news:u%23wWynXXFHA.2540@tk2msftngp13.phx.gbl...

Salut Luc,
Je me doute que tu as les boules mais ce n'est pas la peine de crier.
;o)

Regarde avec ce code. Tu le place dans le module d'un nouveau classeur,
tu

mets un bouton sur la feuille, tu lui attache la macro "TestMotDePasse"
en

indiquant au préalable à cette dernière la feuille ou le classeur à
déprotéger, tu clique sur ton bouton et l'avancement de la recherche est
indiqué dans la barre d'état. Un message te prévient quand c'est fini.
Selon

le mot de passe il te faudra être patient :

Sub OterMotDePasse(Cls_Fe As Object)
Dim EtatBarre As Boolean
Dim Message As String
Dim MotDePasse As String
Dim I As Integer
Dim J As Long

'teste si une protection par mot de passe existe
On Error Resume Next
Cls_Fe.Unprotect ("essaPeDtoM")
If Err.Number = 0 Then
MsgBox IIf(TypeName(Cls_Fe) = "Workbook", _
"Le classeur '", "La feuille '") & _
Cls_Fe.Name & _
"' ne possède pas de protection par mot " & _
"de passe !", vbExclamation, "Protection."
Exit Sub
End If
'réinitialise le gestionnaire
On Error GoTo 0

With Application
EtatBarre = .DisplayStatusBar
.DisplayStatusBar = True
End With
'défini le message à afficher en fonction
'de l'objet (classeur ou feuille)
Message = " Recherche du mot de passe "
If TypeName(Cls_Fe) = "Workbook" Then
Message = Message & "du classeur '" _
& Cls_Fe.Name & "'. Itérations : "
Else
Message = Message & "de la feuille '" _
& Cls_Fe.Name & "'. Itérations : "
End If

'initialise le générateur
Randomize

'recherche du mot de passe où la sortie est faite
'quand il n'y a plus d'erreur sur la tentative
'd'ouverture
'si cela dure trop, appuyer sur "Ctrl + Pause"
Do
For I = 1 To Int(9 * Rnd + 1) - 1
MotDePasse = MotDePasse + Chr(Int(2 * Rnd + 33))
Next I
MotDePasse = MotDePasse + Chr(Int((255 - 32 + 1) * Rnd + 32))
On Error Resume Next
Cls_Fe.Unprotect MotDePasse
If Err.Number = 0 Then Exit Do
J = J + 1
Application.StatusBar = Message & J
MotDePasse = ""
Loop

'commence la construction du message
If TypeName(Cls_Fe) = "Workbook" Then
Message = "Le classeur '" & Cls_Fe.Name & _
"' est maintenant déprotégé !"
Else
Message = "La feuille '" & Cls_Fe.Name & _
"' est maintenant déprotégée !"
End If

Message = Message & vbCrLf & _
"Mot de passe crypté : " & MotDePasse

MsgBox Message, vbInformation, "Protection."

With Application
.StatusBar = False
.DisplayStatusBar = EtatBarre
End With

End Sub

Sub TestMotDePasse()
'Pour un classeur : Workbooks("MonClasseur.xls")
'Pour une feuille : Workbooks("MonClasseur.xls").Worksheets("Feuil1")
OterMotDePasse Workbooks("MonClasseur.xls")
End Sub

Hervé.

"DEVEROUILLER FICHIER XLS" <DEVEROUILLER FICHIER
XLS@discussions.microsoft.com> a écrit dans le message news:
365EC71E-7878-432C-ACE9-3C79464818F6@microsoft.com...

BONJOUR A TOUS
J AI UN SOUSIS POUR LA PROTECTION DE FICHIER XLS
J AI OUBLIER LE CODE ????
COMMENT FAIT POUR DEVEROUILLER ???? OU ENTRER DEDANS????
MERCI D AVANCE

LUC

CA Y EST !
ON A TROUVÉ LE TARÉ DE SERVICE !

shad

Bonjour,

Je crois qu'il est tout à fait inutile de générer des insultes

JJ

"shadock" <shad@wanadoo.fr> a écrit dans le message de
news:110001c55dd0$5a189b70$a401280a@phx.gbl...
CA Y EST !
ON A TROUVÉ LE TARÉ DE SERVICE !

shad

Bonjour Hervé,
Tu seras surement ravi quand tu auras passé des heures à développer une
appli pour un client qu'un de ses copains lui file ta macro pour lui
permettre de déplomber ton classeur et l'installer, sans te verser de
juste redevance pour ton travail, sur tous les postes de la boite...
Ce n'est pas parcequ'on trouve des passe partout sur le net qu'on a le
droit de s'en servir et encore moins de les diffuser. Que tu t'en serves
pour ton usage personnel, ça te regarde, personne n'a de raison de
supposer que tu le fasses de façon malhonnête ou malintentionnée. La
présomption de bonne foie est une bonne règle de base qui doit
s'appliquer à priori.
Maintenant, que tu diffuses sur un forum excel ce genre de macro c'est
une autre histoire et tu peux constater que tu ne fais pas l'unanimité.
Tu ne sais pas l'usage qui sera fait de ce code.
Que dirais tu si certains diffusaient ici leurs numéros d'enregistrement
d'excel ? C'est vrai après tout, il y a des gens qui ont acheté un pc et
qui n'ont pas trouvé excel installé dessus, ça pourrait les aider aussi
? Quelle est la différence entre diffuser le N° d'enregistrement d'un
logiciel et un code de déplombage de macro ? Le fait que dans un cas,
microsoft a des arguments disons solides pour te faire réfléchir avant
de faire la connerie alors que dans l'autre cas, le tacheron VBiste n'a
guère les moyens de se défendre... Bof, moyen comme argument de choix...

Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta

Le 20/05/2005 22:27, :

Salut Luc,
Je me doute que tu as les boules mais ce n'est pas la peine de crier. ;o)
Regarde avec ce code. Tu le place dans le module d'un nouveau classeur, tu
mets un bouton sur la feuille, tu lui attache la macro "TestMotDePasse" en
indiquant au préalable à cette dernière la feuille ou le classeur à
déprotéger, tu clique sur ton bouton et l'avancement de la recherche est
indiqué dans la barre d'état. Un message te prévient quand c'est fini. Selon
le mot de passe il te faudra être patient :

Sub OterMotDePasse(Cls_Fe As Object)
Dim EtatBarre As Boolean
Dim Message As String
Dim MotDePasse As String
Dim I As Integer
Dim J As Long

'teste si une protection par mot de passe existe
On Error Resume Next
Cls_Fe.Unprotect ("essaPeDtoM")
If Err.Number = 0 Then
MsgBox IIf(TypeName(Cls_Fe) = "Workbook", _
"Le classeur '", "La feuille '") & _
Cls_Fe.Name & _
"' ne possède pas de protection par mot " & _
"de passe !", vbExclamation, "Protection."
Exit Sub
End If
'réinitialise le gestionnaire
On Error GoTo 0

With Application
EtatBarre = .DisplayStatusBar
.DisplayStatusBar = True
End With
'défini le message à afficher en fonction
'de l'objet (classeur ou feuille)
Message = " Recherche du mot de passe "
If TypeName(Cls_Fe) = "Workbook" Then
Message = Message & "du classeur '" _
& Cls_Fe.Name & "'. Itérations : "
Else
Message = Message & "de la feuille '" _
& Cls_Fe.Name & "'. Itérations : "
End If

'initialise le générateur
Randomize

'recherche du mot de passe où la sortie est faite
'quand il n'y a plus d'erreur sur la tentative
'd'ouverture
'si cela dure trop, appuyer sur "Ctrl + Pause"
Do
For I = 1 To Int(9 * Rnd + 1) - 1
MotDePasse = MotDePasse + Chr(Int(2 * Rnd + 33))
Next I
MotDePasse = MotDePasse + Chr(Int((255 - 32 + 1) * Rnd + 32))
On Error Resume Next
Cls_Fe.Unprotect MotDePasse
If Err.Number = 0 Then Exit Do
J = J + 1
Application.StatusBar = Message & J
MotDePasse = ""
Loop

'commence la construction du message
If TypeName(Cls_Fe) = "Workbook" Then
Message = "Le classeur '" & Cls_Fe.Name & _
"' est maintenant déprotégé !"
Else
Message = "La feuille '" & Cls_Fe.Name & _
"' est maintenant déprotégée !"
End If

Message = Message & vbCrLf & _
"Mot de passe crypté : " & MotDePasse

MsgBox Message, vbInformation, "Protection."

With Application
.StatusBar = False
.DisplayStatusBar = EtatBarre
End With

End Sub

Sub TestMotDePasse()
'Pour un classeur : Workbooks("MonClasseur.xls")
'Pour une feuille : Workbooks("MonClasseur.xls").Worksheets("Feuil1")
OterMotDePasse Workbooks("MonClasseur.xls")
End Sub

Hervé.

"DEVEROUILLER FICHIER XLS" <DEVEROUILLER FICHIER
XLS@discussions.microsoft.com> a écrit dans le message news:
365EC71E-7878-432C-ACE9-3C79464818F6@microsoft.com...

BONJOUR A TOUS
J AI UN SOUSIS POUR LA PROTECTION DE FICHIER XLS
J AI OUBLIER LE CODE ????
COMMENT FAIT POUR DEVEROUILLER ???? OU ENTRER DEDANS????
MERCI D AVANCE

LUC