يوسف السيد

السلام عليكم : اخوانى الكرام .. ابحث عن كود يقوم بحفظ نسخة من شيت بملف اكسيل فى ملف جديد بنفس مسار الملف الاصلى مع مراعاة ان يكون الملف الجديد غير ممكنا لوحدات الماكرو بمعنى ان يكون ملف اكسل عادى مع العلم اننى اعمل على 2007

كود ولا اروع أ:عبدالله باقشير وفقك الله لما فيه الخير انت دائما تذكرنى بالحديث " خير الناس انفعهم للناس"

فعلا هناك خطأ فى vba ... هو WebBrowser1.Navigate ... ويعطى رسال تحذيرية بانه لا يجد المشروع او المكتبة .. هذا على اوفيس 2007

الاستاذ احمد .. ان يعمل الملف على 2003 لا يقلل ابدا من قيمته التى عبر عن عنها الاخوة سابقا تقبل تحياتى

اخى ابو حنين .. شفاك الله وعافاك من كل شر ونتمنى لك الشفاء العاجل

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

هذ الكود من انجازت الاستاذ خبور خير .. ضعه فى موديول Option Explicit Sub Auto_Open() kh_wVisible True End Sub Sub Auto_Close() kh_wVisible False ThisWorkbook.Close Not CBool(ThisWorkbook.Saved) End Sub Sub kh_wVisible(ibol As Boolean) Dim nBook As String nBook = ThisWorkbook.Name With Windows(nBook) If .Visible = Not ibol Then .Visible = ibol End With End Sub

الاخ// ابو حنين اشكرك لسرعة الرد والتجاوب ولكن مازال الملف يحفظ بنسخة تمكن الماكرو من العمل فيها مع العلم اننى عمل بنسخة 2007 حيث انه عندما افتح الملف الجديد يعطينى رسالة بانه تالف ثم يفتحه ويكون الماكرو ممكنا فيه ولى طلب اخر بسيط لو تكرمت وهو امكانية حفظ الملف الجديد فى نفس مسار الملف الاصلى .

الاخوة الافاضل ... اكواد رائعة حقا ... وفى هذا الاطار هل يمكن حفظ شيت من الملف - بعض تطبيق الكود السابق - فى ملف جديد ويكون الملف الجديد غير مصنف لامكانية تقبل الماكرو بمعنى ان يكون شيت اكسل عادى جدا

الفاضل : ابو حنين ... عذرا على الاطالة والثقل A1 يوجد بها القيمة 1000 فى الخلية C3 يتم عمل الاتى : 1000 - قيمة الخليةA1 وهى 500 فيكون الناتج=500 ... وهنا نكون قد خصمنا كامل قيمة C3 فيتم وضع صفر مكانها وفى الخليةD3 الاتى : ماتبقى من عملية الطرح فى A1 وهو مبلغ500 - قيمة الخلية D3 وهى 300 فيكون الناتج = 200 ... وهنا ايضا تم خصم كامل قيمة D3 فيتم وضع صفر مكانها. وفى الخلية E3 الاتى : ما تبقى من عملية الطرح فى D3 وهو مبلغ 200 - قيمة الخلية E3 وهى 100 فيكون الناتج = -100 ... لان قيمة المبلغ المراد خصمه اكبر من قيمة الخلية E3 نفسها اتمنى ان اكون قد وفقت فى توضيح المطلوب وشكرا مرة اخرى لسعة صدرك يا ابو حنين

فعلا الحلول رائعة ومتنوعة ... ولكن لى سؤال .. لماذا لا تكون تُظهر عملية الخصم الارقام بالسالب عندما تكون القيمة المطروحة اكبر من القيمة الموجودة بالخلية ولكى اكون اكثر وضوحا .. ارفقت مثال بالارقام قبل وبعد الخصم كما تفضل وطلب الاخ/ابو حنين خصم2.rar

الاخوه الافاضل : أ-ابو حنين أ-عبدالله باقشير أ-ياسر خليل أ-بن علية حاجى وكل الاعضاء المشاركين بالموضوع بارك الله لكم جميعا ... ورزقكم الجنة بغير حساب

فى الملف المرفق ادناه ... قيمة اريد ان يتم خصمها من عدة خلايا تباعاً الى تنتهى تلك القيمة والملف به التوضيح ... وشكرا خصم.rar

اللف يبدو اكثر من رائع ... ولكنه ايضا لا يعمل عندى مع العلم لانى اعمل على اوفيس 2007

كما قال الاستاذ مجدى ... ابداع متواصل

افكارك دائما مبدعة ... بارك الله فيك

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

بارك الله فيكم جميعا لما تقدموه من علم ومعرفة

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

للرفع ... جزاكم الله خيراً

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

البقاء لله ... اللهم ارحمها رحمة واسعة وتغمدها برحمتك واسكنها فسيح جناتك

كمت قال الاخ الفاضل / احمد زمان يمكنك فعل ذلك من خيارات الطباعة واذا اردت الكود ... ما عليك الا تسجيل الماكرو

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

للرفع جزاكم الله خيرا