Zellschutz
27.02.2008 11:15:00
serge
In einer Passwortgeschützer Datei ("bodo") habe ich eine frei Zelle "Jahr" die ich nach dem ändern der Eingabe in dieser Zelle schützen möchte und die Ganze Datei wieder mit Passwortgeschut ("bodo") schützen möchte.
ich habe es mit folgendem versucht, aber es klappt nicht: Die Datei wird nicht mehr geschützt!
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.address = "Jahr" Then
ActiveSheet.Unprotect Password:="bodo"
Selection.Locked = True
Selection.FormulaHidden = False
ActiveSheet.Protect Password:="bodo", DrawingObjects:=True, Contents:=True, Scenarios:=True
end if
End Sub
Wer hilft mir weiter
Danke
Serge