Tipp: Andere Sprachen sind Google-Übersetzungen. Sie können die English Version dieses Links.
Einloggen
x
or
x
x
Registrieren
x

or

Wie schützt man Zellen anhand des Datums in Excel?

Normalerweise können wir das Arbeitsblatt schützen, um zu verhindern, dass andere die Zellenwerte bearbeiten oder ändern, aber manchmal müssen Sie die Zellen basierend auf dem Datum schützen. Ich möchte beispielsweise andere Zellen schützen, aber nur die Zellenwerte des aktuellen Datums ändern, wie im folgenden Screenshot gezeigt. In diesem Artikel wird erläutert, wie Zellen basierend auf dem Datum geschützt werden können.

doc schützen nach Datum 1

Schützen Sie alle Zeilen außer der heutigen Datumszeile mit VBA-Code

Schützen Sie alle Zeilen, deren Datum mit VBA-Code übergeben wurde

Registerkarte "Office" Aktivieren Sie das Bearbeiten und Durchsuchen von Registerkarten in Office und vereinfachen Sie Ihre Arbeit erheblich ...
Kutools for Excel - Das beste Office-Produktivitäts-Tool löst die meisten Ihrer Excel-Probleme
  • Alles wiederverwenden: Fügen Sie die am häufigsten verwendeten oder komplexesten Formeln, Diagramme und andere Elemente zu Ihren Favoriten hinzu und verwenden Sie sie in Zukunft schnell wieder.
  • Mehr als 20-Textfunktionen: Extrahieren Sie die Nummer aus der Textzeichenfolge. Teile von Texten extrahieren oder entfernen; Zahlen und Währungen in englische Wörter umrechnen ...
  • Tools zusammenführen: Mehrere Arbeitsmappen und Blätter in einer; Mehrere Zellen / Zeilen / Spalten zusammenführen, ohne Daten zu verlieren; Doppelte Zeilen und Summe zusammenführen ...
  • Geteilte Werkzeuge: Aufteilen von Daten in mehrere Blätter basierend auf dem Wert; Eine Arbeitsmappe in mehrere Excel-, PDF- oder CSV-Dateien; Eine Spalte zu mehreren Spalten ...
  • Einfügen überspringen Versteckte / Gefilterte Zeilen; Zählung und Summe nach Hintergrundfarbe; Mailingliste erstellen und Senden Sie E-Mails nach dem Wert von Cell...
  • Super Filter: Erstellen Sie erweiterte Filterschemata und wenden Sie diese auf alle Blätter an. Art nach Woche, Tag, Häufigkeit und mehr; Filtern durch Fettdruck, Formeln, Kommentar ...
  • Mehr als 300 leistungsstarke Funktionen; Funktioniert mit Office 2007-2019 und 365; Unterstützt alle Sprachen; Einfache Bereitstellung im Unternehmen; Kostenlose 60-Testversion für alle Funktionen.

Pfeil blaue rechte Blase Schützen Sie alle Zeilen außer der heutigen Datumszeile mit VBA-Code

Lassen Sie nur die Zeile, die dem heutigen Datum entspricht, ändern, der folgende Code kann Ihnen dabei helfen:

1. Klicken Sie mit der rechten Maustaste auf die Registerkarte, auf der Sie die Zellen basierend auf dem Datum schützen möchten, und wählen Sie dann Code anzeigen aus dem Kontextmenü, in dem Pop-out Microsoft Visual Basic für Applikationen Fenster, bitte kopieren und fügen Sie den folgenden Code in das leere Modul ein:

VBA-Code: Schützt alle Zeilen außer der heutigen Datumszeile:

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

doc schützen nach Datum 2

Text: In dem obigen Code der Buchstabe E ist die Spaltenüberschrift, in der sich das Datum befindet "111111"Ist das Passwort um dieses Blatt zu schützen. Sie können sie nach Ihren Bedürfnissen ändern.

2. Dann speichern und schließen Sie dieses Codefenster.

(1.) Wenn Sie auf andere Zellen klicken, die über die heutige Datumszeile hinausgehen, erscheint eine Eingabeaufforderung, um Sie daran zu erinnern, dass die Zelle nicht bearbeitet werden kann, siehe Screenshot:

doc schützen nach Datum 3

(2.) Wenn Sie auf die Zeile klicken, die dem heutigen Datum entspricht, wird sie erfolgreich geändert, siehe Screenshot:

doc schützen nach Datum 4


Pfeil blaue rechte Blase Schützen Sie alle Zeilen, deren Datum mit VBA-Code übergeben wurde

Wenn Sie alle Zeilen schützen müssen, die das Datum überschritten hat, lassen Sie nur zu, dass die Zeilen für die heutige und zukünftige Zeit geändert werden. Wenden Sie dazu den folgenden VBA-Code an:

1. Klicken Sie mit der rechten Maustaste auf die Registerkarte, auf der Sie die Zellen basierend auf dem Datum schützen möchten, und wählen Sie dann Code anzeigen aus dem Kontextmenü, in dem Pop-out Microsoft Visual Basic für Applikationen Fenster, bitte kopieren und fügen Sie den folgenden Code in das leere Modul ein:

VBA-Code: Alle Zeilen schützen, die das Datum überschritten hat:

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

