كيف يمكنك منع حذف محتويات خلايا معيّنة في Excel؟
تتناول هذه المقالة كيفية منع حذف محتويات خلايا معيّنة في Excel، ويمكنك تحقيق ذلك باتباع الطرق الموضحة فيها.
منع حذف محتويات خلايا معيّنة عن طريق حماية ورقة العمل
منع حذف محتويات خلايا معيّنة باستخدام كود VBA
منع حذف محتويات خلايا معيّنة عن طريق حماية ورقة العمل
بشكل افتراضي، تكون جميع خلايا ورقة العمل مقفلة. إذا كنت ترغب في منع حذف محتويات خلايا معيّنة مع السماح بتحرير الخلايا الأخرى بعد تطبيق الحماية، فاتبع الخطوات التالية:
1. انقر على
الزر الموجود في الزاوية العلوية اليسرى من ورقة العمل لتحديد الورقة بأكملها، ثم اضغط علىCtrl+1 لفتح مربع الحوارتعيين تنسيق الخلية.
2. في مربع الحوارتعيين تنسيق الخليةالذي يظهر، قم بإلغاء تحديد خيارمقفلضمن علامة التبويبالحماية، ثم انقر على زرموافق. انظر لقطة الشاشة:
3. حدد الخلايا التي لا تريد حذف محتوياتها، ثم اضغط علىCtrl + 1 لفتح مربع الحوارتعيين تنسيق الخليةمرة أخرى. بعد ذلك، اختر خيارمقفلضمن علامة التبويبالحماية، ثم انقر على زرموافق.
4. الآن، انقر علىمراجعة > حماية الورقة، ثم حدد كلمة المرور الخاصة بك وأكدها في مربَّعي الحوارحماية الورقةوتأكيد كلمة المرور.
أصبحت ورقة العمل الآن محميّة، ولن يتم حذف محتويات الخلايا المحددة بعد الآن.
افتح سحر إكسل مع KUTOOLS AI
- التنفيذ الذكي: نفِّذ عمليات الخلايا، وحلِّل البيانات، وأنشئ المخططات البيانية — كل ذلك بأوامر بسيطة!
- الصيغ المخصصة: أنشئ صيغًا مخصصة لتبسيط سير عملك.
- برمجة VBA: اكتب وأَنفِذ أكواد VBA بسلاسة تامة.
- تفسير الصيغ: افهم الصيغ المعقدة بسهولة!
- ترجمة النصوص: اكسر الحواجز اللغوية في جداولك الإلكترونية!
منع حذف محتويات خلايا معيّنة باستخدام كود VBA
بالإضافة إلى الطريقتين السابقتين، يمكنك استخدام كود VBA لحماية محتويات خلايا معيّنة في ورقة العمل من الحذف. يُرجى اتباع الخطوات التالية:
1. افتح ورقة العمل التي تحتوي على محتويات الخلايا التي لا تريد حذفها، ثم انقر بزر الماوس الأيمن على لسان الورقة، واخترعرض الكودمن قائمة النقر بزر الماوس الأيمن.
2. انسخ والصق كود VBA أدناه في نافذة الكود الخاصة بنافذةمايكروسوفت فيجوال بيسك للتطبيقات.
كود 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 باستخدام Kutools لـ Excel، وعايش الكفاءة كما لم تفعل من قبل.يقدّم Kutools لـ Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية ووقت الحفظ.انقر هنا للحصول على الميزة التي تحتاجها أكثر من غيرها...
يجلب Office Tab واجهة ذات علامات تبويب إلى Office، ويجعل عملك أسهل بكثير
- تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، وPublisher وAccess وVisio وProject.
- افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، بدلاً من فتح نوافذ جديدة.
- يزيد إنتاجيتك بنسبة 50% ويوفّر لك مئات نقرات الفأرة كل يوم!
جميع الإضافات من Kutools في برنامج تثبيت واحد!
Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.
- حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
- برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
- يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
- تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل