Knæk koden på arket
Jeg har fundet denne kode til at knække koden på ark, men på en eller anden vis fungerer det ikke på nyere udgaver af excel. Jeg kører 2007. Er der nogen der kan give mig et "hint" om, hvordan koden skal tilrettes?Sub PasswordBreaker()
'Knækker arkbeskyttelse.
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
På forhånd tak for hjælpen.