Arbeitsmappe freigeben!?!

 

Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Column <> 2 Or .Row < 4 Then Exit Sub
Me.Unprotect "xxx"
Application.EnableEvents = False
Cells(.Row, 1).Value = .Row - 3
Cells(.Row, 3).Value = Time
.Resize(1, 2).Locked = True
Application.EnableEvents = True
Me.Protect "xxx"
End With
End Sub



Sub test()
Dim lfdNr As Long
lfdNr = 1
For i = 4 To Cells(Rows.Count, 2).End(xlUp).Row
If Cells(i, 2).Value <> "" Then
Cells(i, 1).Value = lfdNr
lfdNr = lfdNr + 1
End If
Next
End Sub


da diese mappe mehrere user bearbeiten sollen habe ich diese unter extras > schutz > blatt schützen - geschützt und zusätzlich unter extras > arbeitsmappe freigeben gemacht.

jetzt kommt jedoch eine fehlermeldung die sieht so aus:

laufzeitfehler '1004':

die methode 'unprotect' für das objekt '_worksheet' ist fehlgeschlagen

ich habe keine ahnung was ich falsch mache!

kann mir jemand helfen?

gruß aus berlin

jean-pierre