Hogyan lehet zárolni vagy megvédeni a cellákat az adatbevitel vagy az Excel bevitele után?
Tegyük fel, hogy van munkalapja, és csak az üres cellák egy bizonyos tartományára van szükség adatbevitelre, és miután befejezte az adatok bevitelét, a cellákat automatikusan zárolni kell a változások újbóli megakadályozása érdekében. Hogyan lehet elérni? Ez a cikk segíthet.
Zárolja vagy védje a cellákat az adatbevitel vagy a VBA kóddal történő bevitel után
Zárolja vagy védje a cellákat az adatbevitel vagy a VBA kóddal történő bevitel után
Például az üres cellák bizonyos tartománya A1: F8. Kérjük, tegye a következőket a cellák zárolásához az Excel bevitele után.
1. Kérjük, először oldja fel a tartomány feloldását, válassza ki a cellákat, és kattintson a jobb gombbal, majd válassza a lehetőséget Cellák formázása a jobb egérgombbal a menüben, és a Cellák formázása párbeszédpanel, törölje a Zárt doboz a védelem fülre, és végül a OK gomb. Lásd a képernyőképet:
2. kettyenés Felülvizsgálat > Védje a lapot. És adjon meg egy jelszót a munkalap védelméhez.
3. Kattintson a jobb gombbal a lap fülre, és válassza a lehetőséget Kód megtekintése a jobb egérgombbal kattintva. Ezután másolja és illessze be az alábbi VBA kódot a Kód ablakba. Lásd a képernyőképet:
VBA kód: Zárolja vagy védi a cellákat az adatbevitel vagy a bevitel után
Dim mRg As Range
Dim mStr As String
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Range("A1:F8"), Target) Is Nothing Then
Set mRg = Target.Item(1)
mStr = mRg.Value
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim xRg As Range
On Error Resume Next
Set xRg = Intersect(Range("A1:F8"), Target)
If xRg Is Nothing Then Exit Sub
Target.Worksheet.Unprotect Password:="123"
If xRg.Value <> mStr Then xRg.Locked = True
Target.Worksheet.Protect Password:="123"
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Range("A1:F8"), Target) Is Nothing Then
Set mRg = Target.Item(1)
mStr = mRg.Value
End If
End Sub
Megjegyzések: A kódban az „A1: F8” az adatok beviteléhez szükséges tartomány; és a „123” a védett munkalap jelszava. Kérjük, változtassa meg őket szükség szerint.
4. nyomja meg más + Q gombok egyszerre a Microsoft Visual Basic for Applications ablak.
Miután befejezte az adatok bevitelét az A1: F8 tartomány celláiba, automatikusan zárolódnak. És akkor kap egy gyors párbeszédpanelt, ha megpróbálja megváltoztatni a tartomány bármely cellatartalmát. Lásd a képernyőképet:
Kapcsolódó cikkek:
- Hogyan zárolhatjuk az összes cellahivatkozást a képletekben egyszerre az Excelben?
- Hogyan zárolhatjuk vagy feloldhatjuk a cellákat az Excel másik cellájának értékei alapján?
- Hogyan lehet rögzíteni a képet / képet az Excel cellájában vagy belsejében?
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!