استفسار

[dodo222]

السلام عليكم اساتدتنا الفضلاء

عندي ملف تقويم شهري لأستخدمة كسجل للغيابات للموضفين انا عامل تنسيق ليومي الجمعة و السبت كعطلة نهاية الاسبوع

طلبي اريد طريقة منع الكتابة في خلايا ايام العطل يعني حتى ولو غير الشهر 

لاتفادى الاخطاء. مثل الخلية C4. اريد فقط الكتابة في الخلايا التي لا تحتوي على تنسيق شرطي

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

ملف الغيابات.xlsx

[dodo222]

ارجو المساعدة الله يجازيكم

[سليم حاصبيا]

هو أنت اللي ( عامل تنسيق ليومي الجمعة و السبت كعطلة نهاية الاسبوع)

لماذا لا تذكر من وضع لك المعادلات في الملف الذي رفعته؟؟

( كحفظ حقوق النشر لا أكثر والقليل من العرفان بالجميل)

جرب هذا الكود (تستطبع التنقل ضمن الجدول بواسطة المفتاح 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

[dodo222]

آه صحيح سامحني بارك الله فيك اخي سليم