Zellschutz nach Eintrag im Bereich + 100 Tage
31.05.2006 09:08:14
Torge
Problem: Wer kann helfen. Habe hier folgenden Code für Zellschutz aus dem Forum, wo nach Eintrag im Bereich ein Zellschutz gesetzt wird. Gibt es die Möglichkeit, wenn ja, wie geht es, dass der Zellschutz nach dem im Bereich etwas eingetragen wurde erst nach 100 Tagen aktiv wird. Solange sollte das Ändern der Eingaben möglich sein.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row < 11 Then
If Target.Column < 9 Then
If Target.Value = "" Then Exit Sub
ActiveSheet.Unprotect Password = "abc"
Target.Locked = True
ActiveSheet.Protect Password = "abc"
End If
End If
End Sub
Vielen Dank schon mal.
Gruß Torge