Ich habe mir vor langer Zeit mal ein Makro heruntergeladen.
Sub auto_close()
zellnr = Range("userlist!D1")
If zellnr = 2000 Then Range("userlist!A2:A2000").ClearContents
uname = Application.UserName
Range("userlist!A" & zellnr) = uname
Range("userlist!B" & zellnr) = Date
Range("userlist!C" & zellnr) = Time
ActiveWorkbook.Save
End Sub
Es funktioniert sehr gut, nur nicht wenn ich das Sheet mit Schreibschutz schütze.Kann mir jemad helfen?