Wie schützt man Zellen in Excel basierend auf einem Datum?
Normalerweise können Sie das Arbeitsblatt schützen, um zu verhindern, dass andere Zellwerte bearbeiten oder ändern, aber manchmal müssen Sie Zellen basierend auf einem Datum schützen. Beispielsweise möchten Sie alle anderen Zellen schützen, aber nur die Zellwerte des heutigen Datums zur Bearbeitung zulassen, wie im folgenden Screenshot gezeigt. In diesem Artikel wird erläutert, wie Sie Zellen basierend auf einem Datum schützen können.
Alle Zeilen außer der Zeile mit dem heutigen Datum mithilfe von VBA-Code schützen
Alle Zeilen, deren Datum bereits vergangen ist, mithilfe von VBA-Code schützen
Alle Zeilen außer der Zeile mit dem heutigen Datum mithilfe von VBA-Code schützen
Nur die Zeile, deren Datum dem heutigen entspricht, darf bearbeitet werden. Der folgende Code unterstützt Sie dabei – gehen Sie bitte wie folgt vor:
1. Klicken Sie mit der rechten Maustaste auf die Registerkarte des Arbeitsblatts, dessen Zellen Sie basierend auf dem Datum schützen möchten, und wählen Sie im Kontextmenü Code anzeigen. Fügen Sie im erscheinenden Fenster Microsoft Visual Basic for Applications den folgenden Code in das leere Modul ein:
VBA-Code: Alle Zeilen außer der Zeile mit dem heutigen Datum schützen:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Updateby Extendoffice 20161025
If Range("E" & Selection.Row).Value <> Date Then
ActiveSheet.Protect Password:="111111"
MsgBox "Only today's date row can be edited!", vbInformation, "Kutools for Excel"
ElseIf Range("E" & Selection.Row).Value = Date Then
ActiveSheet.Unprotect Password:="111111"
ActiveSheet.EnableSelection = xlNoRestrictions
End If
End Sub
Hinweis: Im obigen Code steht der Buchstabe E für die Spaltenüberschrift, in der das Datum enthalten ist. „111111“ ist das Kennwort zum Schutz dieses Arbeitsblatts. Passen Sie diese Angaben einfach nach Bedarf an.
2. Schließen Sie danach dieses Codefenster.
(1.) Wenn Sie auf eine Zelle außerhalb der Zeile mit dem heutigen Datum klicken, erscheint eine Meldungsbox, die Sie darauf hinweist, dass die Zelle nicht bearbeitet werden kann. Siehe Screenshot:
(2.) Wenn Sie auf die Zeile klicken, deren Datum dem heutigen entspricht, und diese bearbeiten, wird Ihre Änderung erfolgreich übernommen. Siehe Screenshot:
Entfesseln Sie die Magie von Excel mit KUTOOLS AI
- Intelligente Ausführung: Führen Sie Zelloperationen durch, analysieren Sie Daten und erstellen Sie Diagramme – alles ganz einfach per Sprachbefehl.
- Benutzerdefinierte Formeln: Erstellen Sie maßgeschneiderte Formeln, um Ihre Arbeitsabläufe optimal zu optimieren.
- VBA-Programmierung: Schreiben und implementieren Sie VBA-Code ganz mühelos.
- Formelinterpretation: Verstehen Sie komplexe Formeln spielend leicht.
- Textübersetzung: Überwinden Sie Sprachbarrieren direkt in Ihren Tabellenkalkulationen.
Alle Zeilen, deren Datum bereits vergangen ist, mithilfe von VBA-Code schützen
Wenn Sie alle Zeilen schützen möchten, deren Datum bereits vergangen ist, und nur die Bearbeitung von Zeilen mit dem heutigen oder einem zukünftigen Datum zulassen möchten, verwenden Sie bitte den folgenden VBA-Code:
1. Klicken Sie mit der rechten Maustaste auf die Registerkarte des Arbeitsblatts, dessen Zellen Sie basierend auf dem Datum schützen möchten, und wählen Sie dann im Kontextmenü Code anzeigen. Fügen Sie im erscheinenden Fenster Microsoft Visual Basic for Applicationsden folgenden Code in das leere Modul ein:
VBA-Code: Alle Zeilen schützen, deren Datum bereits vergangen ist:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'Updateby Extendoffice 20161025
Dim xRow As Long
xRow = 2
ThisWorkbook.ActiveSheet.Unprotect Password:="111111"
ThisWorkbook.ActiveSheet.Cells.Locked = False
Do Until IsEmpty(Cells(xRow, 5))
If Cells(xRow, 5) < Date Then
Rows(xRow).Locked = True
End If
xRow = xRow + 1
Loop
ThisWorkbook.ActiveSheet.Protect Password:="111111"
End Sub
Hinweis: Im obigen Code steht die Zahl 5 für die Spaltennummer, in der das Datum enthalten ist. „111111“ ist das Kennwort zum Schutz dieses Arbeitsblatts. Passen Sie diese Angaben einfach nach Bedarf an.
3. Schließen Sie danach dieses Codefenster.
(1.) Wenn Sie auf Zellen klicken, deren Datum bereits in der Vergangenheit liegt, erscheint eine Meldungsbox mit dem Hinweis, dass die Zelle nicht bearbeitet werden kann. Siehe Screenshot:
(2.) Wenn Sie auf Zellen in diesen Zeilen klicken, um Werte mit dem heutigen oder einem zukünftigen Datum zu ändern, wird die Änderung erfolgreich übernommen. Siehe Screenshot:
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