Knæk kode for beskyttelse af ark

Koden kommer her nedenunder.

Det er rent knoldearbejde, hvor koden prøver samtlige tænkelige kombinationer af tal, bogstaver og specialkarakterer, indtil der er bid. Excels arkbeskyttelse indeholder nemlig ingen regel om, at efter et vist antal forgæves forsøg, skal der lukkes for yderligere adgang. Godt, at det samme ikke gælder for vore dan-kort mv. ;-D


Sub PasswordBreaker()
  'Author unknown
  'Breaks worksheet password protection.
  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 "Koden er brudt og dokumenet kan nu rettes!", vbExclamation + vbOKOnly
                              Exit Sub
                            End If
                          Next
                        Next
                      Next
                    Next
                  Next
                Next
              Next
            Next
          Next
        Next
      Next
    Next
End Sub

Jo tak- men det er jo ikke det script, som viser hvilken kode, der er anvendt.
Det script du viser ovenfor, er nok magen til det, som jeg allerede har anvendt.

Sorry, skulle lige læse, hvad det egentlig var, du spurgte om.

Den kan jeg godt nok ikke klare, for ved nærmere efterprøvning viser det sig, at de loops, som skriptet kører igennem, kun veksler mellem A, B og forskellige standardkarakterer.

Koden AAAAABAAABA< åbner f.eks. arket, hvor jeg havde valgt en helt anden kode. Så der må snarere være tale om en slags bagdør, som virker, uanset hvilken kode du selv har valgt. Så desværre! :(

<ole>

Spørgsmålet ligger klart udenfor, hvad der er tilladt på Eksperten:
    http://www.eksperten.dk/regler.phtml

- §2.1.7

/mvh
</bole>

Sorry - det var jeg ikke lige opmærksom på.
Jeg lukker og slukker.