Hoe beveilig je cellen op basis van de datum in Excel?
Normaal gesproken beveiligt u een werkblad om te voorkomen dat anderen celwaarden bewerken of wijzigen. Maar soms wilt u cellen beveiligen op basis van de datum. Bijvoorbeeld: u wilt alle cellen vergrendelen, behalve de cellen die vandaag horen — zodat alleen de waarden van vandaag kunnen worden gewijzigd, zoals in de onderstaande schermafbeelding is te zien. In dit artikel leest u hoe u cellen op basis van de datum kunt beveiligen.
Beveilig alle rijen behalve de rij met de datum van vandaag met VBA-code
Beveilig alle rijen waarvan de datum is verstreken met VBA-code
Beveilig alle rijen behalve de rij met de datum van vandaag met VBA-code
Sta alleen toe dat de rij die overeenkomt met de datum van vandaag wordt gewijzigd. De volgende code helpt u daarbij. Volg deze stappen:
1. Klik met de rechtermuisknop op het bladtab waarop u cellen op basis van datum wilt beveiligen en kies vervolgens Code weergeven in het contextmenu. Plak de volgende code in de lege module in het venster Microsoft Visual Basic for Applications dat verschijnt:
VBA-code: Beveilig alle rijen behalve de rij met de datum van vandaag:
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 waarin de datum staat. „111111” is het wachtwoord waarmee dit blad is beveiligd. U kunt beide naar wens aanpassen.
2. Sluit daarna dit codevenster.
(1.) Als u op andere cellen klikt dan die in de rij met de datum van vandaag, verschijnt een waarschuwingsvenster met de melding dat de cel niet kan worden bewerkt. Zie de schermafbeelding:
(2.) Als u op de rij klikt die overeenkomt met de datum van vandaag en deze bewerkt, wordt uw wijziging direct en succesvol toegepast. Zie de schermafbeelding:
Ontgrendel de magie van Excel met KUTOOLS AI
- Slimme uitvoering: Voer celbewerkingen uit, analyseer gegevens en maak grafieken — allemaal met eenvoudige opdrachten.
- aangepaste formules: Genereer op maat gemaakte formules om uw workflows te stroomlijnen.
- VBA-programmeren: Schrijf en implementeer VBA-code moeiteloos.
- Formule-uitleg: Begrijp complexe formules moeiteloos.
- Tekstvertaling: Doorbreek taalbarrières in uw spreadsheets.
Beveilig alle rijen waarvan de datum is verstreken met VBA-code
Als u alle rijen met een verstreken datum wilt beveiligen en alleen de rijen van vandaag en toekomstige datums wilt toestaan om te worden gewijzigd, past u de volgende VBA-code toe:
1. Klik met de rechtermuisknop op het bladtab waarop u de cellen op basis van datum wilt beveiligen en kies vervolgens Code weergevenin het contextmenu. Plak in het venster Microsoft Visual Basic for Applicationsdat verschijnt, de volgende code in de lege module:
VBA-code: Beveilig alle rijen waarvan de datum is verstreken:
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 waarin de datum staat. „111111” is het wachtwoord waarmee dit blad wordt beveiligd. U kunt deze naar wens aanpassen.
3. Sluit daarna dit codevenster.
(1.) Als u klikt op cellen met een verstreken datum, verschijnt er een waarschuwingsvenster met de melding dat de cel niet kan worden bewerkt. Zie de schermafbeelding:
(2.) Als u op cellen in rijen klikt om waarden van vandaag of een toekomstige datum aan te passen, wordt de wijziging met succes toegepast. Zie de schermafbeelding:
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins