امكانية التراجع عن قيمة الخلية برمجيا؟

[khaldoon2]

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

الأخوة الكرام لدينا جدول فيه الحقول التالية: المبلغ . التاريخ . الملاحظات . تم التدقيق
مرتبة D1,C1,B1,A1

خلايا المبلغ والتاريخ والملاحظات يوم المستخدم بادخالها كما يريد ويستطيع التعديل عليها 
خلية التدقيق يقوم المدقق بكتابة Yes اذ تم تدقيق البيانات في السطر ووافق عليها او لا يكتب شيئا اذا لم يدققها بعد

المطلوب

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

[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

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

جرب هذا الملف

كلمة السر xx

protect_yes.rar