Jak zamknout a chránit neprázdné buňky v aplikaci Excel?
Předpokládejme, že mám list, který naplní některé prázdné buňky v rozsahu dat, teď chci zamknout a chránit všechny datové buňky a nechat prázdné buňky odemčené, abych mohl zadat nějakou novou hodnotu. Jak byste mohli neprázdné buňky uzamknout a chránit jen tak rychle, jak to můžete v aplikaci Excel?
Zamkněte a ochraňte všechny neprázdné buňky ve vybraném rozsahu pomocí Protect Sheet
Uzamkněte a ochraňte všechny neprázdné buňky v použitém rozsahu pomocí kódu VBA
Zamkněte a ochraňte všechny neprázdné buňky ve vybraném rozsahu pomocí Protect Sheet
Normálně můžete tuto úlohu dokončit v aplikaci Excel následující metodou krok za krokem:
1. Vyberte oblast buněk, kterou chcete zamknout a chránit datové buňky, a poté klikněte Domů > Najít a vybrat > Přejít na speciální, viz screenshot:
2. V Přejít na speciální dialogové okno vyberte Blanks z vybrat sekce, viz screenshot:
3. Pak klikněte na tlačítko OK a všechny prázdné buňky byly vybrány najednou a poté stiskněte Ctrl + 1 klávesy pro otevření Formát buněk v dialogovém okně pod Ochrana , zrušte zaškrtnutí políčka Zamčený možnost, viz screenshot:
4, klikněte OK, A pak klepněte na tlačítko přezkoumání > Chraňte plech, poté podle potřeby zadejte a potvrďte heslo, viz screenshot:
5, klikněte OK zavřete dialogy a nyní jsou všechny datové buňky chráněny a prázdné buňky necháte pouze nechráněné.
Uzamkněte a ochraňte všechny neprázdné buňky v použitém rozsahu pomocí kódu VBA
Výše uvedená metoda má několik kroků, abyste toho dosáhli co nejrychleji, následující kód VBA vám může udělat laskavost, udělejte to takto:
1. Podržte ALT + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.
2. Pak klikněte na tlačítko Vložit > Modula vložte následující kód do Modul Okno.
Kód VBA: Zamkněte a ochraňte všechny neprázdné buňky v listu
Sub UnlockEmptyCells()
'Updateby Extendoffice
Application.ScreenUpdating = False
Cells.Locked = True
Selection.SpecialCells(xlCellTypeBlanks).Locked = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Application.ScreenUpdating = True
End Sub
3. A pak stiskněte F5 klíč ke spuštění tohoto kódu, jsou v použitém rozsahu chráněny pouze neprázdné buňky.
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!