Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Mot de passe pour un fichier

  • Initiateur de la discussion Luca
  • Date de début
L

Luca

Guest
Bonjour,

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

MERCI !!

Luca
 
C

Cathy

Guest
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
 
C

Cathy

Guest
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
 
H

hurricane

Guest
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
 
E

ero

Guest
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.
 
H

hurricane

Guest
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

@+
 

Discussions similaires

Réponses
2
Affichages
243
Réponses
10
Affichages
408
Réponses
5
Affichages
516
Compte Supprimé 979
C
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…