Excel Zelle nach Eingabe sperren

[r26t01]

Hallo zusammen,

wie kann ich es bewerkstelligen, dass eine Zelle nach einer Eingabe gesperrt wird? Momentan lass ich über einen Button das aktuelle Datum in eine ausgewählte Zelle einfügen. Direkt danach soll die Zelle für einen weiteren Schreibzugriff gesperrt werden.

Mein Code für den Button bisher:

Private Sub CommandButton1_Click()

ActiveCell.Value = Date

End Sub

Vielen Dank

[r26t01]

Sry für den DP, aber es hat sich erledigt, funktioniert mit:

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) 

Dim c As Range 

ActiveSheet.Unprotect password:="Passwort" 

For Each c In ActiveSheet.UsedRange 

If c <> "" Then 

c.Locked = True 

End If 

Next 

ActiveSheet.Protect password:="Passwort" 

End Sub 

Gibt es allerdings noch eine Methode, in der man das Passwort nicht bei VBA eingeben muss bzw. den Quellcode ausblenden kann?