dodo222 قام بنشر فبراير 21, 2019 مشاركة قام بنشر فبراير 21, 2019 السلام عليكم اساتدتنا الفضلاء عندي ملف تقويم شهري لأستخدمة كسجل للغيابات للموضفين انا عامل تنسيق ليومي الجمعة و السبت كعطلة نهاية الاسبوع طلبي اريد طريقة منع الكتابة في خلايا ايام العطل يعني حتى ولو غير الشهر لاتفادى الاخطاء. مثل الخلية C4. اريد فقط الكتابة في الخلايا التي لا تحتوي على تنسيق شرطي بارك الله فيكم لا اريدها بالاكواد لأستطيع التعديل عليها مرة اخرى ملف الغيابات.xlsx رابط هذا التعليق شارك More sharing options...
dodo222 قام بنشر فبراير 21, 2019 الكاتب مشاركة قام بنشر فبراير 21, 2019 ارجو المساعدة الله يجازيكم رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر فبراير 21, 2019 مشاركة قام بنشر فبراير 21, 2019 هو أنت اللي ( عامل تنسيق ليومي الجمعة و السبت كعطلة نهاية الاسبوع) لماذا لا تذكر من وضع لك المعادلات في الملف الذي رفعته؟؟ ( كحفظ حقوق النشر لا أكثر والقليل من العرفان بالجميل) جرب هذا الكود (تستطبع التنقل ضمن الجدول بواسطة المفتاح Tab والبرنامج يقفز الخلايا الخضراء) Option Explicit Private Sub Worksheet_Activate() Application.ScreenUpdating = False Block_cells Application.ScreenUpdating = True End Sub '========================================= Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False Application.ScreenUpdating = False If Target.Address = "$M$1" Or Target.Address = "$V$1" _ Or Target.Address = "$Z$1" Then Block_cells End If Application.EnableEvents = True Application.ScreenUpdating = True End Sub '======================================= Sub Block_cells() With Sheets("Sheet1") .Unprotect .Cells.Locked = True .Range("B1:AF33").Locked = False End With On Error Resume Next Dim k% For k = 2 To 32 If Weekday(Cells(3, k)) > 5 Or Not IsDate(Cells(3, k)) Then Range(Cells(4, k), Cells(33, k)).Locked = True End If Next On Error GoTo 0 Sheets("Sheet1").Protect , EnableSelection = xlUnlockedCells End Sub الملف مرفق Protect_Abscent.xlsm 1 رابط هذا التعليق شارك More sharing options...
dodo222 قام بنشر فبراير 21, 2019 الكاتب مشاركة قام بنشر فبراير 21, 2019 آه صحيح سامحني بارك الله فيك اخي سليم رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان