Wie kann man Zellen basierend auf dem Datum in Excel schützen?

Normalerweise können wir das Arbeitsblatt schützen, um zu verhindern, dass andere die Zellwerte bearbeiten oder ändern. Manchmal möchten Sie jedoch die Zellen basierend auf dem Datum schützen. Zum Beispiel möchte ich alle anderen Zellen schützen, aber nur die Zellen mit dem heutigen Datum zur Bearbeitung freigeben, wie im folgenden Screenshot gezeigt. Dieser Artikel erklärt, wie Sie Zellen basierend auf dem Datum schützen.

Schützen Sie alle Zeilen außer der Zeile mit dem heutigen Datum mit VBA-Code

Schützen Sie alle Zeilen, deren Datum bereits vergangen ist, mit VBA-Code

Schützen Sie alle Zeilen außer der Zeile mit dem heutigen Datum mit VBA-Code

Erlauben Sie nur die Bearbeitung der Zeile, die dem heutigen Datum entspricht. Der folgende Code kann Ihnen helfen, gehen Sie bitte wie folgt vor:

1. Klicken Sie mit der rechten Maustaste auf den Tab des Arbeitsblatts, das Sie basierend auf dem Datum schützen möchten, und wählen Sie dann Ansicht Code aus dem Kontextmenü. Im sich öffnenden Fenster Microsoft Visual Basic for Applications kopieren und fügen Sie den folgenden Code in das leere Modul ein:

VBA-Code: Schütze alle Zeilen außer der Zeile mit dem heutigen Datum:

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 ist der Buchstabe E die Spaltenüberschrift, in der sich das Datum befindet, „111111“ ist das Passwort zum Schutz dieses Blatts. Sie können diese Werte nach Bedarf ändern.

2. Speichern Sie dann diesen Code und schließen Sie das Fenster.

(1.) Wenn Sie auf andere Zellen außerhalb der Zeile mit dem heutigen Datum klicken, wird ein Hinweisfenster angezeigt, das Sie daran erinnert, dass die Zelle nicht bearbeitet werden kann, siehe Screenshot:

(2.) Wenn Sie auf die Zeile mit dem heutigen Datum klicken und diese bearbeiten, wird die Änderung erfolgreich durchgeführt, siehe Screenshot:

Entfesseln Sie die Magie von Excel mit Kutools AI

• Intelligente Ausführung: Führen Sie Zellenoperationen durch, analysieren Sie Daten und erstellen Sie Diagramme – alles angetrieben durch einfache Befehle.
• Benutzerdefinierte Formeln: Erstellen Sie maßgeschneiderte Formeln, um Ihre Arbeitsabläufe zu optimieren.
• VBA-Codierung: Schreiben und implementieren Sie VBA-Code mühelos.
• Formelinterpretation: Verstehen Sie komplexe Formeln mit Leichtigkeit.
• Textübersetzung: Überwinden Sie Sprachbarrieren in Ihren Tabellen.

Erweitern Sie Ihre Excel-Fähigkeiten mit KI-gestützten Tools. Laden Sie jetzt herunter und erleben Sie eine Effizienz wie nie zuvor!

Schützen Sie alle Zeilen, deren Datum bereits vergangen ist, mit VBA-Code

Wenn Sie alle Zeilen schützen müssen, deren Datum bereits vergangen ist, und nur die Zeilen mit dem heutigen oder einem zukünftigen Datum bearbeitbar sein sollen, wenden Sie bitte den folgenden VBA-Code an:

1. Klicken Sie mit der rechten Maustaste auf den Tab des Arbeitsblatts, das Sie basierend auf dem Datum schützen möchten, und wählen Sie dann Ansicht Code aus dem Kontextmenü. Im sich öffnenden Fenster Microsoft Visual Basic for Applications kopieren und fügen Sie den folgenden Code in das leere Modul ein:

VBA-Code: Schütze alle Zeilen, 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 ist die Zahl 5 die Spaltennummer, in der sich das Datum befindet, „111111“ ist das Passwort zum Schutz dieses Blatts. Sie können diese Werte nach Bedarf ändern.

3. Speichern Sie dann diesen Code und schließen Sie das Fenster.

(1.) Wenn Sie auf eine Zelle klicken, deren Datum bereits vergangen ist, wird ein Hinweisfenster angezeigt, das Sie daran erinnert, dass die Zelle nicht bearbeitet werden kann, siehe Screenshot:

(2.) Wenn Sie auf eine Zelle einer Zeile klicken, um Werte im heutigen oder einem zukünftigen Datum zu ändern, wird die Änderung erfolgreich durchgeführt, siehe Screenshot: