Hoe cellen te vergrendelen of beveiligen na gegevensinvoer in Excel?

Stel dat je een werkblad hebt en slechts een bepaald bereik aan lege cellen vereist gegevensinvoer. Na het voltooien van de invoer, wil je dat deze cellen automatisch worden vergrendeld om verdere wijzigingen te voorkomen. Hoe kun je dit bereiken? Dit artikel kan je helpen.

Cellen vergrendelen of beveiligen na gegevensinvoer met VBA-code

Cellen vergrendelen of beveiligen na gegevensinvoer met VBA-code

Bijvoorbeeld, het specifieke bereik aan lege cellen is A1:F8. Volg de volgende stappen om deze cellen te vergrendelen na gegevensinvoer in Excel.

1. Ontgrendel eerst dit bereik door de cellen te selecteren, met de rechtermuisknop te klikken, dan Celopmaak te kiezen in het rechtermuisknopmenu, en in het dialoogvenster Celopmaak het selectievakje Vergrendelen onder het tabblad Beveiliging uit te vinken, en ten slotte op de knop OK te klikken. Zie screenshot:

2. Klik op Controleren > Werkblad beveiligen. Specificeer vervolgens een wachtwoord om dit werkblad te beveiligen.

3. Klik met de rechtermuisknop op het tabblad van het werkblad, selecteer Weergave Code in het rechtermuisknopmenu. Kopieer en plak vervolgens de onderstaande VBA-code in het Code-venster. Zie screenshot:

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 waar je gegevens moet invoeren; en “123” is het wachtwoord voor het beveiligde werkblad. Pas ze aan zoals je nodig hebt.

4. Druk gelijktijdig op de toetsen Alt + Q om het venster Microsoft Visual Basic for Applications te sluiten.

Nadat je klaar bent met het invoeren van gegevens in de cellen van het bereik A1:F8, zullen ze automatisch worden vergrendeld. Je krijgt een waarschuwingsvenster als je probeert de inhoud van een cel in dit bereik te wijzigen. Zie screenshot:

Gerelateerde artikelen:

• Hoe alle celverwijzingen in formules tegelijk te vergrendelen in Excel?
• Hoe cellen te vergrendelen of ontgrendelen op basis van waarden in een andere cel in Excel?
• Hoe een afbeelding vast te zetten aan of in een cel in Excel?