Direkt zum Inhalt

Wie mache ich eine Zelle in Excel schreibgeschützt?

In vielen Fällen müssen Sie möglicherweise verhindern, dass andere bestimmte Zellen in Ihrem Arbeitsblatt bearbeiten. Dieser Artikel enthält zwei Methoden, mit denen Sie bestimmte Zellen als schreibgeschützt festlegen können, sodass andere diese Zellen nur zum Lesen bearbeiten können.

Machen Sie die Zelle schreibgeschützt, indem Sie das Arbeitsblatt schützen
Machen Sie die Zelle durch VBA-Code schreibgeschützt, ohne das Arbeitsblatt zu schützen


Machen Sie die Zelle schreibgeschützt, indem Sie das Arbeitsblatt schützen

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

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

2. Drücken Sie die Taste Ctrl + 1 Tasten gleichzeitig zum Öffnen der Format Cells Dialogbox. Deaktivieren Sie im Dialogfeld das Kontrollkästchen Verschlossen Kasten unter dem Schutz Klicken Sie auf die Registerkarte und dann auf OK Taste. Siehe Screenshot:

3. Wählen Sie nun die Zellen aus, die Sie schreibgeschützt machen möchten (hier wähle ich Zellen des Bereichs A1: C18 aus). Drücken Sie die Ctrl + 1 Tasten gleichzeitig zum Öffnen der Format Cells Wählen Sie im Dialogfeld Verschlossen Kasten unter dem Schutz Registerkarte und klicken Sie auf die OK .

4. Klicken Sie weiter Bewertung > Schutzblatt. Siehe Screenshot:

5. Geben Sie Ihr Passwort an und bestätigen Sie es, um das Arbeitsblatt zu schützen (siehe Abbildung unten).

Jetzt sind Zellen im gesperrten Bereich jetzt schreibgeschützt. Wenn Sie versuchen, diese bestimmten Zellen innerhalb des Bereichs zu bearbeiten, wird eine Eingabeaufforderung angezeigt (siehe Abbildung unten).


Schützen Sie mehrere / alle Arbeitsblätter gleichzeitig mit einem Kennwort in der aktuellen Arbeitsmappe:

Mit Microsoft Excel können Sie jeweils ein Arbeitsblatt mit einem Kennwort schützen. Hier können Sie die verwenden Arbeitsblatt schützen und Arbeitsblatt aufheben Dienstprogramme von Kutools for Excel um mehrere Arbeitsblätter oder alle Arbeitsblätter in der aktuellen Arbeitsmappe mit Kennwort gleichzeitig schnell zu schützen oder den Schutz aufzuheben.
Jetzt herunterladen und ausprobieren! (30 Tage kostenloser Trail)


Machen Sie die Zelle durch VBA-Code schreibgeschützt, ohne das Arbeitsblatt zu schützen

Wenn Sie das Arbeitsblatt nicht schützen möchten, um die 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 Blatt, die Sie benötigen, um die Zelle schreibgeschützt zu machen, und klicken Sie dann auf Code anzeigen aus dem Kontextmenü.

2. In der Öffnung Microsoft Visual Basic für Applikationen Kopieren Sie den folgenden VBA-Code und fügen Sie ihn in das Code-Fenster 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

Note: 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 als schreibgeschützt eingestuft.

3. Drücken Sie die Taste Andere + Q Tasten zum Schließen der Microsoft Visual Basic für Applikationen Fenster.

Wenn Sie im aktuellen Arbeitsblatt auf Zelle A3, A4 oder A5 klicken, erhalten Sie eine Kutools for Excel Dialogfeld wie im folgenden Screenshot gezeigt, und der Cursor bewegt sich automatisch in die rechte benachbarte Zelle.

Beste Office-Produktivitätstools

