ابو اياد ( الاسيوطى )

كل عام وانتم بخير وصحة وسلامة

بن علية جامد السنين ( مجرم اكسيل ) بارك الله فيك ولك أستاذنا الكبير بن علية حاجى

يارب خير معاك ان شاء الله

الاخ الكريم طارق محمد لم يفى الكود بالغرض ومرفق شيت year بة فكرة جديدة لا اريد ان يرجع التاريخ للوراء نهائيا فقط الى الامام وطول ما فترة الصلاحية اكبر يمكن ادخال البيانات اما اذا تعدى تاريخ اليوم تاريخ الصلاحية لا يمكن ان يتم التعديل فى تاريخ االيوم بتأخير تاريخ الكمبيوتر حتى يدخل المستخدم فترة الصلاحية مرة اخرى حالة واحدة فقط تسمح بأدخال البيانات مرة اخرى هى تعديل تاريخ الصلاحية باليد فى الخلية ولكم جزيل الشكر project acc gf2.rar

اعتقد ان الموضوع صعب ولكنة قادم فى التطور قد وجدت فكرة عسى ان تسد الثغرة ويمكن تنفيذها هى تجميد كل يوم يمضى من تاريخ معادلة اليوم today ارجو من اى عضو لة اى فكرة لتنفيذ حتى اى جزء من المطلوب يقوم بعملها وشكرا لكم جميعا

السلام عليكم ورحمة الله وبركاتة الاخوة الاعضاء انا صراحة تعبت واللى تعب اكتر الاستاذ عبد الله المجرب والاستاذ طارق محمود ولكنهم لم يتوقفوا عن مساعدتى بارك الله فيهم فأنا ارى ان معطياتى قليلة او غير واضحة للحلول المطلوبة فأرجو ان يوفقنى الله هذه المرة المطلوب واضح جدا فى الملف المرفق وهذا مختصرة هناك خليتان بهما تاريخ الاولى- تاريخ يكتب باليد ( هو تاريخ فترة الصلاحية ) يتم وضعه وتعديلة بيد المدير ، ليقوم المستخم بأدخال بيانات فى نطاق معين ( النطاق ذو اللون الاخضر بملفى المرفق ) الثانية - تاريخ معادلة TODAY ( هو تاريخ اليوم ) لجهاز الكمبيوتر ويتغير بتغيرة اريد ان يتم تجميد عمل معادلة TODAY فور تجاوز تاريخها لتاريخ فترة الصلاحية اى اذا قام المستخدم بمحاولة تغير التاريخ للعودة مرة اخرى للسماح لة بادخال البيانات لن تستجيب لة معادلة TODAY لأنها مجمدة حالة وحيدة فقط يمكن ان تعود المعادلة مرة اخرى للعمل هى تعديل تاريخ الصلاحية ان يكون اكبر من تاريخ اليوم انتهى المطلوب هناك ثغرة اعلمها واعلم ان ليس لها حل اذا قام المستخدم خلال فترة صلاحيتة بتأخير تاريخ الكمبيوتر ستكون معادلة TODAY اسيرتة بتنفيذ طلبة والشكر لكم وخاصة الاستاذ / عبد الله المجرب الذى يكل ولا يمل منى ومن مساعدتى ومازال يساندنى الاستاذ / طارق محمود تعبتة وحيرتة وفى النهاية لم اعطية المفيد ولازال يساعدنى ملحوظة هناك موضوع قريب جدا من طلبى هو تجميد الوقت وقام الاستاذ / طارق محمود بأجابتة رابط الموضوع http://www.officena.net/ib/index.php?showtopic=41226 كود الحل Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$B$2" Then Exit Sub [A1].Value = [A1] If [B2] = "" Then [A1].FormulaR1C1 = "=NOW()" End Sub والملف الموجود بة الحل مرفق ايضا هو تجميد الوقت project acc gf2.rar تجميد الوقت.rar

بارك الله فيكم جميعا صراحة المنتدى هنا بة روح عالية جدا وارجو من الله ان يدومها نعمة ويزيدها وشكرا لكم جميعا أ / عبد الله باقشير أ / رجب جاويش أ / جمال عبد السميع

