عبدالله المجرب

السلام عليكم جربي اختي الفاضلة كود في حدث ورقة العمل

بارك الله فيك جاري التجربة

تم دمج المواضيع وتعديل العنوان اذا كنت تريد عنوان أخر أخبرني

بخصوص طلب التفعيل اذا تم نقله الى كميوتر جديد شاهد هذا الرابط http://www.officena.net/ib/index.php?showtopic=44044&hl=

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

السلام عليكم ملف جميل == اخي محمد اقترح أن يكون لك موضوع واحد متجدد تضع به هذه الملفات فما رايك

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

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

السلام عليكم جرب المرفق تم عمل رسالة تنبيه في حال كان تاريخ الكومبيوتر غير صحيح ستظهر رسالة تنبيهية ويتم إغلاق الملف == مدة صلاحية الملف 15 يوم بعدها تظهر رسالة بأن الملف منتهي ويُغلق الملف === جرب تغيير تاريخ الكمبيوتر الى هذين التاريخين 25/05/2013 13/06/2013 salary finished.rar

ضع مرفق ليتم فهم المطلوب

اخي الكريم قمت بوضع الأكواد في ملفك المرفق ====== اود سؤالك بخصوص استخدام عدد مرات فتح الملف في الحماية بدل التاريخ

ما شاء الله معادلة رائعة وقيمة جداً

السلام عليكم ضع هذا الكود في حدث ورقة العمل Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, [B1]) Is Nothing Then If Not IsEmpty([A1]) Then Application.EnableEvents = False Application.Undo Application.EnableEvents = True End If End If End Sub

تم تحرير المشاركة الخاصة بالاخ ابو بلقيس ======================== ارجو التوضيح بخصوص برنامج الأوتوبلاي قبل الخوض في التجارب

ما شاء الله عمل رائع جداً

السلام عليكم تم حماية الشيتات من الحذف أو الإضافة تم منع خاصيتي النسخ واللصق شاهد المرفق ==== جاري العمل على حل مشكلة التاريخ salary finished.rar

الى ماذا تريد تغيير العنوان

أن شاء الله سأحاول القيام بما طلبت

السلام عليكم في البداية جرب المرفق 1. لا يمكن حفظ الملف بأي صيغة اخرى 2. الملف لا يعمل اذا كان الامان منخفض 3. لا يمكن التعديل على الملف === بالنسبة للتاريخ يمكن التحكم فيه لو كان ما سبق يناسبك Abu_Ahmed.rar

السلام عليكم جرب المرفق 2000.rar

حاولت تنزيل الملف دون فائدة

بارك الله فيك استاذ عبدالله كفيت ووفيت

السلام عليكم قمت بتعديل الكود الثاني وذلك للاستغناء عن الخلايا المساعدة Private Sub CommandButton2_Click() If ([Q6] ^ 2) - (4 * [N6*T6]) > 0 Then [Q10] = (-[Q6] + Sqr(([Q6] ^ 2) - (4 * [N6*T6]))) / [2*N6] [S10] = (-[Q6] - Sqr(([Q6] ^ 2) - (4 * [N6*T6]))) / [2*N6] ElseIf ([Q6] ^ 2) - (4 * [N6*T6]) = 0 Then [Q10] = [-Q6] / [2*N6] [S10] = [-Q6] / [2*N6] Else [Q10] = "ليس لها حل حقيقي" [S10] = "ليس لها حل حقيقي" End If End Sub

السلام عليكم اختي أم عبدالله بداية موفقة واود أن أقول لك بأن رحلة الألف ميل تبداء بخطوة كان الأفضل مسح الماكرو المسجل لاني لم انتبه لزر الأمر الا متأخر ولمزيد من الحركات هذه صيغة أخرى بالكود Sub RR3() MsgBox "الجواب يساوي " & -([F6] / [C6]) End Sub

اليك ملفك بعد إدراج الدالة وتعديل الجدول كنترول المرحلة الابتدائية2.rar