Jak zablokować lub chronić komórki po wprowadzeniu lub wprowadzeniu danych w programie Excel?
Przypuśćmy, że masz arkusz roboczy i tylko pewien zakres pustych komórek wymaga wprowadzenia danych, a po zakończeniu wprowadzania danych musisz automatycznie zablokować komórki, aby ponownie zapobiec zmianom. Jak możesz to osiągnąć? Ten artykuł może ci pomóc.
Zablokuj lub chroń komórki po wprowadzeniu danych lub wprowadzeniu kodu VBA
Zablokuj lub chroń komórki po wprowadzeniu danych lub wprowadzeniu kodu VBA
Na przykład pewien zakres pustych komórek to A1: F8. Wykonaj następujące czynności, aby zablokować te komórki po wprowadzeniu danych w programie Excel.
1. Najpierw odblokuj ten zakres, zaznacz komórki i kliknij prawym przyciskiem myszy, a następnie wybierz Formatowanie komórek w menu prawym przyciskiem myszy i w Formatowanie komórek okno dialogowe, usuwając zaznaczenie Zamknięty pole pod ochrona i na koniec klikając OK przycisk. Zobacz zrzut ekranu:
2. kliknij Review > Chroń arkusz. I określ hasło, aby chronić ten arkusz.
3. Kliknij prawym przyciskiem myszy kartę arkusza, wybierz Wyświetl kod z menu po kliknięciu prawym przyciskiem myszy. Następnie skopiuj i wklej poniższy kod VBA do okna Code. Zobacz zrzut ekranu:
Kod VBA: blokuj lub chroń komórki po wprowadzeniu lub wprowadzeniu danych
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
Note: W kodzie „A1: F8” to zakres, w którym należy wprowadzić dane; a „123” to hasło tego chronionego arkusza. Zmień je według potrzeb.
4. naciśnij inny + Q klawisze jednocześnie, aby zamknąć Microsoft Visual Basic for Applications okno.
Po zakończeniu wprowadzania danych do komórek z zakresu A1: F8 zostaną one automatycznie zablokowane. Jeśli spróbujesz zmienić zawartość dowolnej komórki w tym zakresie, pojawi się okno dialogowe z monitem. Zobacz zrzut ekranu:
Powiązane artykuły:
- Jak zablokować wszystkie odwołania do komórek w formułach jednocześnie w programie Excel?
- Jak zablokować lub odblokować komórki na podstawie wartości w innej komórce w programie Excel?
- Jak zablokować obraz / obraz w komórce lub wewnątrz komórki w programie Excel?
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!