Zellen mit Inhalt gegen Überschreiben schützen
08.07.2003 13:34:41
Ralf Moser
großes Problem:
Ich setze folgende Routine ein, um in einem Arbeitsblatt Zellen mit Inhalt gegen überschreiben zu schützen:
Sub Workbook_Protect
Dim rng As Range
'Blattschutz ausschalten
ActiveSheet.Unprotect
'alle Zellen markieren
Cells.Select
' alle Zellen entlocken
Selection.Locked = False
Selection.FormulaHidden = False
' alle Zellen, die nicht leer sind locken
For Each rng In ActiveSheet.UsedRange.Cells
If Not IsEmpty(rng) Then rng.Locked = True
Next rng
ActiveSheet.Protect
End Sub
Dabei entsteht folgendes Problem:
Auf einem Arbeitsblatt mit gemischt gefüllten und leeren Zellen werden die Zellen mit Inhalt zwar alle gegen Überschreiben geschützt, aber leider auch einige ohne Inhalt, die definitiv leer sind. Dabei ist keine Systematik erkennbar, in welchen Fällen leere Zellen ebenfalls gesperrt werden, und in welchen nicht.
Kann mir vielleicht jemand die Ursache dafür nennen, und wie man erreichen kann, in allen leeren Zellen Eingaben zuzulassen?
Vielen Dank
Ralf Moser