كيفية حذف جميع محتويات الخلايا غير المؤمنة / غير المحمية بسرعة في Excel؟
إذا كان لديك ورقة عمل تحتوي على جزء من الخلايا غير المؤمنة، والآن ترغب في حذف كل محتويات الخلايا غير المؤمنة دفعة واحدة. هل لديك أي حلول للتعامل مع هذه المهمة؟
حذف كل محتويات الخلايا غير المؤمنة باستخدام وظيفة البحث والاستبدال
حذف كل محتويات الخلايا غير المؤمنة باستخدام كود VBA
حذف كل محتويات الخلايا غير المؤمنة باستخدام Kutools لـ Excel
حذف كل محتويات الخلايا غير المؤمنة باستخدام وظيفة البحث والاستبدال
لمسح كل القيم الخاصة بالخلايا غير المحمية، يمكنك استخدام ميزة البحث والاستبدال لتحديد الخلايا غير المؤمنة أولاً، ثم حذفها فوراً.
1. افتح ورقة العمل التي تريد حذف الخلايا غير المؤمنة فيها، وانقر فوق Home > Find & Select > Find أو اضغط على اختصارات - Ctrl + F لفتح مربع الحوار البحث والاستبدال، انظر إلى لقطة الشاشة:
2. في مربع الحوار البحث والاستبدال، انقر فوق زر الخيارات لتوسيع الحوار، انظر إلى لقطة الشاشة:
3. ثم انقر فوق زر التنسيق، وسيظهر مربع حوار تنسيق البحث، وبعد ذلك ضمن علامة التبويب الحماية، قم بإلغاء تحديد مربعي Locked و Hidden، انظر إلى لقطة الشاشة:
4. انقر فوق موافق للعودة إلى مربع الحوار البحث والاستبدال، ثم انقر فوق زر العثور على الكل، سيتم عرض جميع الخلايا غير المحمية في مربع القائمة أدناه، وبعد ذلك اضغط على Ctrl + A لتحديدها جميعًا، انظر إلى لقطة الشاشة:
5. وبعد ذلك أغلق مربع الحوار البحث والاستبدال، تم تحديد جميع الخلايا غير المؤمنة في ورقة العمل الحالية، انظر إلى لقطة الشاشة:
6. بعد ذلك تحتاج فقط إلى الضغط على مفتاح Delete على لوحة المفاتيح، وسيتم إزالة محتويات الخلايا غير المؤمنة المحددة فوراً.
حذف كل محتويات الخلايا غير المؤمنة باستخدام كود VBA
يمكن أن يساعدك الكود التالي من VBA أيضًا في مسح محتويات الخلايا غير المؤمنة، يرجى القيام بما يلي:
1. اضغط باستمرار على مفتاحي ALT + F11 لفتح نافذة Microsoft Visual Basic for Applications.
2. انقر فوق إدراج > وحدة، والصق الكود التالي في نافذة الوحدة.
كود VBA: حذف كل محتويات الخلايا غير المؤمنة
Sub ClearUnlockedCells()
'Updateby Extendoffice
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
For Each Rng In WorkRng
If Rng.Locked = False Then Rng.ClearContents
Next
Application.ScreenUpdating = True
End Sub
3. ثم اضغط على مفتاح F5 لتشغيل هذا الكود، وحدد نطاقًا تريد إزالة محتويات الخلايا غير المؤمنة فيه في الصندوق المنبثق، انظر إلى لقطة الشاشة:
4. انقر فوق موافق، وتم مسح المحتويات في نطاق الخلايا غير المؤمنة.
حذف كل محتويات الخلايا غير المؤمنة باستخدام Kutools لـ Excel
إذا كنت قد قمت بتثبيت Kutools لـ Excel، يمكن أن تساعدك ميزة تحديد الخلايا غير المؤمنة في تحديد الخلايا غير المحمية أولاً، وبعد ذلك يمكنك حذفها دفعة واحدة.
Kutools لـ Excel يتضمن أكثر من 300 أداة مريحة لبرنامج Excel. جربها مجانًا بدون قيود لمدة 30 يومًا. احصل عليها الآن
بعد تثبيت Kutools لـ Excel، يرجى القيام بالخطوات التالية:
1. حدد نطاق البيانات الذي تريد مسح محتويات الخلايا غير المؤمنة فيه.
2. انقر فوق Kutools > تحديد > تحديد الخلايا غير المؤمنة.
3. وتم تحديد جميع الخلايا غير المؤمنة في نطاق التحديد الخاص بك.
4. اضغط على مفتاح Delete على لوحة المفاتيح لحذف محتويات الخلايا المحددة فوراً.
إذا كنت ترغب في معرفة المزيد حول هذه الميزة، يرجى النقر فوق تحديد الخلايا غير المؤمنة.
المقالة ذات الصلة:
كيفية تحديد جميع الخلايا غير المؤمنة في 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 يومًا — بدون تسجيل، بدون بطاقة ائتمان
- قيمة رائعة — وفر مقارنة بشراء الإضافات بشكل منفرد