Hoe vergrendelt of beveiligt u cellen in Excel na het invoeren van gegevens?
Stel dat u een werkblad hebt waarin alleen een bepaald bereik met lege cellen gegevens mag bevatten. Nadat u de gegevens hebt ingevoerd, wilt u dat deze cellen automatisch worden vergrendeld om latere wijzigingen te voorkomen. Hoe realiseert u dat? Dit artikel helpt u daarbij.
Cellen vergrendelen of beveiligen na gegevensinvoer met VBA-code
Cellen vergrendelen of beveiligen na gegevensinvoer met VBA-code
Stel dat het betreffende bereik met lege cellen A1:F8 is. Volg de onderstaande stappen om deze cellen in Excel te vergrendelen na gegevensinvoer.
1. Ontgrendel dit bereik eerst door de cellen te selecteren, met de rechtermuisknop te klikken en vervolgens Celopmaak instellen te kiezen in het contextmenu. In het Celopmaak instellen-dialoogvenster schakelt u het selectievakje Vergrendeld uit op het tabblad Beveiliging en klikt u ten slotte op de knop OK. Zie de schermafbeelding:
2. Klik op Controleren > Werkblad beveiligen. Geef een wachtwoord op om dit werkblad te beveiligen.
3. Klik met de rechtermuisknop op het bladtabblad en kies Code weergeven in het contextmenu. Kopieer de onderstaande VBA-code en plak deze in het codovenster. Zie de schermafbeelding:
VBA-code: Cellen vergrendelen of beveiligen na gegevensinvoer
Dim mRg As Range
Dim mStr As String
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Range("A1:F8"), Target) Is Nothing Then
Set mRg = Target.Item(1)
mStr = mRg.Value
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim xRg As Range
On Error Resume Next
Set xRg = Intersect(Range("A1:F8"), Target)
If xRg Is Nothing Then Exit Sub
Target.Worksheet.Unprotect Password:="123"
If xRg.Value <> mStr Then xRg.Locked = True
Target.Worksheet.Protect Password:="123"
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Range("A1:F8"), Target) Is Nothing Then
Set mRg = Target.Item(1)
mStr = mRg.Value
End If
End Sub
Opmerking: In de code is „A1:F8” het bereik waarin u gegevens moet invoeren en „123” het wachtwoord voor het beveiligde werkblad. Pas deze waarden naar wens aan.
4. Druk tegelijkertijd op Alt + Q om het venster Microsoft Visual Basic for Applications te sluiten.
Nadat u gegevens hebt ingevoerd in de cellen van het bereik A1:F8, worden deze automatisch vergrendeld. Als u de inhoud van een cel in dit bereik probeert te wijzigen, verschijnt er een waarschuwingsdialoogvenster. Zie de schermafbeelding:
Gerelateerde artikelen:
- Hoe vergrendelt u alle celverwijzingen in uw Excel-formules tegelijkertijd?
- Hoe vergrendelt of ontgrendelt u een selectie op basis van de waarde in een andere cel in Excel?
- Hoe koppelt u een afbeelding of foto aan of binnen een cel in Excel?
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