amir501

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

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

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

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

اخواني الكود الاول: يقوم بتحويل المعادالات الى قيم والكود الثاني يقوم باخفاء جميع الصفحات المطلوب: كيف اجمع عمل الكودين معا اي بعد ان يقوم الكود بتحويل المعادلات الى قيم يقوم الكود الثاني بحفظ عمل الكود الاول واخفاء جميع الصفحات ثم اغلاق الملف لكود الاول Sub mm() Dim Expiry As Date Expiry = DateValue("10/07/2010") If Date > Expiry Then Dim CEL As Range Application.ScreenUpdating = False Application.Calculation = xlManual For S = 1 To ActiveWorkbook.Sheets.Count Sheets(S).Activate For Each CEL In ActiveSheet.UsedRange If CEL.HasFormula = True Then CEL = CEL.Value Next CEL Next S End If End Sub لكود الثاني ..وهو اخفاء جميع الصفحات Sub hh() Application.Calculation = xlAutomatic Application.ScreenUpdating = False sheet2.Visible = xlSheetVeryHidden sheet3.Visible = xlSheetVeryHidden sheet4.Visible = xlSheetVeryHidden sheet5.Visible = xlSheetVeryHidden sheet1.Visible = True sheet1.Select ActiveWorkbook.Save ActiveWorkbook.Close End Sub

للرفع ياخواااااااان

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

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

جزاك الله كل خير شكرا لك اخي العزيز

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

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

استاذي هشام كم يسعدني مرورك العطر واهتمامك... لكن هناك مشكلة صغيرة وهي ...ان الكود لا يعمل في حال كانت الصفحات محمية كيف يمكن ان نجعل الكود يعمل والصفحات محمية..اشكرك كل الشكر

اخواني جزاكم اله كل ةخير هذا الكود هو لاخونا ولد طيبة Sub auto_open() Dim Expiry As Date Expiry = DateValue("28/07/2010") If Date > Expiry Then Dim CEL As Range Application.ScreenUpdating = False Application.Calculation = xlManual For S = 1 To ActiveWorkbook.Sheets.Count Sheets(S).Activate For Each CEL In ActiveSheet.UsedRange If CEL.HasFormula = True Then CEL = CEL.Value Next CEL Next S Application.Calculation = xlAutomatic End If End Sub كيف يمكنني ان اجعل هذا الكود بعد ان يقوم بعمله وهو حذف جميع الدالات بتاريخ محدد كما هو موضح ان يقوم بعملية الحفظ التلقائي ..وابطال عمل زر الاغىلاق (اشارة X) حتى ينتهى الكود من عمله واغلاق الملف تلقائيا

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

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

اخي الكريم ولد طيبة (تحديد الأوراق المطلوب حذف معادلاتها عن طريق الإسم للورقة داخل الكود ) اي نحن نختار الصفحات التي نريد حذف معادلاتها ونبقى الصفحات الاخرى بمعادلاتها ودالاتها ....؟ مع خالص شكري وامتناني لك ولااخواننا

انت مبدع ياابا عبد الله دايما فنان ... لكن هل يمكن ان نقوم باختيار صفحات معينة لحذف المعادلات تعمل تلقائيا دون ان تعطينا فورم لااختيار ذلك اي بمجرد تشغيل الملف تقوم بحذف المعادلات ... لقد استطعت ان اضع التاريخ داخل الكود نفسه واحببت ان اشارك به هذا ما استطعت ان انهل من منهل اخواننا وعلمائنا جعلها الله في رصيد حسناتهم Sub auto_open() Dim Expiry As Date Expiry = DateValue("01/08/2010") If Date > Expiry Then Dim CEL As Range Application.ScreenUpdating = False Application.Calculation = xlManual For S = 1 To ActiveWorkbook.Sheets.Count Sheets(S).Activate For Each CEL In ActiveSheet.UsedRange If CEL.HasFormula = True Then CEL = CEL.Value Next CEL Next S Application.Calculation = xlAutomatic End If End Sub كما يوجد مرفق لتوضيح ذلك aaaaaaaaaaaaaaa.rar

اخواني هذا الكود هو من ابداعات اخونا ولد طيبة جزاه الله كل خير وضعته هنا لسببين الاول لكي تعم الفائدة وليستفيد منه كل الاعظاء قدر الامكان ..؟ والسبب الثاني لتطوير هذا الكود ليوافي متطلبات جميع اخواننا ...فمثلا هذا الكود بمجرد ان تصل الى تاريخ معين (طبعا تاريخ انتهاء فترة عمل البرنامج ) عند بلوغ هذا التاريخ وعند تشغيل الملف سيقوم الكود بمسح جميع الدالات والمعادلات الموجودة في الملف وتبقى قيمها فقط .... طبعا هذا الكود يقوم بمسح جميع المعادلات في كافة الصفحات .... ان امكن تطوير هذا الكود بحيث ان نحدد من خلال الكود الصفحات المراد حذف المعادلات الموجودة بداخلها وتبقى المعادلات في الصفحات الاخرى التي لم يتم اختيارها ...وهكذا نكون قد تقدمنا خطوة باتجاه تطوير هذا الكود Sub auto_open() If Sheets(1).Range("F2") > Date Then Exit Sub Dim CEL As Range Application.ScreenUpdating = False Application.Calculation = xlManual For S = 1 To ActiveWorkbook.Sheets.Count Sheets(S).Activate For Each CEL In ActiveSheet.UsedRange If CEL.HasFormula = True Then CEL = CEL.Value Next CEL Next S Application.Calculation = xlAutomatic End Sub

اخي الحبيب ارفق الملف

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

اخي طارق جزاك الله كل خير ...هذا هو المطلوب ولكن اريده ان يعمل تلقائيا بمجرد بلوغ التاريخ المطلوب على سبيل المثال بتاريخ 1/08/2010 عند تشغيل الملف ومن دون الضغط على اي زر يعمل الكود تلقائيا بتحويل جميع الدالات الى قيم... جزاك الله واخونا ولدطيبة واخواننا كل خير

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

كما يمكن حماية الملف باكمله بفورم (هذا العمل هو لاحد اخواننا جزاه الله كل خير انا فقط انقله) كلمة المرورو 358204.rar

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

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