Wie können Zellen in Excel nach der Dateneingabe gesperrt oder geschützt werden?
Angenommen, Sie verfügen über ein Arbeitsblatt, bei dem nur ein bestimmter Bereich leerer Zellen mit Daten gefüllt werden muss. Nach Abschluss der Eingabe sollen diese Zellen automatisch gesperrt werden, um weitere Änderungen zu verhindern. Wie lässt sich dies erreichen? Dieser Artikel unterstützt Sie dabei.
Zellen nach der Dateneingabe mithilfe von VBA-Code sperren oder schützen
Zellen nach der Dateneingabe mithilfe von VBA-Code sperren oder schützen
Beispielsweise sei der betreffende Bereich leerer Zellen A1:F8. Gehen Sie wie folgt vor, um diese Zellen nach der Dateneingabe in Excel zu sperren.
1. Heben Sie zunächst den Schutz für diesen Bereich auf, indem Sie die Zellen markieren, mit der rechten Maustaste klicken und im Kontextmenü Zellenformat festlegen auswählen. Deaktivieren Sie im daraufhin erscheinenden Zellenformat festlegen-Dialogfeld das Kontrollkästchen Gesperrt unter der Registerkarte Schutz und klicken Sie abschließend auf die Schaltfläche OK. Siehe Screenshot:
2. Klicken Sie auf Überprüfen > Blatt schützen. Geben Sie anschließend ein Passwort ein, um dieses Arbeitsblatt zu schützen.
3. Klicken Sie mit der rechten Maustaste auf die Blattregisterkarte und wählen Sie im Kontextmenü Code anzeigen. Kopieren Sie anschließend den folgenden VBA-Code, und fügen Sie ihn in das Code-Fenster ein. Siehe Screenshot:
VBA-Code: Zellen nach der Dateneingabe sperren oder schützen
Dim mRg As Range
Dim mStr As String
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Range("A1:F8"), Target) Is Nothing Then
Set mRg = Target.Item(1)
mStr = mRg.Value
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim xRg As Range
On Error Resume Next
Set xRg = Intersect(Range("A1:F8"), Target)
If xRg Is Nothing Then Exit Sub
Target.Worksheet.Unprotect Password:="123"
If xRg.Value <> mStr Then xRg.Locked = True
Target.Worksheet.Protect Password:="123"
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Range("A1:F8"), Target) Is Nothing Then
Set mRg = Target.Item(1)
mStr = mRg.Value
End If
End Sub
Hinweis: Im Code steht „A1:F8“ für den Bereich, in den Sie Ihre Daten eingeben müssen; „123“ ist das Passwort für das geschützte Arbeitsblatt. Passen Sie diese Angaben ganz einfach an Ihre Anforderungen an.
4. Drücken Sie gleichzeitig die Tasten Alt + Q, um das Fenster Microsoft Visual Basic für Applikationen zu schließen.
Nach Abschluss der Dateneingabe in die Zellen des Bereichs A1:F8 werden diese automatisch gesperrt. Sobald Sie versuchen, den Inhalt einer dieser Zellen zu ändern, erscheint eine Hinweismeldung. Siehe Screenshot:
Verwandte Artikel:
- Wie können in Excel alle Zellbezüge in Formeln gleichzeitig gesperrt werden?
- Wie kann man eine Zelle in Excel basierend auf ihrem Wert sperren oder deren Auswahl entsperren?
- Wie kann ein Bild oder eine Grafik an bzw. innerhalb einer Zelle in Excel fixiert werden?
Beste Office-Produktivitätstools
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 zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins