khaldoon2

كهذا الكود مثلا Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo er1 Application.EnableEvents = False If Not Intersect(Target, Range("A1:c10")) Is Nothing Then If Target.Range("d1:d10").Value = "Yes" Then Application.Undo Else End If End If err2: Application.EnableEvents = True Exit Sub er1: MsgBox Err.Description Resume err2 End Sub

السلام عليكم ورحمة الله وبركاته. الأخوة الكرام لدينا جدول فيه الحقول التالية: المبلغ . التاريخ . الملاحظات . تم التدقيق مرتبة D1,C1,B1,A1 خلايا المبلغ والتاريخ والملاحظات يوم المستخدم بادخالها كما يريد ويستطيع التعديل عليها خلية التدقيق يقوم المدقق بكتابة Yes اذ تم تدقيق البيانات في السطر ووافق عليها او لا يكتب شيئا اذا لم يدققها بعد المطلوب في حال قام المدقق بتدقيق السطر ووضع في الخلية المقابلةD1 كلمة Yes فان اي تعديل يدخله المستخدم على الخلايا C1,B1,A1 يتم الترجع عنه Undo اما اذا لم تكن كلمة Yes موجودة D1 فللمستخدم حرية تعديل البيانات C1,B1,A1 دون Undo