Bỏ qua nội dung chính

Làm cách nào để ngăn nội dung ô cụ thể bị xóa trong Excel?

Bài viết này nói về việc ngăn nội dung ô cụ thể bị xóa trong Excel. Bạn có thể đạt được nó với các phương pháp trong bài viết này.

Ngăn nội dung ô cụ thể bị xóa bằng cách bảo vệ trang tính
Ngăn nội dung ô cụ thể bị xóa bằng cách sử dụng mã VBA

Ngăn nội dung ô cụ thể bị xóa bằng cách bảo vệ trang tính

Theo mặc định, tất cả các ô trong trang tính đều bị khóa. Nếu bạn muốn ngăn nội dung ô cụ thể bị xóa và làm cho các ô khác có thể chỉnh sửa sau khi bảo vệ, hãy làm như sau.

1. Nhấp vào ở góc trên cùng bên trái của trang tính để chọn toàn bộ trang tính. Sau đó nhấn Ctrl + 1 phím để mở Format Cells hộp thoại.

2. Trong cửa sổ bật lên Format Cells hộp thoại, bỏ chọn Đã bị khoá tùy chọn theo Sự bảo vệ tab, rồi nhấp vào OK cái nút. Xem ảnh chụp màn hình:

3. Chọn các ô bạn không muốn nội dung bị xóa, bấm Ctrl + 1 chìa khóa để mở Format Cells hộp thoại một lần nữa, kiểm tra Đã bị khoá tùy chọn theo Sự bảo vệ tab, rồi nhấp vào OK .

4. Bây giờ hãy nhấp vào Đánh giá > Bảo vệ Sheet, sau đó chỉ định và xác nhận mật khẩu của bạn trong cả Bảo vệ Sheet và Xác nhận mật khẩu những hộp thoại.

Bây giờ trang tính đã được bảo vệ. Và nội dung ô đã chỉ định sẽ không bị xóa nữa.

Ngăn nội dung ô cụ thể bị xóa bằng cách sử dụng mã VBA

Bên cạnh hai phương pháp trên, bạn có thể chạy mã VBA để ngăn nội dung ô cụ thể bị xóa trong trang tính. Hãy làm như sau.

1. Mở trang tính có chứa nội dung ô bạn không muốn bị xóa, bấm chuột phải vào Tab Trang tính, sau đó bấm Mã Chế độ xem từ menu chuột phải.

2. Sao chép và dán mã VBA bên dưới vào cửa sổ Mã của Microsoft Visual Basic cho các ứng dụng cửa sổ.

Mã VBA: Ngăn nội dung ô cụ thể bị xóa trong 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

Chú thích: Trong mã, A1: E17 là phạm vi mà nội dung ô bạn sẽ ngăn bị xóa. Bạn có thể thay đổi phạm vi dựa trên nhu cầu của mình.

Từ bây giờ, khi bạn cố gắng xóa nội dung ô khỏi phạm vi A1: E17, bạn sẽ nhận được Kutools cho Excel hộp thoại như hình minh họa bên dưới, vui lòng nhấp vào OK .

Các bài liên quan:

Công cụ năng suất văn phòng tốt nhất

🤖 Trợ lý AI của Kutools: Cách mạng hóa việc phân tích dữ liệu dựa trên: Thực thi thông minh   |  Tạo mã  |  Tạo công thức tùy chỉnh  |  Phân tích dữ liệu và tạo biểu đồ  |  Gọi các hàm Kutools...
Các tính năng phổ biến: Tìm, đánh dấu hoặc xác định các bản sao   |  Xóa hàng trống   |  Kết hợp các cột hoặc ô mà không làm mất dữ liệu   |   Vòng không có công thức hữu ích. Cảm ơn !
Siêu tra cứu: Nhiều tiêu chí VLookup  |   VLookup Nhiều Giá Trị  |   VLookup trên nhiều trang tính   |   Tra cứu mờ ....
Danh sách thả xuống nâng cao: Tạo nhanh danh sách thả xuống   |  Danh sách thả xuống phụ thuộc   |  Danh sách thả xuống nhiều lựa chọn ....
Trình quản lý cột: Thêm một số cột cụ thể  |  Di chuyển cột  |  Chuyển đổi trạng thái hiển thị của các cột ẩn  |  So sánh dãy và cột hữu ích. Cảm ơn !
Các tính năng nổi bật: Tiêu điểm lưới   |  Chế độ xem thiết kế   |   Thanh công thức lớn   |  Trình quản lý sổ làm việc & trang tính   |  Thư viện tài nguyên (Văn bản tự động)   |  Bảng chọn ngày   |  Kết hợp các bảng tính   |  Mã hóa/Giải mã ô   |  Gửi email theo danh sách   |  Siêu lọc   |   Bộ lọc đặc biệt (lọc in đậm/nghiêng/gạch ngang...) ...
15 bộ công cụ hàng đầu:  12 bản văn CÔNG CỤ (thêm văn bản, Xóa ký tự,...)   |   50 + Biểu đồ Các loại (Biểu đồ Gantt,...)   |   40+ Thực tế Công thức (Tính tuổi dựa trên ngày sinh,...)   |   19 chèn CÔNG CỤ (Chèn mã QR, Chèn ảnh từ đường dẫn,...)   |   12 Chuyển đổi CÔNG CỤ (Số thành từ, Chuyển đổi tiền tệ,...)   |   7 Hợp nhất & Tách CÔNG CỤ (Các hàng kết hợp nâng cao, Chia ô,...)   |   ... và nhiều hơn nữa

Nâng cao kỹ năng Excel của bạn với Kutools for Excel và trải nghiệm hiệu quả hơn bao giờ hết. Kutools for Excel cung cấp hơn 300 tính năng nâng cao để tăng năng suất và tiết kiệm thời gian.  Bấm vào đây để có được tính năng bạn cần nhất...

Mô tả

Tab Office mang lại giao diện Tab cho Office và giúp công việc của bạn trở nên dễ dàng hơn nhiều

  • Cho phép chỉnh sửa và đọc theo thẻ trong Word, Excel, PowerPoint, Publisher, Access, Visio và Project.
  • Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới.
  • Tăng 50% năng suất của bạn và giảm hàng trăm cú nhấp chuột cho bạn mỗi ngày!
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