جربت مسح البيانات من الخلية الصفراء ووجدت ان معادلة الوقت عادت الى العمل مرة اخرى وهذا ما اريدة بالظبط فمسح بيانات الخلية الصفراء يقابلة فى ملفى ان تاريخ الصلاحية اكبر من تاريخ اليوم فأذا تعدى تاريخ اليوم تاريخ الصلاحية تم تجميد المعادلة تاريخ اليوم حتى اذا قام المستخدم بتغير تاريخ الكمبيوتر حالة واحدة فقط هى التى تسمح للمعادلة العمل مرة اخرى هى تعديل تاريخ الصلاحية بيد الادمن المدير الى ان يكون تاريخ الصلاحية اكبر من تاريخ اليوم بارك الله فيك اخى عبد الله فأنا ارى ان كود أ/ طارق بسيط وانا اريد تعديل بسيط علية ليعمل بمعادلة تاريخ بدل الوقت ووفقنا الله الى ما فية الخير ومشكور اخى عبد الله على مجهودك وصبرك الكبير عليا

اخ عبد الله المجرب لا تزال المشكلة عالقة لم يتم تجميد التاريخ بعد تعدية لفترة الصلاحية اليك مرفق ملف من اعداد ا / طارق محمود كان هو حل فى احدى الموضوعات وفية خليتين احداها معدلة now و الاخرى اذا تم ملئها تجمد تاريخ معادلة now وانا اريد فقط تبديل المعدلة لتصبح today بدلا من now ويتغير الشرط من ملىء الخلية الى تعدية تاريخ الخلية التى بها تاريخ انتهاء فترة الصلاحية فبعد تعدى تاريخ المعادلة لتاريخ الصلاحية يتم تجميد عمل المعادلة اى لن تعمل حتى لو تم تغير تاريخ الكمبيوتر ولك جزيل الشكر على مجهودك ومثابرتك معى واليك المرفق وعنوان الموضوع وارجو ان يكون التنفيذ على مرفق فى بداية موضوعى طلب معادلة تاريخ واليك ايضا مشاركة أ / طارق محمود + الكود طارق محمود تاريخ المشاركة 21 مارس 2012 - 12:00 م السلام عليكم أخي العزيز في المرفق ، الخلية A1 بها الدالة now والخلية الصفراء B2 إذا عند ملئها سيتحول قيمة ، الخلية A1 إلي قيمة فقط وإذا حذفت محتويات الخلية الصفراء B2 ، تعود الدالة now للخلية A1 الكود هو Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$B$2" Then Exit Sub [A1].Value = [A1] If [B2] = "" Then [A1].FormulaR1C1 = "=NOW()" End Sub تجميد الوقت.rar الملف الذى اريد التنفيذ علية.rar

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

الاخوة الاعضاء مطلوبى قريب جدا من هذا الموضوع قرأت النشرة الدورية رأيت هذا الموضوع فوجدتة تقريبا ما أحتاجة مع فارق بسيط بدل معادلة NOW يتم استخدام معادلة TODAY تجميد تاريخ المعادلة تجميد نهائى اى لا يتغير مرة اخرى بعد تعدية لتاريخ فى الخلية الاخرى http://www.officena....showtopic=41226

الاخ عبد الله المجرب مرحبا اخى مجرب نعم معك ان الملف السابق نجح فى تنفيذ الفكرة ولكن كان من السهل على المستخدم كسرة بتأخير تاريخ الكمبيوتر المطلوب ان يكون التاريخ دخل الكود اوك لابد ان يكون هناك مرجع محدد كما ذكر استاذ / طارق وهذا المرجع هو الفيصل فى انهاء فترة الصلاحية نريدة ان يكون داخل الكود ولايتأثر اذا تغير تاريخ الكمبيوتر على يد المستخدم رجائى الوحيد هو ان اذا تعدى الملف تاريخ الصلاحية 1- اما ان تكون الخلايا كلها ريد اونلى ولا يمكن للمستخدم ان يرجع الى فترة الصلاحية بتأخير تاريخ جهاز الكمبيوتر 2- او اذا كان التاريخ غير منضبط ( ليس فعلى اى ليس حقيقى ) يتم التنبية على المستخدم بضبط التاريخ لدية واعلامة ان الملف لن يعمل إلا بعد هذا الضبط ثم يغلق الملف ولكم منى جزيل الشكر

