Hoe kun je specifieke cellen vergrendelen en ontgrendelen met een selectievakje in Excel?
Dit artikel gaat over het gebruik van een selectievakje om een bereik van specifieke cellen in Excel te vergrendelen en ontgrendelen.
Vergrendel en ontgrendel specifieke cellen met een selectievakje door VBA-code te gebruiken
Vergrendel en ontgrendel specifieke cellen met een selectievakje door VBA-code te gebruiken
Het onderstaande VBA-script kan je helpen om een bereik van specifieke cellen te ontgrendelen of te vergrendelen wanneer je een selectievakje aan- of uitzet in een werkblad. Volg de onderstaande stappen.
1. Allereerst moet je een naam toewijzen aan het bereik van cellen dat je wilt vergrendelen en ontgrendelen met een selectievakje.
Hier selecteer ik het bereik A1:A14, typ de naam LockRng in het Naamvak, en druk vervolgens op de Enter-toets. Zie screenshot:
2. In het werkblad waarin het selectievakje staat dat je gaat gebruiken om cellen te vergrendelen en ontgrendelen, klik je met de rechtermuisknop op het tabblad Werkblad en klik je vervolgens op Weergave Code in het rechtermuisknopmenu.
Opmerking: Het selectievakje moet een ActiveX-selectievakje zijn bij het invoegen.
3. Plak in het venster Microsoft Visual Basic for Applications dat verschijnt de onderstaande VBA-code in het Codevenster.
VBA-code: Vergrendel of ontgrendel een bereik van specifieke cellen met een selectievakje
Private Sub CheckBox1_Click()
Range("LockRng").Select
On Error Resume Next
If CheckBox1.Value = True Then
Selection.Locked = False
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 SubOpmerking: In de code is Checkbox1 de naam van het selectievakje, LockRng is de naam van het gespecificeerde celbereik. Je kunt ze naar wens wijzigen.
4. Druk gelijktijdig op de toetsen Alt + Q om het venster Microsoft Visual Basic for Applications te sluiten.
Nu kun je de code testen. Wanneer je het selectievakje uitvinkt, verschijnt er een dialoogvenster van Kutools voor Excel om je te laten weten dat het gespecificeerde bereik is vergrendeld; klik op de knop OK.
Wanneer je het selectievakje aanvinkt, worden alle cellen in het gespecificeerde bereik ontgrendeld en krijg je een dialoogvenster van Kutools voor Excel zoals weergegeven in de rechter screenshot hieronder.
Gerelateerde artikelen:
- Hoe filter je gegevens op basis van een selectievakje in Excel?
- Hoe verberg je een selectievakje wanneer een rij verborgen is in Excel?
- Hoe maak je een dropdownlijst met meerdere selectievakjes in Excel?
- Hoe markeer je een cel of rij met een selectievakje in Excel?
Beste productiviteitstools voor Office
Verbeter je Excel-vaardigheden met Kutools voor Excel en ervaar ongeëvenaarde efficiëntie. Kutools voor Excel biedt meer dan300 geavanceerde functies om je productiviteit te verhogen en tijd te besparen. Klik hier om de functie te kiezen die je het meest nodig hebt...
Office Tab brengt een tabbladinterface naar Office en maakt je werk veel eenvoudiger
- Activeer tabbladbewerking en -lezen in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
- Verhoog je productiviteit met50% en bespaar dagelijks honderden muisklikken!
Alle Kutools-invoegtoepassingen. Eén installatieprogramma
Kutools for Office-suite bundelt invoegtoepassingen voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro, ideaal voor teams die werken met Office-toepassingen.
- Alles-in-één suite — invoegtoepassingen voor Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Eén installatieprogramma, één licentie — in enkele minuten geïnstalleerd (MSI-ready)
- Werkt beter samen — gestroomlijnde productiviteit over meerdere Office-toepassingen
- 30 dagen volledige proef — geen registratie, geen creditcard nodig
- Beste prijs — bespaar ten opzichte van losse aanschaf van invoegtoepassingen