Problème boucle infini
Bonjour Bonsoir,
J'ai actuellement besoin d'une aide pour résoudre un gros problème.
Je dispose d'un fichier que j'utilise comme registre permettant d'enregistrer des personnes rentrant dans ma société.
Malheureusement j'ai rajouté un bout de code qu'il ne fallait pas :
Sub PasswordRecovery()
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)
Exit Sub
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
End Sub
Et en plus de cela, cette fonction s’exécute dès que mon classeur s'ouvre, comment puis-je résoudre mon problème ?
Cordialement
Flammz
Bonjour,
j'ai ouvert ton fichier (et j'ai des paramètres de sécurité qui me permettent de ne pas tout de suite activer une macro d'un fichier venant d'internet), du coup j'ai passé ton code en commentaire pour qu'il ne s'exécute plus à l'ouverture, avant de mettre un code dans workbook open, le tester sur une copie du fichier original en lançant manuellement le code
Voici le fichier avec la macro bloquée:
Tu pourras la modifier à présent
Merci beaucoup vous me faites gagner énormément de temps ! Un grand merci !
Cordialement
Flammz