doc schützen nach Datum 5

Text: Im obigen Code die Nummer 5 ist die Spaltennummer, an der sich das Datum befindet, "111111"Ist das Passwort um dieses Blatt zu schützen. Sie können sie nach Ihren Bedürfnissen ändern.

3. Dann speichern und schließen Sie dieses Codefenster.

(1.) Wenn Sie auf das Datum der Zelle klicken, erscheint eine Eingabeaufforderung, um Sie daran zu erinnern, dass die Zelle nicht bearbeitet werden kann, siehe Screenshot:

doc schützen nach Datum 6

(2.) Wenn Sie auf die Zelle von Zeilen klicken, um zu versuchen, die Werte im heutigen Datum oder zukünftigen Datum zu ändern, wird sie erfolgreich geändert, siehe Screenshot:

doc schützen nach Datum 7


Kutools for Excel - Das beste Office-Produktivitäts-Tool Steigern Sie Ihre Produktivität um 80%

  • Wiederverwendung: Schnell einlegen komplexe Formeln, Diagramme und alles, was du vorher benutzt hast; Zellen verschlüsseln mit Passwort; Mailingliste erstellen und E-Mails senden ...
  • Super Formula Bar (Bearbeiten Sie mühelos mehrere Textzeilen und Formeln); Layout lesen (Leichtes Lesen und Bearbeiten einer großen Anzahl von Zellen); In gefilterten Bereich einfügen...
  • Zellen / Zeilen / Spalten zusammenführen ohne Daten zu verlieren; Inhalt der Zellen teilen; Kombinieren Sie doppelte Zeilen / Spalten... Doppelte Zellen verhindern; Bereiche vergleichen...
  • Wählen Sie "Duplizieren" oder "Eindeutig" Reihen; Wählen Sie Leere Zeilen (alle Zellen sind leer); Super Find und Fuzzy Find in vielen Arbeitsmappen; Zufallsauswahl ...
  • Exakte Kopie Mehrere Zellen ohne Änderung der Formelreferenz; Referenzen automatisch erstellen auf mehrere Blätter; Bullets einfügen, Kontrollkästchen und mehr ...
  • Extract Text, Text hinzufügen, Nach Position entfernen, Leerzeichen entfernen; Erstellen und Drucken von Paging-Zwischensummen; Zwischen Zelleninhalt und Kommentaren konvertieren...
  • Superfilter (Speichere und wende Filterschemata auf andere Blätter an); Erweiterte Sortierung nach Monat / Woche / Tag, Häufigkeit und mehr; Spezialfilter fett, kursiv ...
  • Arbeitsmappen und Arbeitsblätter kombinieren; Zusammenführen von Tabellen basierend auf Schlüsselspalten; Daten in mehrere Blätter aufteilen; Stapelkonvertierung von xls, xlsx und PDF...
  • Mehr als 300 leistungsstarke Funktionen. Unterstützt Office / Excel 2007-2019 und 365. Unterstützt alle Sprachen. Einfache Bereitstellung in Ihrem Unternehmen oder Ihrer Organisation. Kostenlose 60-Testversion für alle Funktionen.
Registerkarte Tab 201905

Registerkarte "Office" Bringt die Benutzeroberfläche mit Registerkarten in Office und vereinfacht Ihre 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 täglich Hunderte von Mausklicks für Sie!
officetab unten
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Karan · 2 months ago
    Hi,

    while running this code I am getting an error as shown in the figure
    Also i am attaching a snapshot my excel where i want to make changes..

    Can u guide in my code where should i make changes according to my excel file so that cells that contain only todays & future date can be editied ???
    • To post as a guest, your comment is unpublished.
      skyyang · 1 months ago
      Hello, Karan,
      Because there are merged cells in your table, the above code can not be applied correctly in merged cells table.
      If you have any other good ideas, please comment here. Thank you!
  • To post as a guest, your comment is unpublished.
    Niall · 9 months ago
    As someone who is relatively new to VBA, would you mind explaining why xRow = 2 in Line 4?



    Thanks
    • To post as a guest, your comment is unpublished.
      Piotr · 8 months ago
      because in row no. 1 you have header
  • To post as a guest, your comment is unpublished.
    Bobby · 1 years ago
    This works great. but how can I switch it to unlock a column based on dates in row 3?
  • To post as a guest, your comment is unpublished.
    TAHER KANPURWALA · 1 years ago
    Hello.....


    I am using the code for Protect all rows except today’s date row........



    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    'Updateby Extendoffice 20161025
    If Range("A" & 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


    After i save i and click on cell i get message only today's date row can be edited....but if i double click the cell the i can edit...pls help
  • To post as a guest, your comment is unpublished.
    LUIS GARCIA · 1 years ago
    hi is it possible to lock certain cells depending on the date that is directly above them in a column?
    • To post as a guest, your comment is unpublished.
      skyyang · 1 years ago
      Hi, Lusis,
      Can you give your problem more specifically? Or you can attach a screenshot as your problem.
      Thank you!
  • To post as a guest, your comment is unpublished.
    Lmg · 1 years ago
    Hi is it possible to lock columns by the date directly above the columns?
  • To post as a guest, your comment is unpublished.
    Hitesh · 2 years ago
    Loophole: Password can be seen by other person by using "View Code" option.