نصيحة: اللغات الأخرى مترجمة من قبل Google. يمكنك زيارة English نسخة من هذا الرابط.
تسجيل الدخول
x
or
x
x
التسجيل
x

or

كيفية حماية الخلايا استنادا إلى تاريخ في إكسيل؟

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

دوك حماية بواسطة التاريخ شنومكس

حماية جميع الصفوف باستثناء صف تاريخ اليوم مع التعليمات البرمجية فبا

قم بحماية كل الصفوف التي مر عليها التاريخ باستخدام كود فبا

علامة تبويب Office تمكين التحرير والتصفح في Tabbed ، وجعل عملك أسهل بكثير ...
Kutools for Excel يحل معظم مشاكلك ، ويزيد من إنتاجيتك بنسبة 80٪
  • إعادة استخدام أي شيء: أضف الصيغ الأكثر استخدامًا أو تعقيدًا والمخططات وأي شيء آخر إلى مفضلاتك ، ثم أعد استخدامها سريعًا في المستقبل.
  • أكثر من ميزات نص 20: استخراج الرقم من سلسلة النص ؛ استخراج أو إزالة جزء من النصوص ؛ تحويل الأرقام والعملات إلى الكلمات الإنجليزية ...
  • دمج الأدوات: العديد من المصنفات والأوراق في واحد ؛ دمج خلايا / صفوف / أعمدة متعددة دون فقدان البيانات ؛ دمج الصفوف المكررة ومجموع ...
  • أدوات الانقسام: تقسيم البيانات إلى أوراق متعددة بناءً على القيمة ؛ مصنف واحد إلى ملفات Excel أو PDF أو CSV متعددة ؛ عمود واحد إلى أعمدة متعددة ...
  • لصق الطفر الصفوف المخفية / المصفاة ؛ عدد ومبلغ بواسطة لون الخلفية. إنشاء قائمة بريدية و إرسال رسائل البريد الإلكتروني حسب قيمة الخلية...
  • فلتر سوبر: إنشاء مخططات تصفية متقدمة وتطبيقها على أي أوراق ؛ فرز حسب الأسبوع ، اليوم ، التردد وغير ذلك ؛ تصفية / فلترة بواسطة جريئة ، الصيغ ، التعليق ...
  • أكثر من ميزات 300 القوية ؛ يعمل مع Office 2007-2019 و 365 ؛ يدعم جميع اللغات ؛ سهولة النشر في مؤسستك أو مؤسستك.

السهم الأزرق الفقاعة اليمنى حماية جميع الصفوف باستثناء صف تاريخ اليوم مع التعليمات البرمجية فبا

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

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. انقر بزر الماوس الأيمن فوق علامة التبويب ورقة التي تريد حماية الخلايا استنادا إلى التاريخ، ثم اختر عرض الرمز من قائمة السياق، في برزت خارج ميكروسوفت فيسوال باسيك للتطبيقات نافذة، الرجاء نسخ ولصق التعليمات البرمجية التالية في وحدة فارغة:

رمز فبا: حماية جميع الصفوف تاريخ مرت:

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. ثم حفظ وإغلاق هذا الإطار التعليمات البرمجية.

(شنومكس.) إذا قمت بالنقر فوق مرور الخلايا مرت، سوف مربع المطالبة تخرج لتذكيرك الخلية لا يمكن تحريرها، انظر قطة:

دوك حماية بواسطة التاريخ شنومكس

(شنومكس.) إذا قمت بالنقر فوق خلية الصفوف في محاولة لتغيير القيم في تاريخ اليوم أو التاريخ في المستقبل، سيتم تعديله بنجاح، انظر الصورة:

دوك حماية بواسطة التاريخ شنومكس


