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:
- 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?
Beste Office-productiviteitstools
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...
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!