منع ادخال وقت مكرر

[محمد رامز]

السلام عليكم اخواتي الافاضل

ارجو المساعدة في الجدول المرفق 

عندما اريد كتابة تاريخ موجود مسبقا بخلية الوقت لنفس الطالب يمنعني الاكسيل من كتابة الوقت ويعطيني رسالة بان الوقت مكرر

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

ولكم جزيل الشكر

جدول بيانات.xlsm

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

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

Private Sub Worksheet_Change(ByVal Target As Range)
'غير  الاعمدة  المراد  تنفيدها  مع  مراعاة  تكون  الاعمدة متعاقبة 
If Not Intersect(Range("D:M"), Target) Is Nothing Then
Dim myrange As Range
With Target
If Len(.Value) > 0  Then
Set myrange = Columns(.Column)
Application.EnableEvents = False
If WorksheetFunction.CountIf(myrange, .Value) > 1 Then
MsgBox .Value & " عذرا هذا الوقت مكرر.", vbExclamation
.ClearContents
End If
Application.EnableEvents = True
End If
End With
End If
End Sub