Blattschutz - für alle benutzten Zellen
26.04.2018 11:43:45
Linda
ich möchte ein bestimmtes Sheet so programmieren, dass jedes mal, wenn ich es aufrufe der Blattschutz neu gesetzt wird und zwar so, dass alle Zellen die einen Inhalt haben (Formel oder Sonstiges)gesperrt werden. Nur LEERE Zellen dürfen noch gefüllt werden.
Mein Versuch stelle ich Euch rein. Leider werden immer alle Zellen gesperrt...
Private Sub Worksheet_Activate()
With ActiveSheet
'Blattschutz aufheben (Blattschutz ohne Passwort)
.Unprotect Password:= blabla
On Error Resume Next
'Zellen mit konstanten Werten (Zahlen, Text, Datumsangaben) sperren
.Cells.SpecialCells(xlCellTypeConstants).Locked = True
'Zellen mit Formeln sperren
.Cells.SpecialCells(xlCellTypeFormulas).Locked = True
'Blattschutz wieder setzen
On Error GoTo 0
.Protect Password:=blabla
End With
End Sub