Wie macht man eine Zelle in Excel schreibgeschützt?

In vielen Fällen möchten Sie möglicherweise verhindern, dass andere bestimmte Zellen in Ihrem Arbeitsblatt bearbeiten. Dieser Artikel bietet zwei Methoden, um Ihnen zu helfen, bestimmte Zellen schreibgeschützt zu machen, sodass andere diese Zellen nicht bearbeiten können, außer sie zu lesen.

Zelle durch den Schutz des Arbeitsblatts schreibgeschützt machen
Zelle durch VBA-Code ohne den Schutz des Arbeitsblatts schreibgeschützt machen

Zelle durch den Schutz des Arbeitsblatts schreibgeschützt machen

Sie können nur die Zellen sperren, die Sie schreibgeschützt machen möchten, und dann das Arbeitsblatt schützen, um dies zu erreichen. Bitte gehen Sie wie folgt vor.

1. Klicken Sie auf die Schaltfläche in der oberen linken Ecke des aktuellen Arbeitsblatts, um alle Zellen auszuwählen.

2. Drücken Sie gleichzeitig die Tasten Strg + 1, um das Dialogfeld „ Zellen formatieren“ zu öffnen. Aktivieren Sie im Dialogfeld das Kontrollkästchen „Gesperrt“ unter dem Reiter „Schutz“ und klicken Sie dann auf die Schaltfläche „OK“. Siehe Screenshot:

3. Wählen Sie nun die Zellen aus, die Sie schreibgeschützt machen möchten (hier wähle ich die Zellen im Bereich A1:C18). Drücken Sie gleichzeitig die Tasten Strg + 1, um das Dialogfeld „Zellen formatieren“ zu öffnen, aktivieren Sie das Kontrollkästchen „Gesperrt“ unter dem Reiter „Schutz“ und klicken Sie auf die Schaltfläche „OK“.

4. Klicken Sie anschließend auf Überprüfen > Blatt schützen. Siehe Screenshot:

5. Geben Sie Ihr Passwort an und bestätigen Sie es, um das Arbeitsblatt zu schützen, wie im folgenden Screenshot gezeigt.

Jetzt sind die Zellen im gesperrten Bereich schreibgeschützt. Wenn Sie versuchen, diese spezifischen Zellen innerhalb des Bereichs zu bearbeiten, erhalten Sie ein Eingabeaufforderungsfenster, wie im folgenden Screenshot gezeigt.

Zelle durch VBA-Code ohne den Schutz des Arbeitsblatts schreibgeschützt machen

Wenn Sie das Arbeitsblatt nicht schützen möchten, um eine Zelle schreibgeschützt zu machen. Das VBA-Skript in diesem Abschnitt hilft Ihnen, dieses Problem einfach zu lösen.

1. Klicken Sie mit der rechten Maustaste auf die Registerkarte des Arbeitsblatts, in dem Sie die Zelle schreibgeschützt machen möchten, und klicken Sie dann im Kontextmenü auf Code anzeigen.

2. Kopieren Sie im sich öffnenden Fenster „Microsoft Visual Basic for Applications“ den unten stehenden VBA-Code und fügen Sie ihn in das Codefenster ein.

VBA-Code: Zelle in Excel schreibgeschützt machen

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column = 1 Then
        If Target.Row = 3 Or Target.Row = 4 Or Target.Row = 5 Then
            Beep
            Cells(Target.Row, Target.Column).Offset(0, 1).Select
            MsgBox Cells(Target.Row, Target.Column).Address & " cannot be selected and edited as it is a read-only cell", _
            vbInformation, "Kutools for Excel"
        End If
    End If
End Sub

Hinweis: Dieser Code kann nur bestimmte Zellen in einer Spalte schreibgeschützt machen. In diesem Code werden die Zellen A3, A4 und A5 im aktuellen Arbeitsblatt schreibgeschützt.

3. Drücken Sie die Tasten Alt + Q, um das Fenster „Microsoft Visual Basic for Applications“ zu schließen.

Wenn Sie in der aktuellen Arbeitsmappe auf die Zellen A3, A4 oder A5 klicken, erhalten Sie ein Kutools für Excel-Dialogfeld, wie im folgenden Screenshot gezeigt, und der Cursor wird automatisch zur rechten benachbarten Zelle verschoben.