Jak zamknout nebo odemknout buňky na základě hodnot v jiné buňce v aplikaci Excel?
V některých případech možná budete muset zamknout nebo odemknout buňky na základě hodnot v jiné buňce. Například potřebujete odemknout rozsah B1: B4, pokud buňka A1 obsahuje hodnotu „Přijímat“; a být uzamčen, pokud buňka A1 obsahuje hodnotu „Odmítnutí“. Jak můžete toho dosáhnout? Tento článek vám může pomoci.
Zamkněte nebo odemkněte buňky na základě hodnot v jiné buňce pomocí kódu VBA
Zamkněte nebo odemkněte buňky na základě hodnot v jiné buňce pomocí kódu VBA
Následující kód VBA vám pomůže zamknout nebo odemknout buňky na základě hodnoty v jiné buňce v aplikaci Excel.
1. Klikněte pravým tlačítkem na záložku listu (list s buňkami, které potřebujete zamknout nebo odemknout na základě hodnot v jiné buňce) a klikněte Zobrazit kód z nabídky pravého tlačítka myši.
2. Poté zkopírujte a vložte následující kód VBA do okna Kód.
Kód VBA: Zamkněte nebo odemkněte buňky na základě hodnot v jiné buňce
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("A1") = "Accepting" Then
Range("B1:B4").Locked = False
ElseIf Range("A1") = "Refusing" Then
Range("B1:B4").Locked = True
End If
End Sub
3. zmáčkni Další + Q současně zavřete Microsoft Visual Basic pro aplikace okno.
Od této chvíle, když do buňky A1 zadáte hodnotu „Přijímám“, rozsah B1: B4 se odemkne.
Při zadávání hodnoty „Odmítnutí“ do buňky A1 se zadaný rozsah B1: B4 automaticky uzamkne.
Související články:
- Jak uzamknout všechny odkazy na buňky ve vzorcích najednou v aplikaci Excel?
- Jak zamknout nebo chránit buňky po zadání dat nebo vstupu v aplikaci Excel?
- Jak zamknout obrázek / obrázek do nebo uvnitř buňky v aplikaci Excel?
Nejlepší kancelářské nástroje produktivity
Kutools pro Excel řeší většinu vašich problémů a zvyšuje vaši produktivitu o 80%
- Opakované použití: Rychle vložte složité vzorce, grafy a cokoli, co jste dříve používali; Šifrovat buňky s heslem; Vytvořte seznam adresátů a posílat e-maily ...
- Super Formula Bar (snadno upravit více řádků textu a vzorce); Rozložení pro čtení (snadno číst a upravovat velké množství buněk); Vložit do filtrovaného rozsahu...
- Sloučit buňky / řádky / sloupce bez ztráty dat; Rozdělit obsah buněk; Zkombinujte duplicitní řádky / sloupce... Zabraňte duplicitním buňkám; Porovnat rozsahy...
- Vyberte možnost Duplikovat nebo Jedinečný Řádky; Vyberte prázdné řádky (všechny buňky jsou prázdné); Super hledání a fuzzy hledání v mnoha sešitech; Náhodný výběr ...
- Přesná kopie Více buněk beze změny odkazu na vzorec; Automaticky vytvářet reference do více listů; Vložte odrážky, Zaškrtávací políčka a další ...
- Extrahujte text, Přidat text, Odebrat podle pozice, Odebrat mezeru; Vytváření a tisk mezisoučtů stránkování; Převod mezi obsahem buněk a komentáři...
- Super filtr (uložit a použít schémata filtrů na jiné listy); Rozšířené řazení podle měsíce / týdne / dne, frekvence a dalších; Speciální filtr tučnou kurzívou ...
- Kombinujte sešity a pracovní listy; Sloučit tabulky na základě klíčových sloupců; Rozdělte data do více listů; Dávkový převod xls, xlsx a PDF...
- Více než 300 výkonných funkcí. Podporuje Office / Excel 2007-2021 a 365. Podporuje všechny jazyky. Snadné nasazení ve vašem podniku nebo organizaci. Plné funkce 30denní bezplatná zkušební verze. 60denní záruka vrácení peněz.

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!











































