Jak zamknout nebo chránit buňky po zadání dat nebo vstupu v aplikaci Excel?
Předpokládejme, že máte list a jen určitý rozsah prázdných buněk vyžaduje zadávání dat, a po dokončení zadávání dat je třeba buňky automaticky uzamknout, aby se zabránilo dalším změnám. Jak můžete toho dosáhnout? Tento článek vám může pomoci.
Zamkněte nebo ochraňte buňky po zadání nebo vstupu dat pomocí kódu VBA
Zamkněte nebo ochraňte buňky po zadání nebo vstupu dat pomocí kódu VBA
Například určitý rozsah prázdných buněk je A1: F8. Po uzamčení těchto buněk po zadání dat v aplikaci Excel postupujte takto.
1. Nejprve prosím odemkněte tento rozsah, vyberte buňky a klikněte pravým tlačítkem a poté vyberte Formát buněk v nabídce pravým tlačítkem a v nabídce Formát buněk zrušte zaškrtnutí políčka Zamčený rámeček pod ochrana kartu a nakonec klikněte na OK knoflík. Viz screenshot:
2. cvaknutí přezkoumání > Chraňte plech. A určete heslo k ochraně tohoto listu.
3. Klikněte pravým tlačítkem na kartu listu a vyberte Zobrazit kód z nabídky pravého tlačítka myši. Poté zkopírujte a vložte níže uvedený kód VBA do okna Kód. Viz screenshot:
Kód VBA: Zamkněte nebo ochraňte buňky po zadání nebo vstupu dat
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
Poznámka: V kódu je „A1: F8“ rozsah, který potřebujete k zadání dat; a „123“ je heslo tohoto chráněného listu. Změňte je prosím podle potřeby.
4. lis Další + Q současně zavřete Microsoft Visual Basic pro aplikace okno.
Po dokončení zadávání dat do buněk rozsahu A1: F8 se automaticky uzamknou. A pokud se pokusíte změnit jakýkoli obsah buňky tohoto rozsahu, zobrazí se dialogové okno s výzvou. Viz screenshot:
Související články:
- Jak uzamknout všechny odkazy na buňky ve vzorcích najednou v aplikaci Excel?
- Jak zamknout nebo odemknout buňky na základě hodnot v jiné buňce v aplikaci Excel?
- Jak zamknout obrázek / obrázek do nebo uvnitř buňky v aplikaci Excel?
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!