🤖 Kutools KI-Assistent: Revolutionieren Sie die Datenanalyse basierend auf: Intelligente Ausführung   |  Code generieren  |  Erstellen Sie benutzerdefinierte Formeln  |  Analysieren Sie Daten und erstellen Sie Diagramme  |  Rufen Sie Kutools-Funktionen auf...
Beliebte Funktionen: Suchen, markieren oder identifizieren Sie Duplikate   |  Leere Zeilen löschen   |  Kombinieren Sie Spalten oder Zellen, ohne Daten zu verlieren   |   Runde ohne Formel ...
Super-Lookup: VLookup mit mehreren Kriterien    VLookup mit mehreren Werten  |   VLookup über mehrere Blätter hinweg   |   Unscharfe Suche ....
Erweiterte Dropdown-Liste: Erstellen Sie schnell eine Dropdown-Liste   |  Abhängige Dropdown-Liste   |  Mehrfachauswahl Dropdown-Liste ....
Spaltenmanager: Fügen Sie eine bestimmte Anzahl von Spalten hinzu  |  Spalten verschieben  |  Schalten Sie den Sichtbarkeitsstatus ausgeblendeter Spalten um  |  Vergleichen Sie Bereiche und Spalten ...
Ausgewählte Funktionen: Rasterfokus   |  Designansicht   |   Große Formelleiste    Arbeitsmappen- und Blattmanager   |  Ressourcen (Autotext)   |  Datumsauswahl   |  Arbeitsblätter kombinieren   |  Zellen verschlüsseln/entschlüsseln    Senden Sie E-Mails nach Liste   |  Superfilter   |   Spezialfilter (Filter fett/kursiv/durchgestrichen...) ...
Top 15 Toolsets12 Text Tools (Text hinzufügen, Zeichen entfernen, ...)   |   50+ Chart Typen (Gantt-Diagramm, ...)   |   40+ Praktisch Formeln (Berechnen Sie das Alter basierend auf dem Geburtstag, ...)   |   19 Einfügen Tools (QR-Code einfügen, Bild aus Pfad einfügen, ...)   |   12 Umwandlung (Conversion) Tools (Zahlen zu Wörtern, Currency Conversion, ...)   |   7 Zusammenführen & Teilen Tools (Erweiterte Zeilen kombinieren, Zellen teilen, ...)   |   ... und mehr

Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen.  Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...

Beschreibung


Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich

  • Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
  • Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
  • Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!
Comments (12)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Very useful!!
This comment was minimized by the moderator on the site
Hi! How about if i want to just make 1 column editable and the rest uneditable? Thanks!
This comment was minimized by the moderator on the site
Hi Jac,
Please click on the column header to select the whole column, then do the steps mentioned in the post to unlock the column cells then protect the worksheet.
This comment was minimized by the moderator on the site
every usefull, thank you with gratitude
This comment was minimized by the moderator on the site
Thanks for the quick guidance.
This comment was minimized by the moderator on the site
Hi



I have mulipe sheets Menu ( option A1& A2) , A1 and A2 and VIEW work sheets ( where i will have BROWSE button) .



1. In menu i will select A1..

2. it will go to VIEW sheet ( which is working fine) till now ..

3. when i click on the BROWSE in the VIEW sheet A1 shee shoulf get displayed and the content present in the cells should be non editable..



Could you please help..
This comment was minimized by the moderator on the site
Good day,
Supposing there is a Command Button (ActiveX Control) in the View sheet. After inserting the below VBA into the worksheet code window, click on the button, in a popping up Kutools for Excel dialog box, specify a password to protect the sheet A1. Then sheet A1 is opened and non editable.

Private Sub CommandButton1_Click()
Dim xSheet As Worksheet
Dim xStr As String
On Error Resume Next
Set xSheet = Sheets("A1")
If xSheet Is Nothing Then Exit Sub
xSheet.UsedRange.Locked = True
xStr = Application.InputBox("Please specify a password to protect the sheet A1", "KuTools for Excel", , , , , , 2)
If xStr = False Or xStr = "" Then Exit Sub
xSheet.Protect xStr
xSheet.Activate
End Sub
This comment was minimized by the moderator on the site
i just want to make few cells of a book locked for input, only they shows the result as i programmed them to do so
This comment was minimized by the moderator on the site
Hey, Thanks a lot for this steps.


However, what if I want to copy the values in the cells that I have locked?
This comment was minimized by the moderator on the site
Dear Yahia,
The locked cells in a protected worksheet can't be copied.
This comment was minimized by the moderator on the site
Very Helpful. Thanks ! :D
This comment was minimized by the moderator on the site
Dear i want to protect the hidden cells from by copying to the new sheet, is there any option in the excel sheet for that. Means no can able to view the formulaes after copying from one sheet to other sheet.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations