Comment contourner un mot de passe

[Aloha]

Bonjour,

Il y a quelques années j'avais produit un formulaire pour faire un plan de travail, mois par mois, pour une équipe.

Maintenant se pose le problème que je n'avais pas pensé aux années bi-sextiles, de sorte que le 29.2.2008 est dans mon formulaire le 1er mars.
Je me suis mis à le corriger, mais par malheur j'avais protégé les feuilles avec mot de passe et bien sûr pas moyen de le trouver.

Y a-t-il une possibilité de le contourner?

Merci beaucoup pour toute aide.

Aloha

 

[RENAUDER]

Re : Comment contourner un mot de passe

Bonjour,

Non a part avec un outil adapté.
Tu m'envoies le fichier et je pense pouvoir le débloquer.

erenaud@deutsch.net

 

[x0r]

Re : Comment contourner un mot de passe

Salut

Avec cette macro tu pourra recuperer ta feuille, en général si le mdp est pas trop complexe, ca prend un peu de temps, a noté que la macro te trouvera p-e un mot de pass completement différent de celui que tu avais mis mais qui marchera quand même.

Sub deverrouille()
Dim a, b, c, d, e, f, g, h, i, j, k, l As Integer, Test As String
    On Error Resume Next
    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
    Test = Chr(a) & Chr(b) & Chr(c) & Chr(d) & Chr(e) & Chr(f) & Chr(g) & Chr(h) & Chr(i) & Chr(j) & Chr(k) & Chr(l)
    Application.StatusBar = Test: ActiveSheet.Unprotect Test
    If ActiveSheet.ProtectContents = False Then
        MsgBox "La Protection a été enlevée - Un mot de passe satisfaisant est :" & Test
        Exit Sub
    End If
    Next: Next: Next: Next: Next: Next: Next: Next: Next: Next: Next: Next
End Sub

Bonne chance.

 

[fred65200]

Re : Comment contourner un mot de passe

bonsoir,

tu trouveras une macro complémentaire qui fait aussi ce que tu demandes en suivant ce lien http://www.erlandsendata.no/downloads/passwords.zip

Cordialement

 

[wilfried_42]

Re : Comment contourner un mot de passe

bonjour à tous

essaye cette méthode, elle a deja fonctionner chez moi

Creation d'une nouvelle feuille
Selection de toute la feuille protegée,
Copier
Coller en A1 de la nouvelle feuille

 

[fred65200]

Re : Comment contourner un mot de passe

Bonjour Wilfried_42

Pas mal ton truc, je ne connaissais pas.
Comme quoi les solutions les plus simples sont souvent efficaces.

cordialement

 

[PascalXLD]

Re : Comment contourner un mot de passe

Bonjour

Un petit tour chez les copains VeriTi V 3, le site des amis d'Excel et OOo 😉

 

[TheLio]

Re : Comment contourner un mot de passe

HEllo

Un Code trouvé sur le forum, procédure longue mais efficace:

'================================================
'Sub qui permets de faire sauter la protection de
'n'importe quelle feuille (auteur inconnu)
'================================================
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

A++

TheLio

 

[wilfried_42]

Re : Comment contourner un mot de passe

re:

Thelio, presentée differrement, mais c'est la meme procedure que celle proposée par x0r 😀 😀 😀

 

[Minus]

Re : Comment contourner un mot de passe

C'est ce qui s'appelle lire en diagonal ! 😀

 

[TheLio]

Re : Comment contourner un mot de passe

Re,
Oups 😀😀😀