Tip: andere talen zijn Google-Vertaald. Je kunt het English versie van deze link.
Log in
x
or
x
x
Registreren
x

or

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

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

Vergrendel en ontgrendel gespecificeerde cellen met een selectievakje door VBA-code te gebruiken

Tabblad Office Schakel bewerken en browsen met tabbladen in Office in en maak uw werk veel eenvoudiger ...
Kutools voor Excel - De beste Office-productiviteitstool lost de meeste van uw Excel-problemen op
  • Alles hergebruiken: Voeg de meest gebruikte of complexe formules, grafieken en al het andere toe aan uw favorieten en hergebruik ze snel in de toekomst.
  • Meer dan 20-tekstfuncties: Nummer uit tekststring halen; Een deel van de tekst extraheren of verwijderen; Nummers en valuta's omzetten in Engelse woorden ...
  • Tools samenvoegen: Meerdere werkmappen en bladen in één; Meerdere cellen / rijen / kolommen samenvoegen zonder gegevens te verliezen; Dubbele rijen en som samenvoegen ...
  • Split gereedschap: Gegevens splitsen in meerdere bladen op basis van waarde; Eén werkmap naar meerdere Excel-, PDF- of CSV-bestanden; Eén kolom naar meerdere kolommen ...
  • Plakken overslaan Verborgen / gefilterde rijen; Tel en som op achtergrondkleur; Maak een verzendlijst en Verzend e-mails op waarde van Cell...
  • Super filter: Maak geavanceerde filterschema's en pas deze toe op alle bladen; Soort per week, dag, frequentie en meer; filters door vetgedrukt, formules, commentaar ...
  • Meer dan 300 krachtige functies; Werkt met Office 2007-2019 en 365; Ondersteunt alle talen; Eenvoudig inzetbaar in bedrijf; Volledige functionaliteit 60-daagse gratis proefversie.

pijl blauwe rechterbel Vergrendel en ontgrendel gespecificeerde cellen met een selectievakje door VBA-code te gebruiken


Het onderstaande VBA-script kan u helpen een reeks gespecificeerde cellen te ontgrendelen of te vergrendelen wanneer u een selectievakje in het werkblad aanvinkt of uitvinkt. Doe het als volgt.

1. Allereerst moet u een naam opgeven voor het cellenbereik dat u moet vergrendelen en ontgrendelen met een selectievakje.

Hier selecteer ik bereik A1: A14, typ een naam LockRng in de Naam in het vak en druk op de invoeren sleutel. Zie screenshot:

2. In het werkblad staat het selectievakje dat u wilt gebruiken om cellen te vergrendelen en te ontgrendelen, klik met de rechtermuisknop op het tabblad Blad en klik vervolgens op Bekijk code vanuit het rechtsklikmenu.

Notes: 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 de Code venster.

VBA-code: vergrendel of ontgrendel een bereik van 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

Notes: 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 tegelijkertijd om de Microsoft Visual Basic voor toepassingen venster.

Nu kunt u de code testen. Als u het selectievakje uitschakelt, Kutools for Excel Er verschijnt een dialoogvenster met de melding dat het opgegeven bereik is vergrendeld. Klik op de 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 rechts screenshot getoond.


pijl blauwe rechterbelGerelateerde artikelen:


Kutools voor Excel - De beste Office-productiviteitstool Verhoog uw productiviteit met 80%

  • visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Coderen van cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • Super Formula Bar (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken op gefilterd bereik...
  • Cellen / rijen / kolommen samenvoegen zonder gegevens te verliezen; Inhoud gesplitste cellen; Combineer dubbele rijen / kolommen... voorkomen dubbele cellen; Ranges vergelijken...
  • Selecteer Dupliceren of Uniek rijen; Selecteer Lege rijen (alle cellen zijn leeg); Super Find en Fuzzy Find in veel werkboeken; Willekeurig selecteren ...
  • Exacte kopie Meerdere cellen zonder formule-referentie te wijzigen; Automatisch referenties maken naar meerdere vellen; Voeg kogels toe, Selectievakjes en meer ...
  • extract Text, Tekst toevoegen, verwijderen op positie, Verwijder de spatie; Subtotalen voor paging maken en afdrukken; Converteren tussen cellen Inhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerde sortering per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Volledige functionaliteit 60-daagse gratis proefversie.
kte-tab 201905

Tabblad Office Brengt interface met tabbladen naar Office en maakt uw werk veel eenvoudiger

  • Bewerken en lezen met tabbladen inschakelen 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.
  • Verhoogt uw productiviteit met 50% en verlaagt dagelijks honderden muisklikken voor u!
Officetab onderaan
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.