Schreibschutz
06.02.2005 17:25:45
Daniel
Kann mit jemand folgende Frage beantworten:
Ich möchte nach dem schliessen eines Excelfiles alle nichtleeren Zellen automatisch schreibschützen. Ist das möglîch? Bis jetzt habe ich folgenden Code benützt, wenn ich aber eine Eingabe korriegiern wollte ging das ohne Passwort nicht. Kann ich der Code mit dem before.close Code benützen.
Danke 1000 mal
Private Sub Worksheet_Change(ByVal Target As Range)
Dim z As Range
For Each z In Target
If z.Value <> "" Then
ActiveSheet.Unprotect Password:="1234"
z.Locked = True
ActiveSheet.Protect Password:="1234"
End If
Next z
End Sub