Automatischer Schutz nach Eingabe (Microsoft Excel)
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, wenn Sie zulassen möchten, dass Zellen bearbeitet werden, diese aber sofort geschützt werden sollen, nachdem jemand Informationen in die Zelle eingegeben hat? 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 (10203) gilt für Microsoft Excel 2007 und 2010. Eine Version dieses Tippes für die ältere Menüoberfläche von Excel finden Sie hier: