انتقل إلى المحتوى الرئيسي

كيفية منع حذف محتويات خلية معينة في Excel؟

تتحدث هذه المقالة عن منع حذف محتويات خلية معينة في Excel. يمكنك تحقيق ذلك بالطرق الموجودة في هذه المقالة.

منع حذف محتويات خلية معينة من خلال حماية ورقة العمل
منع حذف محتويات خلية معينة باستخدام التعليمات البرمجية لـ VBA

منع حذف محتويات خلية معينة من خلال حماية ورقة العمل

بشكل افتراضي ، يتم تأمين جميع الخلايا في ورقة العمل. إذا كنت تريد منع حذف محتويات خلية معينة ، وجعل الخلايا الأخرى قابلة للتعديل بعد الحماية ، فالرجاء القيام بما يلي.

1. انقر فوق في الزاوية اليسرى العلوية من ورقة العمل لتحديد ورقة العمل بأكملها. ثم اضغط CTRL + 1 مفاتيح لفتح تنسيق الخلايا صندوق المحادثة.

2. في ظهرت تنسيق الخلايا مربع الحوار ، قم بإلغاء تحديد مقفل الخيار تحت حماية ثم انقر فوق OK زر. انظر لقطة الشاشة:

3. حدد الخلايا التي لا تريد حذف محتوياتها ، اضغط CTRL + 1 لفتح ملف تنسيق الخلايا مربع الحوار مرة أخرى ، تحقق من مقفل الخيار تحت حماية ثم انقر فوق OK .

4. انقر الآن التقيم > حماية ورقة، ثم حدد كلمة المرور وقم بتأكيدها في كلا الملفين حماية ورقة و تأكيد كلمة المرور مربعات الحوار.

الآن ورقة العمل محمية. ولن يتم حذف محتويات الخلية المحددة بعد الآن.

منع حذف محتويات خلية معينة باستخدام التعليمات البرمجية لـ VBA

إلى جانب الطريقتين المذكورتين أعلاه ، يمكنك تشغيل التعليمات البرمجية لـ VBA لمنع حذف محتويات خلية معينة في ورقة العمل. الرجاء القيام بما يلي.

1. افتح ورقة العمل التي تحتوي على محتويات الخلية التي لا تريد حذفها ، وانقر بزر الماوس الأيمن فوق علامة تبويب الورقة ، ثم انقر فوق عرض الرمز من قائمة النقر بزر الماوس الأيمن.

2. انسخ والصق رمز فبا أدناه في نافذة التعليمات البرمجية الخاصة ببرنامج ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

كود فبا: منع حذف محتويات خلية معينة في إكسيل

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

ملاحظة: في الكود ، A1: E17 هو النطاق الذي ستمنعه ​​محتويات الخلية من الحذف. يمكنك تغيير النطاق بناءً على احتياجاتك.

من الآن فصاعدًا ، عندما تحاول حذف محتويات الخلية من النطاق A1: E17 ، ستحصل على ملف Kutools for Excel مربع الحوار كما هو موضح أدناه لقطة الشاشة ، يرجى النقر فوق OK .

مقالات ذات صلة:

أفضل أدوات إنتاجية المكتب

الميزات الشعبية: البحث عن التكرارات أو تمييزها أو تحديدها   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |   جولة بدون صيغة 
سوبر بحث: معايير متعددة VLookup  |   VLookup ذات القيمة المتعددة  |   VLookup عبر أوراق متعددة   |   بحث غامض ....
قائمة منسدلة متقدمة: إنشاء القائمة المنسدلة بسرعة   |  القائمة المنسدلة التابعة   |  قائمة منسدلة متعددة التحديد ....
مدير العمود: إضافة عدد محدد من الأعمدة  |  نقل الأعمدة  |  تبديل حالة رؤية الأعمدة المخفية  |  مقارنة النطاقات والأعمدة 
الميزات المميزة: التركيز على الشبكة   |  عرض تصميم   |   شريط الفورمولا الكبير   |  مدير المصنفات والأوراق   |  مكتبة الموارد (النص السيارات)   |  منتقي التاريخ   |  اجمع أوراق العمل   |  تشفير/فك تشفير الخلايا   |  إرسال رسائل البريد الإلكتروني عن طريق القائمة   |  سوبر تصفية   |   مرشح خاص (تصفية غامق / مائل / يتوسطه خط ...) ...
أفضل 15 مجموعة أدوات:  12 نص الأدوات (إضافة نص, إزالة الأحرف، ...)   |   +50 رسم الأنواع (مخطط جانت، ...)   |   40+ عملي الصيغ (احسب العمر على أساس تاريخ الميلاد، ...)   |   19 إدخال الأدوات (أدخل رمز الاستجابة السريعة, إدراج صورة من المسار، ...)   |   12 تحويل الأدوات (أرقام إلى كلمات, نتيجة تحويل عملة، ...)   |   7 دمج وتقسيم الأدوات (الجمع بين الصفوف المتقدمة, تقسيم الخلايا، ...)   |   ... و اكثر

ارفع مهاراتك في برنامج Excel باستخدام Kutools for Excelوتجربة كفاءة لم يسبق لها مثيل. Kutools for Excel يقدم أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت.  انقر هنا للحصول على الميزة التي تحتاجها أكثر...

علامة تبويب kte 201905

Office Tab يجلب الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
Comments (17)
Rated 5 out of 5 · 1 ratings
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
HJR
HJR
This comment was minimized by the moderator on the site
Just what I was looking for, thanks for the help!
Reply
0
0
finn
finn     HJR
This comment was minimized by the moderator on the site
don't worry always here to help :)
Reply
0
0
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations