Mot de passe pour un fichier

[Luca]

Bonjour,

J'ai un fichier excel dont j'ai perdu le mot de passe. Quelqu'un peut m'aider à le retrouver ?

MERCI !!

Luca

 

[Cathy]

Je n'ai pas la réponse à ta question (retrouver ton mot de passe), mais je sais qu'elle a déjà été posée ici,il faudrait faire une recherche,

par contre, si tu m'envoies ton fichier je peux te le déprotéger (avec une macro) ou t'envoyer la macro, comme tu veux.

C@thy

 

[hurricane]

bonjour caty

je suis curieux de voir ta macro c'est possible de la recevoir

merci d'avance

 

[hurricane]

salut luca

le fichier est dans ta boite au lettre

@++

 

[Cathy]

Voici la macro!

Sub enleve_protection()
Dim a, b, c, d, e, f, g, h, i, j, k, l As Integer
On Error Resume Next
oldStatusBar = Application.DisplayStatusBar
Application.DisplayStatusBar = True
Application.StatusBar = "VEUILLEZ PATIENTER SVP...CETTE OPERATION PREND DU TEMPS"
For a = 65 To 66
For b = 65 To 66
For c = 65 To 66
For d = 65 To 66
For e = 65 To 66
For f = 65 To 66
For g = 65 To 66
For h = 65 To 66
For i = 65 To 66
For j = 65 To 66
For k = 65 To 66
For l = 32 To 126
ActiveSheet.Unprotect _
Chr(a) & Chr(b) & Chr(c) & Chr(d) & Chr(e) & Chr(f) & Chr(g) & Chr(h) & _
Chr(i) & Chr(j) & Chr(k) & Chr(l)
If ActiveSheet.ProtectContents = False Then
MsgBox "La protection a été enlevée"
Exit Sub
End If
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Application.StatusBar = False
Application.DisplayStatusBar = oldStatusBar
End Sub

C@thy

 

[hurricane]

voici une des miennes qui supprime la protection

Private Sub azerty()
Dim essai
On Error Resume Next
ActiveWorkbook.Protect vbNullString, True, True
ActiveWorkbook.Unprotect vbnulltring
For Each essai In Sheets
essai.Protect vbNullString, , , , True
essai.Range("IV65536").Copy essai.Range("IV65536")
essai.Unprotect vbNullString
Next essai
On Error GoTo 0
End Sub

 

[Ti]

Attention, cette macro ne fonctionne plus sur Excel XP, mais avec Acyd, ça n'est pas un problème.

 

[hurricane]

tu fais de me le dire car je n'etais pas au courant que sa ne fonctionner plus avec excel XP j'utilise 2000

bon a savoir

 

[ero]

bonjour,
comment solidarisez-vous la macro au fichier? On ne peut pas inscrire la macro dans le fichier puisque le fichier n'est pas actif avant de saisir lemot de passe...
par avance, merci.

 

[jay]

Comment faire pour débloquer un fichier avec cette macro ? Où on s'en sert ? Merci..... c'est assez urgent !!

 

[hurricane]

salut jay

cette macro ne deverouille pas les mots de passe au fichier mais simplement deplombe les cellules feuilles etc....

si tu veux debloquer un fichier il faut "acid" que tu trouveras sur le site

@+