كيفية قفل وحماية الخلايا غير الفارغة في إكسيل؟

لنفترض أن لدي ورقة عمل تملأ بعض الخلايا الفارغة داخل نطاق البيانات ، والآن ، أريد قفل جميع خلايا البيانات وحمايتها ، وترك الخلايا الفارغة غير مقفلة لإدخال بعض القيمة الجديدة. كيف يمكنك فقط قفل الخلايا غير الفارغة وحمايتها بأسرع ما يمكن في Excel؟

تأمين وحماية جميع الخلايا غير الفارغة في النطاق المحدد باستخدام Protect Sheet

تأمين وحماية كافة الخلايا غير الفارغة في نطاق مستخدم برمز VBA

---

تأمين وحماية جميع الخلايا غير الفارغة في النطاق المحدد باستخدام Protect Sheet

عادة ، يمكنك إنهاء هذه المهمة في Excel بالطريقة التالية خطوة بخطوة:

1. حدد نطاق الخلايا الذي تريد تأمين خلايا البيانات وحمايتها ، ثم انقر فوق الرئيسية > بحث وتحديد > انتقل إلى خاص، انظر لقطة الشاشة:

2. في انتقل إلى خاص مربع الحوار، حدد الفراغات من اختار القسم ، انظر لقطة الشاشة:

3. ثم اضغط OK ، وتم تحديد جميع الخلايا الفارغة مرة واحدة ، ثم اضغط على كترل + شنومكس مفاتيح لفتح تنسيق الخلايا مربع الحوار ، تحت حماية علامة التبويب، قم بإلغاء تحديد مقفل الخيار ، انظر لقطة الشاشة:

4. انقر OK، ثم انقر فوق التقيم > حماية ورقة، ثم أدخل كلمة المرور وأكدها كما تريد ، انظر لقطة الشاشة:

5. انقر OK لإغلاق مربعات الحوار ، والآن ، تمت حماية جميع خلايا البيانات وترك فقط الخلايا الفارغة بدون حماية.

---

تأمين وحماية كافة الخلايا غير الفارغة في نطاق مستخدم برمز VBA

تحتوي الطريقة المذكورة أعلاه على خطوات متعددة ، لتحقيق ذلك بأسرع ما يمكن ، يمكن أن يقدم لك رمز VBA التالي خدمة ، يرجى القيام بذلك على النحو التالي:

1. اضغط باستمرار على ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. ثم اضغط إدراج > وحدة، والصق الكود التالي في ملف وحدة نافذة او شباك.

رمز فبا: تأمين وحماية كافة الخلايا غير الفارغة في ورقة عمل

Sub UnlockEmptyCells()
'Updateby Extendoffice
    Application.ScreenUpdating = False
    Cells.Locked = True
    Selection.SpecialCells(xlCellTypeBlanks).Locked = False
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    Application.ScreenUpdating = True
End Sub

3. ثم اضغط F5 مفتاح لتشغيل هذا الرمز ، يتم حماية الخلايا غير الفارغة فقط مرة واحدة في النطاق المستخدم.