Jak zamknout a odemknout určené buňky pomocí zaškrtávacího políčka v aplikaci Excel?
Tento článek hovoří o použití zaškrtávacího políčka k uzamčení a odemknutí řady určených buněk v aplikaci Excel.
Zamkněte a odemkněte určené buňky pomocí zaškrtávacího políčka pomocí kódu VBA
Zamkněte a odemkněte určené buňky pomocí zaškrtávacího políčka pomocí kódu VBA
Níže uvedený skript VBA vám pomůže odemknout nebo zamknout řadu zadaných buněk při zaškrtnutí nebo zrušení zaškrtnutí políčka v listu. Postupujte prosím následovně.
1. Nejprve musíte pomocí zaškrtávacího políčka určit název rozsahu buněk, které potřebujete zamknout a odemknout.
Zde vyberu rozsah A1: A14, zadejte jméno LockRng do Příjmení okénko a poté stiskněte vstoupit klíč. Viz snímek obrazovky:
2. V listu obsahuje zaškrtávací políčko, které použijete k zamykání a odemykání buněk, klikněte pravým tlačítkem na kartu List a poté klikněte na Zobrazit kód z nabídky pravého tlačítka myši.
Poznámka: Zaškrtávací políčko by mělo být při vkládání zaškrtávací políčko ActiveX.
3. Ve vyskakovacím okně Microsoft Visual Basic pro aplikace v okně zkopírujte a vložte níže uvedený kód VBA do Kód okno.
Kód VBA: Zamkněte nebo odemkněte řadu specifikovaných buněk pomocí zaškrtávacího políčka
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
Poznámka: V kódu je Checkbox1 název zaškrtávacího políčka, LockRng je název zadané buňky rozsahu. Můžete je změnit podle potřeby.
4. zmáčkni Další + Q současně zavřete Microsoft Visual Basic pro aplikace okno.
Nyní můžete kód otestovat. Když zrušíte zaškrtnutí políčka, a Kutools pro Excel Zobrazí se dialogové okno s oznámením, že zadaný rozsah byl uzamčen, klikněte na ikonu OK .
Při zaškrtnutí tohoto políčka se odemknou všechny buňky ve specifikovaném rozsahu a dostanete a Kutools pro Excel dialogové okno, jak je uvedeno níže, snímek obrazovky vpravo.
Související články:
- Jak filtrovat data na základě zaškrtávacího políčka v aplikaci Excel?
- Jak skrýt zaškrtávací políčko, když je řádek skrytý v aplikaci Excel?
- Jak vytvořit rozevírací seznam s více zaškrtávacími políčky v aplikaci Excel?
- Jak zvýraznit buňku nebo řádek pomocí zaškrtávacího políčka v aplikaci Excel?
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!