Hoe cellen op basis van datum in Excel te beveiligen?

Normaal gesproken kunnen we het werkblad beveiligen om te voorkomen dat anderen de celwaarden bewerken of wijzigen, maar soms moet je de cellen op basis van de datum beveiligen. Bijvoorbeeld, ik wil andere cellen beveiligen, maar alleen de celwaarden van vandaag’s datum laten wijzigen zoals in de volgende schermafbeelding wordt getoond. Dit artikel zal uitleggen hoe je cellen kunt beveiligen op basis van de datum.

Beveilig alle rijen behalve de rij met vandaag’s datum met VBA-code

Beveilig alle rijen waarvan de datum voorbij is met VBA-code

Beveilig alle rijen behalve de rij met vandaag’s datum met VBA-code

Sta alleen de rij die gelijk is aan vandaag’s datum toe om te worden gewijzigd. De volgende code kan u helpen, doe het als volgt:

1. Klik met de rechtermuisknop op het tabblad van het werkblad dat u wilt beveiligen op basis van datum, en kies dan Weergave Code uit het contextmenu. In het venster Microsoft Visual Basic for Applications dat verschijnt, kopieer en plak de volgende code in de lege Module:

VBA-code: Beveilig alle rijen behalve de rij met vandaag’s 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

Opmerking: In de bovenstaande code is de letter E de kolomkop waar de datum zich bevindt, “111111” is het wachtwoord om dit werkblad te beveiligen. U kunt ze naar behoefte wijzigen.

2. Sla daarna deze codevenster op en sluit het.

(1.) Als u op andere cellen buiten de rij met vandaag’s datum klikt, verschijnt er een waarschuwingsvenster om u eraan te herinneren dat de cel niet kan worden bewerkt, zie onderstaande schermafbeelding:

(2.) Als u op de rij klikt en bewerkt die gelijk is aan vandaag’s datum, zal deze succesvol worden gewijzigd, zie onderstaande schermafbeelding:

Ontdek de Magie van Excel met Kutools AI

• Slimme Uitvoering: Voer celbewerkingen uit, analyseer gegevens en maak diagrammen – allemaal aangestuurd door eenvoudige commando's.
• Aangepaste Formules: Genereer op maat gemaakte formules om uw workflows te versnellen.
• VBA-codering: Schrijf en implementeer VBA-code moeiteloos.
• Formule-uitleg: Begrijp complexe formules gemakkelijk.
• Tekstvertaling: Overbrug taalbarrières binnen uw spreadsheets.

Verhoog uw Excel-mogelijkheden met AI-aangedreven tools. Download Nu en ervaar een ongekende efficiëntie!

Beveilig alle rijen waarvan de datum voorbij is met VBA-code

Als u alle rijen waarvan de datum voorbij is moet beveiligen en alleen vandaag en toekomstige datums wilt laten wijzigen, pas dan de volgende VBA-code toe:

1. Klik met de rechtermuisknop op het tabblad van het werkblad dat u wilt beveiligen op basis van datum, en kies dan Weergave Code uit het contextmenu. In het venster Microsoft Visual Basic for Applications dat verschijnt, kopieer en plak de volgende code in de lege Module:

VBA-code: Beveilig alle rijen waarvan de datum voorbij is:

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

Opmerking: In de bovenstaande code is het getal 5 het kolomnummer waar de datum zich bevindt, “111111” is het wachtwoord om dit werkblad te beveiligen. U kunt ze naar behoefte wijzigen.

3. Sla daarna dit codevenster op en sluit het.

(1.) Als u op de cellen klikt waarvan de datum voorbij is, verschijnt er een waarschuwingsvenster om u eraan te herinneren dat de cel niet kan worden bewerkt, zie onderstaande schermafbeelding:

(2.) Als u op de cel van de rij klikt om de waarden in vandaag’s datum of toekomstige datum te wijzigen, zal deze succesvol worden gewijzigd, zie onderstaande schermafbeelding: