Ga naar hoofdinhoud

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.

Note: 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

Note: 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:

Beste Office-productiviteitstools

Populaire functies: Zoek, markeer of identificeer duplicaten   |  Verwijder lege rijen   |  Combineer kolommen of cellen zonder gegevens te verliezen   |   Ronde zonder formule ...
Super opzoeken: Meerdere criteria VLookup    VLookup met meerdere waarden  |   VOpzoeken over meerdere bladen   |   Fuzzy opzoeken ....
Geavanceerde vervolgkeuzelijst: Maak snel een vervolgkeuzelijst   |  Afhankelijke vervolgkeuzelijst   |  Multi-select vervolgkeuzelijst ....
Kolom Beheerder: Voeg een specifiek aantal kolommen toe  |  Kolommen verplaatsen  |  Schakel de zichtbaarheidsstatus van verborgen kolommen in  |  Vergelijk bereiken en kolommen ...
Uitgelichte functies: Raster focus   |  Ontwerpweergave   |   Grote formulebalk    Werkmap- en bladbeheer   |  resource Library (Auto-tekst)   |  Datumkiezer   |  Combineer werkbladen   |  Cellen coderen/decoderen    Stuur e-mails per lijst   |  Super filter   |   Speciaal filter (filter vet/cursief/doorhalen...) ...
Top 15 gereedschapsets12 Tekst Tools (toe te voegen tekst, Tekens verwijderen, ...)   |   50+ tabel Types (Gantt Chart, ...)   |   40+ Praktisch Formules (Bereken leeftijd op basis van verjaardag, ...)   |   19 Invoeging Tools (QR-code invoegen, Afbeelding invoegen vanaf pad, ...)   |   12 Camper ombouw Tools (Getallen naar woorden, Currency Conversion, ...)   |   7 Samenvoegen en splitsen Tools (Geavanceerd Combineer rijen, Gespleten cellen, ...)   |   ... en meer

Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen.  Klik hier om de functie te krijgen die u het meest nodig heeft...

kte tabblad 201905


Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker

  • Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations