Re : comment oter la protection d'une feuille sous excel
Bonjour le fil ,
Sous 2007, c'est dans l'onglet Accueil que tu as sur la droite Format -> Ôter la protection de la feuille .
Par contre, si tu n'as pas le mot de passe, tu ne devrais pas la déprotéger et demander au propriétaire du fichier de le faire ou de te donner le MdP ...
Si vraiment la déprotection est motivée par une absolue nécessitée (collaborateur ayant quitté ce monde par exemple), tu peux regarder l'excellent travail de notre regretté Ti, mais je ne suis pas sûr qu'il fonctionne sous 2007 ...
Bon courage
Re : comment oter la protection d'une feuille sous excel
Re ,
Le code proposé par Tdenfert fonctionne, je viens d'ouvrir ton 2ème fichier (le 1er est considéré comme potentiellement dangereux par 2010 qui refuse de l'ouvrir ) et j'ai dévérouillé toutes les feuilles ...
Mais comme le fichier me parait "sensible" et pas logique à dévérouiller, je suis désolé mais je ne le posterai pas sur le forum ...
Par contre, je pense que c'est à cause de la traduction que le code ne fonctionne pas, donc le voici en "propre"
Code:
Sub PasswordBreaker()
'Author unknown but submitted by brettdj of [URL="http://www.experts-exchange.com"]www.experts-exchange.com[/URL]
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 "One usable password is " & Chr(i) & Chr(j) & _
Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
ActiveWorkbook.Sheets(1).Select
Range("a1").FormulaR1C1 = 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
End Sub