j'ai perdu mon code

[steffane]

salut a tous j'ai un souci sur une feuille excel apres avoir prtege ma feuille j'ai besoin de remodifier une formule mais j'ai oublie mon code .
existe t'il un moyen de parvenir a le neutraliser?


merci d'avance

 

[DDalmont]

Ton code :huh:

 

[Jacques25]

Salut steffane, DDalmont,

C'est bien, en plus d'avoir des personnes très bonne en ce qui concerne excel, il y a aussi des comiques pas mauvais non plus 🙂
Dans la recherche, tu tapes mot de passe, dans certains post tu as des liens qui te permettrons peut être de toruver ton bonheur.

Bon courage

Jacques

 

[Marc_du_78]

Bonsoir le Forum, Stephane, DDalmont, Jacques

Avec ceci pour version excel 2000

 

[Marc_du_78]

hic

 

[Marc_du_78]

j'ai du mal mais j essaie encore

/// Pièce jointe supprimée par le webmaster de ce site ///

Message édité par: XldAdmin1, à: 08/11/2005 22:00

 

[Marc_du_78]

Pour version excel 97
Attention ne pas mettre les 2 en même temps

 

[Marc_du_78]

encore désolé, vraiment

/// Pièce jointe supprimée par le webmaster de ce site ///

Message édité par: XldAdmin1, à: 08/11/2005 22:00

 

[Dan]

Bonsoir Stefanne, le forum,

Le fichier posté par Marc, est tout simplement le programme conçu par notre ami _Ti, et que l'on peut trouver ici ---> : Ce lien n'existe plus

Bonne soirée

 

[Marc_du_78]

Bonsoir Dan
Merci pour ton info que j'ignorai. J'en profite pour mettre mon archive à jour.
Bonne journée pour demain qui sera vite aujourdhui

 

[Jam]

Salut Marc_du_78,

Tu peux essayer ce code, ça marche à tous les coups 😉

'================================================
'Sub qui permets de faire sauter la protection de
'n'importe quelle feuille ou classeur
'================================================
Sub BreakPasswordSheet()

Dim i As Integer, j As Integer, k As Integer, l As Integer, M As Integer, n As Integer
Dim i1 As Integer, i2 As Integer, i3 As Integer, 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 useble 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)
                                                    Exit Sub
                                                End If
                                            Next
                                        Next
                                    Next
                                Next
                            Next
                        Next
                    Next
                Next
            Next
        Next
    Next
Next

End Sub

L'auteur de ce bout de code est inconnu. Mais il m'a rendu de bien bons services.

Bonne journée 🙂 🙂 🙂

 

[Jam]

Aïe, la pas aimé mon copier coller Mambo sur ce coup 🙂

Bon, je mets en pièce attaché le même bout de code.
[file name=unprotect.zip size=550]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/unprotect.zip[/file]

 

[Ti_]

non non Marc, Acyd est disponible sur Vériti, tout le monde le sait, et il est bien de respecter ça, je n'aime pas bien le voir voyager comme ça sur les forums, d'autant plus que rien ne dit que les versions ainsi passées soient à jour.

On en arrive maintenant à ce que les types qui ont posé leur question remercient à grands cris ceux qui leur ont passé le tuyau alors qu'on ignore royalement le type qui s'est défoncé à écrire le programme. Je le constate chaque jour et ça commence à me gonfler, et ce n'est pas ta façon de faire qui va arranger les choses.

 

[_Thierry]

Bonjour la fine équipe !

Arf désolé Ti, je n'ai pas pu résister !!!!




Bonne Journée
[ol]@+Thierry[/ol]

 

[Ti_]

arf, oui Thierry, et si les événements de ces derniers jours ne se rendaient pas pas aussi préoccupants tout ce qui peut toucher à l'évocation d'une justice expéditive, je reprendrais volontiers à mon compte cette image pour le moins musclée.

Tiens, c'est bizarre mon précédent message qui prend une largeur démesurée.