Ophæve skrivebeskyttelse uden password

Ja, kør denne makro:

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

Jeg er ikke lige så stærk i Excel. Kan du give en forklaring på hvordan jeg kører makroen?

Åben regnearket. Tast Alt+F11
I venstre side dobbeltklikkes på ThisWorkbook
I højresiden indsættes makroen
Skift til regnearket
Tast Alt+F8
Vælg makroen

Markroen kan ikke køres fordi sikkerheds niveauet er indstillet til høj. Hver gang jeg åbner dokumentet vil den køre markroen, men det kan den ikke og fejlmeddelsen kommer. Makroen ligger stadig i visual basic som kommer frem når der trykkes Alt+F11. Hvordan får jeg den væk derfra ?

i excel
Funktioner > Makro > sikkerhed, sæt den til lav

du skal lukke excel og starte den igen inden det virker

Tak for det. Det virkede. Du får point.

hov.... jeg har først lige fået mails om, at der var aktivitet herinde. Kabbak skal vist osse have sin andel

Kabbak> Du kan hente dine point her: http://www.eksperten.dk/spm/687564