Arbeitsmappe freigeben!?!
21.07.2003 15:36:41
Jean-Pierre
ich habe folgendes problem!
in einer mappe habe ich folgenden code:
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