اقترح حل اخر هل يمكن تشغيل خاصية mark as final بعد تاريخ معين ايضا اذا اكتشف المستخدم هذا سوف يأخر تاريخ الكمبيوتر وعلية يقوم ملف أكسل بالتنبية علية مراجعه اعدادات ضبط التاريخ لأن الملف لن يفتح إلا اذا كانت منضبطة ( التاريخ الفعلى الحقيقى = تاريخ جهاز الكمبيوتر ) انا عارف ان طلب صعب والاخ عبد الله المجرب تعب معايا برضوا ولكن دائما هناك بصيص امل !!!!!!!!!!!! لازلنا نبحث عن حل والله الموفق كيف الحال بالنسبة للبرامج التى لا تعمل إلا اذا كانت اعدادات التاريخ منضبطة حتى بعد مضى المدة تكون منتهية ( البرامج التجريبية بمدة ) ارجو ان لا اكون اثقلت عليك استاذنا الفاضل / طارق محمود بارك الله فيك

وما الحل بارك الله فيك ؟ هل يمكن اغلاق الملف اذا كان تاريخ جهاز الكمبيوتر غير الفعلى ( الحقيقى ) بمعنى ان المستخدم لاحظ ان فترة الصلاحية انتهت فقرر التحايل على الملف بتأخير تاريخ جهاز الكمبيوتر فهل يمكن لاكسل ان يدرك ان اعدادات التاريخ غير منضبطة وعلية يغلق الملف اما اذا كان التاريخ مضبط فهو فى فترة انتهاء الصلاحية ولك منى جزيل الشكر والعرفان أ / طارق

حتي هذه لابد أن تكون متصل بالنت وإلا كيف سيحدد الجهاز الوقت؟ الاستاذ الفاضل / طارق لا يشترط ان يكون الجهاز متصل بالنت لتحديد الوقت والتاريخ فى تنصيب الويندوز فهو يعتمد اعتماد كلى على المكان فقط دون مرجع اخر

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

الاخ الاستاذالفاضل / طارق محمود لك منى افضل تحية وشكرا لاهتمامك وتعبك معى اجتهاد منى ليس إلا هو ان عند تنصيب نسخة ويندوز يقوم الجهاز بضبط التاريخ والوقت معا من تلقاء نفسة بناء على تحديد مكان الاقامة فهل يرتقى عمل الكود ليصل الى مكان الاقامة وبالتالى يعرف الكود الوقت والتاريخ الفعليين (التاريخ الحقيقى والوقت ) يتم تحديد مكان الاقامة مثلا مصر القاهرة سوف يتم تحديد الوقت والتاريخ اتوماتيكيا وحتى اذا تحايل المستخدم بتغير الوقت والتاريخ ليدخل ضمن فترة الصلاحية مرة اخرى وبهذا نكون قد وصلنا الى تحديد المرجع اى بدل ان تكون معادلة يكون كود ولو حتى تظهر نتيجتة فى خلية مخفية لك من افضل تحية وتقبل سلامى

الاخ حماده عمر نورتنى والله فينك انت اوعى تكون زعلام منى

بارك الله فيكم

ارجو ان يكون هو ما تريد تنسيق شرطي بعد الحل.rar

اعتقد هو من وجهك لرؤية الموضوع ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

السلام عليكم ورحمة الله وبركاتة الاخوة الاعضاء والمشرفين بالمنتدى أليكم هدية متواضعة ولكنها فكرة جيدة وجديدة للهايبر لينك ان لم يكن يعرفها احد ولكنى احببت ان اتشاركها معكم وللأمانة هى كانت فى فيديو شرح لاحد الاخوة على يوتيوب ( محمود حمودة ) انا فقط قمت بتنفيذها على مثال اخر ولكم جزيل الشكر صرح اوفيسنا التعليمى هايبر لينك متقدم.rar

واخيرا وليس آخرا أ / طارق محمود مرحبا بك انتظرك كثيرا للرد فى مشاركات اخرى سابقة مرحبا بك وان طال انتظارى لك ؟ الاخ الكبير أ / طارق هذا اقتراح جميل اول مرة أراه صراحة لكن الاجهزة التى سيعمل عليها الملف غير متصلة بالنت فأرجو اقتراح حل اخر حتى لو بكود فيجوال بيسك وليس شرط تكون معادلة فأنا اكثر من شهرين ابحث فى هذا الموضوع ومرة اخرى مرحبا بك

ان كان ليس لها حل او لم توجد معادلة او كود ارجو الرد من اى عضو بعدم الافادة فى الموضوع ولكم جزيل الشكر

الاخ طارق هى لا تفى بالغرض