Przejdź do głównej zawartości

Jak zapobiec usunięciu określonej zawartości komórki w programie Excel?

W tym artykule jest mowa o zapobieganiu usuwaniu określonej zawartości komórek w programie Excel. Możesz to osiągnąć za pomocą metod opisanych w tym artykule.

Zapobiegaj usunięciu określonej zawartości komórek, chroniąc arkusz
Zapobiegaj usunięciu określonej zawartości komórki za pomocą kodu VBA

Zapobiegaj usunięciu określonej zawartości komórek, chroniąc arkusz

Domyślnie wszystkie komórki w arkuszu są zablokowane. Jeśli chcesz zapobiec usunięciu określonej zawartości komórki i udostępnić inne komórki do edycji po zabezpieczeniu, wykonaj następujące czynności.

1. Kliknij przycisk w lewym górnym rogu arkusza roboczego, aby zaznaczyć cały arkusz. Następnie wciśnij Ctrl + 1 klawisze, aby otworzyć Formatowanie komórek okno dialogowe.

2. W wyskakującym okienku Formatowanie komórek W oknie dialogowym usuń zaznaczenie opcji Zamknięty opcja pod ochrona kartę, a następnie kliknij przycisk OK przycisk. Zobacz zrzut ekranu:

3. Wybierz komórki, których nie chcesz usuwać zawartości, naciśnij Ctrl + 1 klawisze, aby otworzyć plik Formatowanie komórek ponownie w oknie dialogowym, zaznacz Zamknięty opcja pod ochrona kartę, a następnie kliknij przycisk OK przycisk.

4. Teraz kliknij Review > Chroń arkusz, a następnie określ i potwierdź swoje hasło w obu plikach Chroń arkusz i Powtórz hasło okna dialogowe.

Teraz arkusz roboczy jest chroniony. A określona zawartość komórki nie zostanie już usunięta.

Zapobiegaj usunięciu określonej zawartości komórki za pomocą kodu VBA

Oprócz powyższych dwóch metod możesz uruchomić kod VBA, aby zapobiec usunięciu określonej zawartości komórki w arkuszu. Wykonaj następujące czynności.

1. Otwórz arkusz zawierający zawartość komórek, których nie chcesz usunąć, kliknij prawym przyciskiem myszy kartę Arkusz, a następnie kliknij Wyświetl kod z menu po kliknięciu prawym przyciskiem myszy.

2. Skopiuj i wklej poniższy kod VBA do okna Code pliku Microsoft Visual Basic for Applications okno.

Kod VBA: Zapobiegaj usunięciu określonej zawartości komórki w programie Excel

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("A1:E7")) Is Nothing Then Exit Sub
    On Error GoTo ExitPoint
    Application.EnableEvents = False
    If Not IsDate(Target(1)) Then
        Application.Undo
        MsgBox " You can't delete cell contents from this range " _
        , vbCritical, "Kutools for Excel"
    End If
ExitPoint:
    Application.EnableEvents = True
End Sub

Note: W kodzie A1: E17 to zakres, w którym zawartość komórki nie zostanie usunięta. Możesz zmienić zakres w zależności od potrzeb.

Odtąd, próbując usunąć zawartość komórki z zakresu A1: E17, otrzymasz plik Kutools dla programu Excel okno dialogowe, jak pokazano na poniższym zrzucie ekranu, kliknij OK przycisk.

Powiązane artykuły:

Najlepsze narzędzia biurowe

🤖 Pomocnik AI Kutools: Zrewolucjonizuj analizę danych w oparciu o: Inteligentne wykonanie   |  Wygeneruj kod  |  Twórz niestandardowe formuły  |  Analizuj dane i generuj wykresy  |  Wywołaj funkcje Kutools...
Popularne funkcje: Znajdź, wyróżnij lub zidentyfikuj duplikaty   |  Usuń puste wiersze   |  Łącz kolumny lub komórki bez utraty danych   |   Okrągły bez wzoru ...
Super wyszukiwanie: Wiele kryteriów VLookup  |   Wiele wartości VLookup  |   Przeglądanie pionowe na wielu arkuszach   |   Wyszukiwanie rozmyte ....
Zaawansowana lista rozwijana: Szybko twórz listę rozwijaną   |  Zależna lista rozwijana   |  Lista rozwijana wielokrotnego wyboru ....
Menedżer kolumn: Dodaj określoną liczbę kolumn  |  Przesuń kolumny  |  Przełącz stan widoczności ukrytych kolumn  |  Porównaj zakresy i kolumny ...
Polecane funkcje: Fokus siatki   |  Widok projektu   |   Duży pasek formuły   |  Menedżer skoroszytów i arkuszy   |  Biblioteka zasobów (Automatyczny tekst)   |  Selektor dat   |  Połącz arkusze   |  Szyfruj/odszyfruj komórki   |  Wysyłaj e-maile według listy   |  Super filtr   |   Specjalny filtr (filtruj pogrubienie/kursywa/przekreślenie...) ...
15 najlepszych zestawów narzędzi:  12 Tekst Tools (Dodaj tekst, Usuń znaki, ...)   |   50 + Wykres rodzaje (Wykres Gantta, ...)   |   40+ Praktyczne Wzory (Oblicz wiek na podstawie urodzin, ...)   |   19 Wprowadzenie Tools (Wstaw kod QR, Wstaw obraz ze ścieżki, ...)   |   12 Konwersja Tools (Liczby na słowa, Przeliczanie walut, ...)   |   7 Połącz i podziel Tools (Zaawansowane wiersze łączenia, Podział komórki, ...)   |   ... i więcej

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...

