khaldoon2 قام بنشر يونيو 25, 2015 قام بنشر يونيو 25, 2015 السلام عليكم ورحمة الله وبركاته.الأخوة الكرام لدينا جدول فيه الحقول التالية: المبلغ . التاريخ . الملاحظات . تم التدقيقمرتبة D1,C1,B1,A1خلايا المبلغ والتاريخ والملاحظات يوم المستخدم بادخالها كما يريد ويستطيع التعديل عليها خلية التدقيق يقوم المدقق بكتابة Yes اذ تم تدقيق البيانات في السطر ووافق عليها او لا يكتب شيئا اذا لم يدققها بعدالمطلوبفي حال قام المدقق بتدقيق السطر ووضع في الخلية المقابلةD1 كلمة Yes فان اي تعديل يدخله المستخدم على الخلايا C1,B1,A1 يتم الترجع عنه Undoاما اذا لم تكن كلمة Yes موجودة D1 فللمستخدم حرية تعديل البيانات C1,B1,A1 دون Undo
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
سليم حاصبيا قام بنشر يونيو 26, 2015 قام بنشر يونيو 26, 2015 جرب هذا الملف كلمة السر xx protect_yes.rar
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.