Hogyan zárolhatjuk és oldhatjuk fel a megadott cellákat az Excel jelölőnégyzetével?
Ez a cikk arról szól, hogy jelölőnégyzetet használ az Excel meghatározott celláinak zárolásához és feloldásához.
A megadott cellák zárolása és feloldása jelölőnégyzettel a VBA kód használatával
A megadott cellák zárolása és feloldása jelölőnégyzettel a VBA kód használatával
Az alábbi VBA szkript segíthet a megadott cellák tartományának feloldásában vagy zárolásában, amikor a munkalapon bejelöli a jelölőnégyzetet. Kérjük, tegye a következőket.
1. Először meg kell adnia egy nevet annak a cellatartománynak, amelyet le kell zárnia és fel kell oldania egy jelölőnégyzettel.
Itt választom ki az A1: A14 tartományt, írok be egy nevet LockRng be a Név négyzetet, majd nyomja meg a belép kulcs. Lásd a képernyőképet:
2. A munkalap tartalmazza a cellák zárolásához és feloldásához használt jelölőnégyzetet, kattintson a jobb gombbal a Lap fülre, majd kattintson a Kód megtekintése a jobb egérgombbal kattintva.
Megjegyzések: A beillesztéskor a jelölőnégyzetnek ActiveX jelölőnégyzetnek kell lennie.
3. A felbukkanóban Microsoft Visual Basic for Applications ablakba, kérjük, másolja és illessze be az alábbi VBA kódot a Kód ablak.
VBA-kód: A megadott cellák tartományának zárolása vagy feloldása jelölőnégyzettel
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
Megjegyzések: A kódban a Checkbox1 a jelölőnégyzet neve, a LockRng a megadott tartománycella neve. Szükség szerint megváltoztathatja őket.
4. megnyomni a más + Q gombok egyszerre a Microsoft Visual Basic for Applications ablak.
Most tesztelheti a kódot. A jelölőnégyzet bejelölésének megszüntetésekor a Kutools az Excel számára megjelenik a párbeszédpanel, amely azt mondja, hogy a megadott tartomány zárolva van, kattintson a gombra OK gombot.
A jelölőnégyzet bejelölése közben a megadott tartomány összes cellája fel lesz oldva, és a Kutools az Excel számára párbeszédpanel a jobb oldali képernyőkép alatt látható.
Kapcsolódó cikkek:
- Hogyan szűrhetők az adatok az Excel jelölőnégyzete alapján?
- Hogyan lehet elrejteni a jelölőnégyzetet, ha a sor el van rejtve az Excelben?
- Hogyan hozhat létre legördülő listát több jelölőnégyzettel az Excelben?
- Hogyan lehet kiemelni a cellát vagy sort az Excel jelölőnégyzetével?
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!