Opis

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!
Comments (18)
Rated 5 out of 5 · 1 ratings
Sabrina
Sabrina
This comment was minimized by the moderator on the site
Hi,

This is exactly what I was looking for, but it doesn't work for me...
This says: "End Sub expected"

Can you help me ?

Thanks :)
Reply
0
0
Andres S
Andres S
This comment was minimized by the moderator on the site
This is great. I was wondering if this was an option and sure enough it was. Thank you for the very easy instructions.

Andres S.
Reply
0
0
Rated 5 out of 5
Gelu
Gelu
This comment was minimized by the moderator on the site
No, I meant NOT to allow deletion (without protecting the wks or wkb).

It is nice the above works at Wks level.

If there is something to make it work at wkb level it would be even better (I have many sheets)

G
Reply
Report
0
0
Gelu
Gelu
This comment was minimized by the moderator on the site
Is it possible to do something similar at workbook level?

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1:M7000")) Is Nothing Then Exit Sub
On Error GoTo ExitPoint
Application.EnableEvents = False
If Not IsDate(Target(1)) Then
Application.Undo
MsgBox " You can't delete cell contents from this range " _
, vbCritical, "Kutools for Excel"
End If
ExitPoint:
Application.EnableEvents = True
End Sub
Reply
0
0
crystal
crystal     Gelu
This comment was minimized by the moderator on the site
Hi Gelu，
Do you mean to prevent the range "A1:M7000" from being deleted in all worksheets of the current workbook?
Reply
Report
0
0
Oussama Abou faraj
Oussama Abou faraj
This comment was minimized by the moderator on the site
Thank you for the valuable information.
Regarding the below VBA:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1:E7")) Is Nothing Then Exit Sub
On Error GoTo ExitPoint
Application.EnableEvents = False
If Not IsDate(Target(1)) Then
Application.Undo
MsgBox " You can't delete cell contents from this range " _
, vbCritical, "Kutools for Excel"
End If
ExitPoint:
Application.EnableEvents = True
End Sub

The above will allow execution within a certain specified range. It does not allow the addition of new rows. Is there a way that new rows can be added yet maintaining the same protection.
thanks and regards
Reply
0
0
crystal
crystal     Oussama Abou faraj
This comment was minimized by the moderator on the site
Hi Oussama Abou faraj,
After trying with various methods, I can't seem to get this to work. After adding a new row, the area will be locked Immediately and the newly inserted cell cannot be edited.
Reply
Report
0
0
David
David
This comment was minimized by the moderator on the site
Hello, this code works well, however deleting row/collumn will bypass it. Is there any workaround to this? Cheers, David.
Reply
0
0
crystal
crystal     David
This comment was minimized by the moderator on the site
Hi David,
Which Excel version are you using? I have tried the code, entire rows and columns in the specified range can't be deleted after applying the code.
Reply
Report
0
0
Ahsan
Ahsan
This comment was minimized by the moderator on the site
"Prevent specific cell contents from being deleted by protecting the worksheet"I did as per your guideline, still cell information could be deleted i.e. protection does not work. Any solution.
Reply
0
0
crystal
crystal     Ahsan
This comment was minimized by the moderator on the site
Hi Ahsan,
Did you apply the VBA method?
You need to add the VBA to the worksheet code window. Supposing the cell contents you want to protect are in Sheet9, please right click the sheet tab and select View Code from the context menu, and then directly copy the code into the code window as the below image shown.
View Attachments (1 / 5)
Reply
Report
0
0
neil
neil
This comment was minimized by the moderator on the site
VBA Code - Great Tip thanks

Is there a VBA code to Prevent specific cell contents from being modified AND deleted in Excel?
Usual protecting sheet does not work for me as I lose the ability to sort data?

Thanks in advance - Neil
Reply
Report
0
0
George M.
George M.
This comment was minimized by the moderator on the site
If you don't wan to look your sheet or write VBA code, then I use a simple technique that prevents from any override except for when they use the "DELETE" key (backspace won't be allowed, but Delete is hard to stop). What I did is added a data validation with the following settings:

1) Allow --> List

2) uncheck "Ignore blank" and "in-cell dropdown"

3) In the source enter two double quotes (i.e., "")

4) In Error Alert tab, check "Show error alter after invalid data is entered", select "Stop" for style, then enter an error message and description (e.g., Don't override)
Reply
0
0
crystal
crystal     George M.
This comment was minimized by the moderator on the site
Hi,
Thanks for sharing.
Reply
Report
0
0
Si
Si
This comment was minimized by the moderator on the site
Hi there,

I just tried the VBA script and while it works really well in most situations. However it doesn't work when you tab from an editable cell into the non-editable column/cell. The problem arises in that it throws the error message up - as commanded - but it doesn't keep the data that was entered in the original, editable cell which was tabbed from.

Would you have an amendment to the script so that it accepts the data in the editable cell when you tab into un-editable?

Cheers
Reply
0
0
crystal
crystal     Si
This comment was minimized by the moderator on the site
Good day,
I tried as you mentioned in your case, but no error throws. Would you provide a screenshot of your case or tell me your Office version?
Thanks for your comment.
Reply
Report
0
0
There are no comments posted here yet
Load More
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations