هل يمكن حمايه الصفوف ارتباطاَ بالتاريخ

[مصطفى رياض]

أخوانى المحترمين

بعد الاطلاع على الملف المرفق, هل يمكن حمايه صفوف الجدول بعد انتهاء تاريخ اليوم

مثال: اذا كان اليوم هو 13/07/2010 هنا استطيع فقط ادخال البيانات فى الصف المقابل لتاريخ

اليوم بينما لا استطيع ادخال اي بيانات او تعديلات فى يوم 12/07/2010 او اي يوم مضى

شاكر حسن تعاونكم وواثق فى قدرات اخوانى اعضاء ومشرفى المنتدى العزيز على قلبى

Book2.rar

تم تعديل يوليو 13, 2010 بواسطه Mostafa Riyad

[obad65]

موضوع هام جدا ومفيد

آمل من جميع الخبراء المشاركة

[الحسامي]

السلام عليكم ورحمة الله وبركاتة

هنا مرفق يمنع التعديل في بيانات اي يوم سابق لتاريخ اليوم

لكن ليس باسلوب الحماية وانما باسلوب اخر عسى أن يتم الاستفادة منه

تحديد.rar

[عادل حنفي]

السلام عليكم

عمل جميل اخي الحسامي

تحياتي

[عبد الفتاح كيرة]

جزاك الله خيرا

وزادك علما

عدلت الكود كى يعمل بطريقة الحماية

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Intersect(Target, Range("b3:r33")) Is Nothing Then

If Cells(Target.Row, 1) < Date Then

 ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

[a1].Select

Else

 ActiveSheet.Unprotect

End If

End If


If Not Intersect(Target, Range("a3:a33")) Is Nothing Then

[a1].Select

End If


End Sub

[أبوبسمله]

ماشاء الله عليكم بارك الله فيكم وجزاكم كل خير