comment oter la protection d'une feuille sous excel

[LudivineDavid]

Bonjour,

Je souhaiterais savoir comment je pourrais faire pour oter la protection d'une feuille sous excel

J'ai excel 2007


Merci par avance

Cordialement

 

[tdenfert]

Re : comment oter la protection d'une feuille sous excel

Bonjour,

Outils, protection, oter la protection de feuille +mot de passe si bessoin.

Si le mot de passe n'est pas connu il faut passer par le vba

 

[LudivineDavid]

Re : comment oter la protection d'une feuille sous excel

Je n'ai pas outils dans ma version excel....
De plus, il y a un mot de passe

C'est quoi le VBA ?
Merci pour ton aide

 

[LudivineDavid]

Re : comment oter la protection d'une feuille sous excel

voici le lien pour télécharger mes fameux fichiers protégés (je ne peux mettre en pièce jointe, trop lourd !)

Free - Envoyez vos documents

Merci Beaucoup

 

[mercant76]

Re : comment oter la protection d'une feuille sous excel

bonjour,

tu fais Révision, puis déprotéger le feuille puis entrée.

si çà ne marche pas, c'est qu'il y a un mot de passe.

@+

 

[LudivineDavid]

Re : comment oter la protection d'une feuille sous excel

il y a un mot de passe....
Merci

 

[JNP]

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

 

[LudivineDavid]

Re : comment oter la protection d'une feuille sous excel

Merci
Il y a un mot de passe
Pour la demande, cela serait beaucoup trop long en terme d'attente,

Si quelqu'un peut me les déprotéger, il serait super !

Merci de votre réactivité en tout cas !

 

[JNP]

Re : comment oter la protection d'une feuille sous excel

Re ,

Si quelqu'un peut me les déprotéger, il serait super !

En ce qui me concerne, je suis en 2010 64 bits, donc Acyd ne fonctionne pas chez moi, désolé ...
Bon courage

 

[tdenfert]

Re : comment oter la protection d'une feuille sous excel

Bonjour,

vois ce lien Ce lien n'existe plus

 

[LudivineDavid]

Re : comment oter la protection d'une feuille sous excel

Je suis désolé mais cela ne fonctionne pas

 

[JNP]

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"

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

Je te laisse prendre tes responsabilités ...
Bye

 

[laetitia90]

Re : comment oter la protection d'une feuille sous excel

bonjour LudivineDavid,mercant76,tdenfert,JNP
une autre macro!!

Sub es()
ActiveSheet.Protect vbNullString, , True, , , , , , , , , , , , , True
ActiveSheet.Unprotect vbNullString
End Sub