Excel bietet Schutz für Ihre Arbeitsblätter, dh Sie können den Inhalt von Zellen schützen, damit sie nicht geändert werden können. Wie genau Sie diesen Schutz verwenden, wurde in anderen Ausgaben von ExcelTips erläutert.

Was ist, wenn Sie zulassen möchten, dass Zellen bearbeitet werden, diese jedoch direkt nach der Eingabe von Informationen in die Zelle geschützt werden sollen? Sie haben beispielsweise Zellen, in die ein Benutzer Informationen eingeben kann, aber nach der Eingabe möchten Sie nicht, dass er die eingegebenen Informationen ändern kann.

In Excel gibt es keine inhärente Fähigkeit, Ihre Eingabe nach der Eingabe zu schützen, aber Sie können die Fähigkeit mithilfe eines Makros erstellen. Das folgende Makro ist ein Beispiel dafür:

Private Sub Worksheet_Change(ByVal Target As Range)

Dim MyRange As Range

Set MyRange = Intersect(Range("A1:D100"), Target)

If Not MyRange Is Nothing Then         Sheets("Sheet1").Unprotect password:="hello"

MyRange.Locked = True         Sheets("Sheet1").Protect password:="hello"

End If End Sub

Dieses Makro setzt voraus, dass das Arbeitsblatt bereits geschützt wurde und alle Zellen, in denen eine Eingabe möglich sein soll, entsperrt sind.

Es wird überprüft, ob die Eingabe im richtigen Zellenbereich erfolgt ist, in diesem Fall irgendwo im Bereich von A1: D100. Wenn dies der Fall ist, ist das Arbeitsblatt ungeschützt, die Zelle, in die gerade Informationen eingegeben wurden, ist gesperrt und das Arbeitsblatt ist erneut geschützt.

Wenn Sie diesen Ansatz in Ihrer eigenen Arbeitsmappe verwenden, müssen Sie den potenziellen Eingabebereich ändern und das Kennwort ändern, mit dem der Schutz des Arbeitsblatts aufgehoben und geschützt wird.

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der ExcelTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

ExcelTips ist Ihre Quelle für kostengünstige Microsoft Excel-Schulungen.

Dieser Tipp (2034) gilt für Microsoft Excel 97, 2000, 2002 und 2003. Eine Version dieses Tipps für die Multifunktionsleistenschnittstelle von Excel (Excel 2007 und höher) finden Sie hier: