كيفية حماية الخلايا بناءً على التاريخ في إكسيل؟
عادة ، يمكننا حماية ورقة العمل لمنع الآخرين من تحرير أو تعديل قيم الخلية ، ولكن في بعض الأحيان ، تحتاج إلى حماية الخلايا بناءً على التاريخ. على سبيل المثال ، أريد حماية الخلايا الأخرى مع السماح بتعديل قيم الخلايا الخاصة بتاريخ اليوم فقط كما هو موضح في لقطة الشاشة التالية ، ستتحدث هذه المقالة عن كيفية حماية الخلايا بناءً على التاريخ.
قم بحماية جميع الصفوف باستثناء صف تاريخ اليوم برمز VBA
قم بحماية جميع الصفوف التي مر التاريخ بها برمز VBA
قم بحماية جميع الصفوف باستثناء صف تاريخ اليوم برمز VBA
السماح فقط بتعديل الصف الذي يساوي تاريخ اليوم ، يمكن أن تساعدك الكود التالي ، يرجى القيام بذلك على النحو التالي:
1. انقر بزر الماوس الأيمن فوق علامة تبويب الورقة التي تريد حماية الخلايا بناءً على التاريخ ، ثم اختر عرض الرمز من قائمة السياق ، في النافذة المنبثقة ميكروسوفت فيسوال باسيك للتطبيقات نافذة ، يرجى نسخ ولصق الكود التالي في الوحدة النمطية الفارغة:
كود فبا: حماية كل الصفوف باستثناء صف تاريخ اليوم:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Updateby Extendoffice 20161025
If Range("E" & Selection.Row).Value <> Date Then
ActiveSheet.Protect Password:="111111"
MsgBox "Only today's date row can be edited!", vbInformation, "Kutools for Excel"
ElseIf Range("E" & Selection.Row).Value = Date Then
ActiveSheet.Unprotect Password:="111111"
ActiveSheet.EnableSelection = xlNoRestrictions
End If
End Sub
ملاحظة: في الكود أعلاه الحرف E هو رأس العمود حيث يقع التاريخ ، "111111"هي كلمة المرور لحماية هذه الورقة. يمكنك تغييرها حسب حاجتك.
2. ثم احفظ وأغلق نافذة الكود هذه.
(1.) إذا نقرت فوق خلايا أخرى خارج صف التاريخ اليوم ، فسيظهر مربع موجه لتذكيرك بأنه لا يمكن تحرير الخلية ، انظر لقطة الشاشة:
(2.) إذا قمت بالنقر فوق وتحرير الصف الذي يساوي تاريخ اليوم ، فسيتم تعديله بنجاح ، انظر الصورة:
قم بحماية جميع الصفوف التي مر التاريخ بها برمز VBA
إذا كنت بحاجة إلى حماية جميع الصفوف التي انقضى التاريخ ، فلا تسمح إلا بتعديل صفوف التاريخ لليوم والمستقبل ، فالرجاء تطبيق رمز فبا التالي:
1. انقر بزر الماوس الأيمن فوق علامة تبويب الورقة التي تريد حماية الخلايا بناءً على التاريخ ، ثم اختر عرض الرمز من قائمة السياق ، في النافذة المنبثقة ميكروسوفت فيسوال باسيك للتطبيقات نافذة ، يرجى نسخ ولصق الكود التالي في الوحدة النمطية الفارغة:
كود فبا: انقضى تاريخ حماية جميع الصفوف:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'Updateby Extendoffice 20161025
Dim xRow As Long
xRow = 2
ThisWorkbook.ActiveSheet.Unprotect Password:="111111"
ThisWorkbook.ActiveSheet.Cells.Locked = False
Do Until IsEmpty(Cells(xRow, 5))
If Cells(xRow, 5) < Date Then
Rows(xRow).Locked = True
End If
xRow = xRow + 1
Loop
ThisWorkbook.ActiveSheet.Protect Password:="111111"
End Sub
ملاحظة: في الكود أعلاه ، الرقم 5 هو رقم العمود حيث يقع التاريخ ، "111111"هي كلمة المرور لحماية هذه الورقة. يمكنك تغييرها حسب حاجتك.
3. ثم احفظ وأغلق نافذة الكود هذه.
(1.) إذا قمت بالنقر فوق تاريخ انتهاء الخلايا ، فسيظهر مربع موجه لتذكيرك بأنه لا يمكن تحرير الخلية ، انظر الصورة:
(2.) إذا قمت بالنقر فوق خلية الصفوف لمحاولة تغيير القيم في تاريخ اليوم أو التاريخ المستقبلي ، فسيتم تعديلها بنجاح ، انظر الصورة:
أفضل أدوات إنتاجية المكتب
Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪
- إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
- سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
- دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات
- حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
- نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
- استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
- سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
- اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
- أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2021 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.

يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!






























