Hoe bepaalde cellen vergrendelen en ontgrendelen met een selectievakje in Excel?

In dit artikel wordt gesproken over het gebruik van een selectievakje om een ​​reeks opgegeven cellen in Excel te vergrendelen en ontgrendelen.

Vergrendel en ontgrendel gespecificeerde cellen met een selectievakje met behulp van VBA-code

---

Vergrendel en ontgrendel gespecificeerde cellen met een selectievakje met behulp van VBA-code

Het onderstaande VBA-script kan u helpen om een ​​reeks gespecificeerde cellen te ontgrendelen of te vergrendelen bij het in- of uitschakelen van een selectievakje in het werkblad. Ga als volgt te werk.

1. Ten eerste moet u een naam specificeren voor het celbereik dat u moet vergrendelen en ontgrendelen met een selectievakje.

Hier selecteer ik bereik A1: A14, typ een naam LockRng in de Naam box en druk vervolgens op de Enter sleutel. Zie screenshot:

2. In het werkblad bevat het selectievakje dat u gaat gebruiken om cellen te vergrendelen en ontgrendelen, klik met de rechtermuisknop op de bladtab en klik vervolgens op Bekijk code vanuit het rechtsklikmenu.

Opmerking:: Het selectievakje moet ActiveX-selectievakje zijn wanneer u invoegt.

3. In het opduiken Microsoft Visual Basic voor toepassingen -venster, kopieer en plak de onderstaande VBA-code in het Code venster.

VBA-code: vergrendel of ontgrendel een reeks opgegeven cellen met een selectievakje

Private Sub CheckBox1_Click()
    Range("LockRng").Select
    On Error Resume Next
    If CheckBox1.Value = True Then
        Selection.Locked = Fals
        MsgBox "Range cells " & Selection.Address & " has been unlocked", vbInformation, "Kutools for Excel"
    Else
        Selection.Locked = True
        MsgBox "Range cells " & Selection.Address & " has been locked", vbInformation, "Kutools for Excel"
    End If
End Sub

Opmerking:: In de code is Checkbox1 de naam van het selectievakje, LockRng is de naam van de opgegeven bereikcel. U kunt ze naar behoefte wijzigen.

4. druk de anders + Q toetsen tegelijk om het Microsoft Visual Basic voor toepassingen venster.

Nu kunt u de code testen. Als u het selectievakje uitschakelt, wordt een Kutools for Excel dialoogvenster zal verschijnen om u te vertellen dat het opgegeven bereik is vergrendeld, klik op het OK knop.

Terwijl u het selectievakje aanvinkt, worden alle cellen in het opgegeven bereik ontgrendeld en krijgt u een Kutools for Excel dialoogvenster zoals hieronder afgebeeld rechts screenshot.

---

Gerelateerde artikelen:

• Hoe gegevens filteren op basis van selectievakjes in Excel?
• Hoe het selectievakje te verbergen wanneer de rij is verborgen in Excel?
• Hoe maak je een vervolgkeuzelijst met meerdere selectievakjes in Excel?
• Hoe cel of rij markeren met selectievakje in Excel?