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

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

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

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

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

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

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

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

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

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

اكتشف سحر Excel مع Kutools AI

• التنفيذ الذكي: قم بعمليات الخلية، وتحليل البيانات، وإنشاء المخططات - كل ذلك يتم من خلال أوامر بسيطة.
• الصيغ المخصصة: قم بإنشاء صيغ مصممة خصيصًا لتسهيل سير عملك.
• برمجة VBA: كتابة وتطبيق أكواد VBA بسهولة.
• تفسير الصيغ: فهم الصيغ المعقدة بسهولة.
• ترجمة النصوص: تجاوز الحواجز اللغوية داخل جداول البيانات الخاصة بك.

عزز قدرات Excel لديك باستخدام أدوات تعمل بالذكاء الاصطناعي. قم بالتنزيل الآن وعش تجربة الكفاءة كما لم يحدث من قبل!

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

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

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

2. انسخ والصق كود VBA أدناه في نافذة الكود الخاصة بنافذة Microsoft Visual Basic for Applications.

كود VBA: منع حذف محتويات الخلايا المحددة في 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

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

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

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

• كيفية منع ورقة عمل معينة من الحذف في Excel؟
• كيفية منع تحديد أوراق عمل متعددة في Excel؟