Hogyan zárolhatjuk és előzetesen védhetjük meg a nem üres cellákat az Excelben?
Tegyük fel, hogy van egy munkalapom, amely néhány üres cellát tölt be az adattartományon belül. Most szeretnék minden adatot zárolni és védeni, és az üres cellákat zárolatlanul hagyni, hogy új értéket adjak meg. Hogyan tudná csak a lehető leghamarabb bezárni és megvédeni a nem üres cellákat az Excelben?
Zárja le és védje meg az összes nem üres cellát a kiválasztott tartományban a Védőlappal
Zárja le és védje meg a használt tartomány összes nem üres celláját VBA kóddal
Zárja le és védje meg az összes nem üres cellát a kiválasztott tartományban a Védőlappal
Normál esetben ezt a munkát az Excelben a következő módszerrel fejezheti be lépésről lépésre:
1. Válassza ki azt a cellatartományt, amelyet zárolni és megvédeni szeretné az adatcellákat, majd kattintson a gombra Kezdőlap > Keresés és kiválasztás > Ugrás a különlegességre, lásd a képernyőképet:
2. Az Ugrás a különlegességre párbeszédpanelen válassza ki Üresek tól választ szakasz, lásd a képernyőképet:
3. Ezután kattintson OK gombot, és az összes üres cellát kijelölte egyszerre, majd nyomja meg a gombot Ctrl + 1 billentyűk megnyitásához Cellák formázása párbeszédpanel alatt Védelem fülön, törölje a jelet a Zárt opció, lásd a képernyőképet:
4. Kattints OK, Majd kattintson a Felülvizsgálat > Védje a lapot, majd írja be és erősítse meg a jelszót szükség szerint, lásd a képernyőképet:
5. Kattints OK a párbeszédpanelek bezárásához, és most minden adatcellát védett és csak az üres cellákat hagyja védelem nélkül.
Zárja le és védje meg a használt tartomány összes nem üres celláját VBA kóddal
A fenti módszer több lépésből áll, a lehető leggyorsabb elérés érdekében a következő VBA-kód tehet szívességet, kérjük, tegye a következőket:
1. Tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.
2. Ezután kattintson betétlap > Modulok, és illessze be a következő kódot a Modulok Ablak.
VBA kód: Zárolja le és védje meg a munkalap összes nem üres celláját
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. Ezután nyomja meg a gombot F5 kulcs a kód futtatásához, csak a nem üres cellák vannak egyszerre védve a használt tartományban.
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!