Låse ark op man har glemt koden til

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

Hvad er BST Utilities?
BST Utilities er et tilføjelsesprogram til Excel som lægger sig som et menupunkt i Excel's værktøjslinje normalt yderst til højre ved siden af "Hjælp".
Dette tilføjelsesprogram tilføjer pt. 109 ekstra funktioner til Excel.
BST Utilities er kompatibelt med alle versioner af Excel siden Excel 97.