Kutools for Excel يحل معظم مشاكلك ، ويزيد من إنتاجيتك بنسبة 80٪

  • إعادة استخدام: إدراج بسرعة الصيغ المعقدة ، الرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة المرور إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
  • سوبر الفورمولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (بسهولة قراءة وتحرير أعداد كبيرة من الخلايا) ؛ لصق على المدى المصفى...
  • دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ انقسام خلايا المحتوى ؛ الجمع بين تكرار الصفوف / الأعمدة... منع الخلايا المكررة. مقارنة النطاقات...
  • حدد تكرار أو فريد الصفوف. حدد صفوف فارغة (جميع الخلايا فارغة) ؛ سوبر البحث والعثور غامض في العديد من المصنفات ؛ اختيار عشوائي ...
  • نسخة طبق الأصل خلايا متعددة دون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة. إدراج الرصاصات، مربعات الاختيار والمزيد ...
  • استخراج النص، إضافة نص ، حذف حسب الموضع ، إزالة الفضاء. إنشاء وطباعة مجاميع ترحيل الصفحات ؛ تحويل بين محتوى الخلايا والتعليقات...
  • سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ تصنيف متقدم حسب الشهر / الأسبوع / اليوم ، التردد وأكثر ؛ فلتر خاص بواسطة جريئة ، مائل ...
  • الجمع بين المصنفات وأوراق العمل. دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; دفعة تحويل XLS ، XLSX وقوات الدفاع الشعبي...
  • أكثر من ميزات 300 القوية. يدعم Office / Excel 2007-2019 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. ميزات كاملة النسخة التجريبية المجانية من 30.
علامة التبويب kte 201905

علامة تبويب Office توفر واجهة مبوبة لـ Office ، واجعل عملك أسهل بكثير

  • تمكين تحرير علامات التبويب والقراءة في Word و Excel و PowerPointوالناشر والوصول ، Visio ومشروع.
  • افتح مستندات متعددة وقم بإنشائها في علامات تبويب جديدة لنفس النافذة ، وليس في نوافذ جديدة.
  • يزيد إنتاجيتك بنسبة 50٪ ، ويقلل مئات نقرات الماوس لك كل يوم!
أسفل مكتبه
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Karan · 2 months ago
    Hi,

    while running this code I am getting an error as shown in the figure
    Also i am attaching a snapshot my excel where i want to make changes..

    Can u guide in my code where should i make changes according to my excel file so that cells that contain only todays & future date can be editied ???
    • To post as a guest, your comment is unpublished.
      skyyang · 1 months ago
      Hello, Karan,
      Because there are merged cells in your table, the above code can not be applied correctly in merged cells table.
      If you have any other good ideas, please comment here. Thank you!
  • To post as a guest, your comment is unpublished.
    Niall · 9 months ago
    As someone who is relatively new to VBA, would you mind explaining why xRow = 2 in Line 4?



    Thanks
    • To post as a guest, your comment is unpublished.
      Piotr · 8 months ago
      because in row no. 1 you have header
  • To post as a guest, your comment is unpublished.
    Bobby · 1 years ago
    This works great. but how can I switch it to unlock a column based on dates in row 3?
  • To post as a guest, your comment is unpublished.
    TAHER KANPURWALA · 1 years ago
    Hello.....


    I am using the code for Protect all rows except today’s date row........



    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    'Updateby Extendoffice 20161025
    If Range("A" & 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


    After i save i and click on cell i get message only today's date row can be edited....but if i double click the cell the i can edit...pls help
  • To post as a guest, your comment is unpublished.
    LUIS GARCIA · 1 years ago
    hi is it possible to lock certain cells depending on the date that is directly above them in a column?
    • To post as a guest, your comment is unpublished.
      skyyang · 1 years ago
      Hi, Lusis,
      Can you give your problem more specifically? Or you can attach a screenshot as your problem.
      Thank you!
  • To post as a guest, your comment is unpublished.
    Lmg · 1 years ago
    Hi is it possible to lock columns by the date directly above the columns?
  • To post as a guest, your comment is unpublished.
    Hitesh · 2 years ago
    Loophole: Password can be seen by other person by using "View Code" option.