khaldoon2 قام بنشر يونيو 25, 2015 مشاركة قام بنشر يونيو 25, 2015 السلام عليكم ورحمة الله وبركاته.الأخوة الكرام لدينا جدول فيه الحقول التالية: المبلغ . التاريخ . الملاحظات . تم التدقيقمرتبة D1,C1,B1,A1خلايا المبلغ والتاريخ والملاحظات يوم المستخدم بادخالها كما يريد ويستطيع التعديل عليها خلية التدقيق يقوم المدقق بكتابة Yes اذ تم تدقيق البيانات في السطر ووافق عليها او لا يكتب شيئا اذا لم يدققها بعدالمطلوبفي حال قام المدقق بتدقيق السطر ووضع في الخلية المقابلةD1 كلمة Yes فان اي تعديل يدخله المستخدم على الخلايا C1,B1,A1 يتم الترجع عنه Undoاما اذا لم تكن كلمة Yes موجودة D1 فللمستخدم حرية تعديل البيانات C1,B1,A1 دون Undo رابط هذا التعليق شارك More sharing options...
khaldoon2 قام بنشر يونيو 25, 2015 الكاتب مشاركة قام بنشر يونيو 25, 2015 كهذا الكود مثلا 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 رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر يونيو 26, 2015 مشاركة قام بنشر يونيو 26, 2015 جرب هذا الملف كلمة السر xx protect_yes.rar رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان