Zeitstempel und dann Zelle schützen
Rainer
ich habe im Archiv folgenden Code zum Thema "Zeitstempel" gefunden.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Columns("O:O")) Is Nothing Then
Cells(Target.Row, 24).Value = Format(Now, "dd.mm.yy hh:mm")
End If
If Not Application.Intersect(Target, Columns("W:W")) Is Nothing Then
Cells(Target.Row, 25).Value = Format(Now, "dd.mm.yy hh:mm")
End If
End Sub
Jetzt möchte ich diesen so erweitern, dass die Zelle in der "gestempelt" wird eingefroren, d..h geschützt und nicht mehr veränderbar ist auch nicht bei erneutem Eintrag.
Wer kann mir helfen ?
Vieln Dank im Voraus R.