saw2010 قام بنشر يوليو 1, 2013 مشاركة قام بنشر يوليو 1, 2013 السلام عليكم اخواني جزاكم الله كل خير هل يمكن جعل اكسل يحفظ تلقائي عند الضغظ على اشارة الاغلاق (x) دون ضهور اي رسالة وجزيتم خيرا 1 رابط هذا التعليق شارك More sharing options...
أفضل إجابة قنديل الصياد قام بنشر يوليو 1, 2013 أفضل إجابة مشاركة قام بنشر يوليو 1, 2013 السلام عليكم اخى العزيز اليك ما طلبت كود لحفظ ملف الاكسل تلقائيا دون الضغط على ايقونة الحفظ حفظ تلقائى للبيانات فى ملف اكسل دون الضغط على ايقونة الحفظ ويوضع الكود فى WorkBook Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.DisplayAlerts = False ThisWorkbook.Save Application.Quit End Sub ومرفق ملف مطبق عليه الكود 3 رابط هذا التعليق شارك More sharing options...
اسلام سيد قام بنشر يوليو 1, 2013 مشاركة قام بنشر يوليو 1, 2013 السلام عليكم الاخوة الكرام هذة اكواد للاستاذ الفاضل / عباد ابو نصار لجعل الاكسيل يقوم بالحفظ كل 60 ثانية يقوم بحفظ الملف كل دقيقة هذه الأكواد في مودويل Public Rm As Double Public Const C_Con = 60 Public Const Sc_W = "Ex" Public Sub St_A() Rm = Now + TimeSerial(0, 0, C_Con) Application.OnTime EarliestTime:=Rm, Procedure:=Sc_W, Schedule:=True End Sub Sub Ex() Application.DisplayAlerts = False ThisWorkbook.Save Application.DisplayAlerts = True St_A End Sub وهذه في حدث Thisworkbook Private Sub Workbook_Deactivate() Call St_A End Sub Private Sub Workbook_Open() Call St_A End Sub وممكن الرجوع الى اصل الموضوع http://www.officena.net/ib/index.php?showtopic=45107&hl 3 رابط هذا التعليق شارك More sharing options...
قنديل الصياد قام بنشر يوليو 1, 2013 مشاركة قام بنشر يوليو 1, 2013 (معدل) اخى العزيز الاستاذ / اسلام الشيمى مشكور على الكود الجميل ولكن الاخ السائل طلب كود يغلق البرنامج مع الحفظ التلقائى واعتقد ان الكود الذى ارفقته يغلق البرنامج مع الحفظ التلقائى دون الضغط على ايقونة الحفظ وعند الضغط على ايقونة الاغلاق ودون ظهور اى رسائل & تم تعديل يوليو 23, 2013 بواسطه دغيدى رابط هذا التعليق شارك More sharing options...
حاتم عيسى قام بنشر يوليو 1, 2013 مشاركة قام بنشر يوليو 1, 2013 (معدل) السلام عليكم ورحمة الله وبركاته بعد إذن حضراتكم هذا تعديل بسيط فقد قمت بدمج الكوين وهذه النتيجة كود الحفظ التلقائي كل مدة 15 ثانية أو عند إغلاق ملف الاكسيل دون المطالبة بالحفظ هذا الكود يوضع في حدث : Workbook Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.DisplayAlerts = False ThisWorkbook.Save Application.Quit End Sub Private Sub Workbook_Open() Call St_A End Sub هذا الكود يوضع في حدث : Module Public Rm As Double Public Const C_Con = 15 Public Const Sc_W = "Ex" Public Sub St_A() On Error Resume Next Rm = Now + TimeSerial(0, 0, C_Con) Ali_C Rm, Sc_W, True End Sub Sub Ex() Application.DisplayAlerts = False ThisWorkbook.Save Application.DisplayAlerts = True St_A End Sub Public Sub Ext() Ali_C Rm, Sc_W, False End Sub Public Function Ali_C(St As Double, Sa As String, Bn As Boolean) On Error Resume Next With Application DoEvents .ScreenUpdating = False .EnableEvents = False .OnTime EarliestTime:=St, Procedure:=Sa, Schedule:=Bn .EnableEvents = True .ScreenUpdating = True End With End Function ومرفق ملف بعد التجربة وشكرا لكم جميعًا فلكم يرجع الفضل بعد الله عز وجل . مطلوب دالة.rar تم تعديل يوليو 1, 2013 بواسطه حاتم عيسى 3 رابط هذا التعليق شارك More sharing options...
قنديل الصياد قام بنشر يوليو 1, 2013 مشاركة قام بنشر يوليو 1, 2013 (معدل) اخى العزيز الاستاذ / حاتم عيسى مشكور على الكود الجميل ولكن الاخ السائل طلب كود يغلق البرنامج مع الحفظ التلقائى واعتقد ان الكود الذى ارفقته يغلق البرنامج مع الحفظ التلقائى دون الضغط على ايقونة الحفظ وعند الضغط على ايقونة الاغلاق ودون ظهور اى رسائل & وتسهيلا على الاخ السائل & تم تعديل يوليو 1, 2013 بواسطه قنديل الصياد رابط هذا التعليق شارك More sharing options...
حاتم عيسى قام بنشر يوليو 1, 2013 مشاركة قام بنشر يوليو 1, 2013 أستاذي الفاضل المحترم : قنديل الصياد فعلا كلام حضرتك تمام والكود الذي أرفته أنا ما هو إلى مزيج من كود حضرتك وكود الأستاذ : إسلام الشيمي مدمجين مع بعضهم البعض . فهو يقوم بالحفظ كل فترة زمنية محددة كما يقوم بالحفظ أيضا عند إغلاق الملف دون الضغط على زر الحفظ . وكما قلت فالفضل يرجع لحضراتكم بعد الله تعالى . رابط هذا التعليق شارك More sharing options...
قنديل الصياد قام بنشر يوليو 1, 2013 مشاركة قام بنشر يوليو 1, 2013 لك شكرى وامتنانى اخى الكريم واكثر الله من امثالك وجعل عملك فى ميزان حسناتك رابط هذا التعليق شارك More sharing options...
حاتم عيسى قام بنشر يوليو 1, 2013 مشاركة قام بنشر يوليو 1, 2013 الشكر لله ثم لحضرتك وأمثالك من الرجال المحترمين الأفاضل الذين لا يبخلون بعلمهم وبجهدهم في منفعة الآخرين ....... فما أنا إلا تلميذ حضرتك والأساتذة الأفاضل . رابط هذا التعليق شارك More sharing options...
وليد فتحي قام بنشر يوليو 23, 2013 مشاركة قام بنشر يوليو 23, 2013 طيب ممكن كود للحفظ التلقائي ةكود لالغاءة مرة أخري بمعني ان عاوز اعمل مفتاحين واحد للحفظ التلقائي واخر لالغاءه بحيث يكون للمستخدم حرية الاختيار ما بين الاتنين ولكم جزيل الشكر مقدما رابط هذا التعليق شارك More sharing options...
rofa97 قام بنشر يناير 22, 2017 مشاركة قام بنشر يناير 22, 2017 (معدل) بارك الله فيكم جميعا بس البرنامج بيعيد فتح نفسه مرة اخرى بعد الفترة المحددة للحفظ ارجو التعديل على الكود لتعم الفائدة وجزاكم الله كل خير مطلوب دالة.rar تم تعديل يناير 22, 2017 بواسطه rofa97 رابط هذا التعليق شارك More sharing options...
rofa97 قام بنشر مارس 22, 2017 مشاركة قام بنشر مارس 22, 2017 Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.DisplayAlerts = False ThisWorkbook.Save Application.Quit End Sub الامر ده Application.Quit بيغلق جميع ملفات الاكسل المفتوحه ارجو التعديل بارك الله فيكم جميعا رابط هذا التعليق شارك More sharing options...
محمد عبدالسلام قام بنشر مارس 22, 2017 مشاركة قام بنشر مارس 22, 2017 (معدل) كود رائع بارك الله فيكم تم تعديل مارس 22, 2017 بواسطه محمد عبدالسلام رابط هذا التعليق شارك More sharing options...
محمد طاهر عرفه قام بنشر مارس 22, 2017 مشاركة قام بنشر مارس 22, 2017 السلام عليكم اذا اردت التأثير على الملف المفتوح فقط دون التطبيق ككل جرب استبدال applictation ب activeworkbook مثال ActiveWorkbook.Save ActiveWorkbook.Close رابط هذا التعليق شارك More sharing options...
rofa97 قام بنشر أبريل 12, 2017 مشاركة قام بنشر أبريل 12, 2017 لا جدوى بارك الله فيك وشكرا على اهتامك رابط هذا التعليق شارك More sharing options...
محمود أبوالدهب قام بنشر أبريل 12, 2017 مشاركة قام بنشر أبريل 12, 2017 موضوعرائع ونتيجة رائعة ولكن بالملف المرفق نجد ان الخلايا اذا قمنا بالتابه بها مهما كان طول الكتابه تقوم الخليه بتنسيق الكتابة فيها حجما لتناسب حجم الخلية فارجوا ان تفيدونى كيف يتم فعل ذالك وشكرا لكم رابط هذا التعليق شارك More sharing options...
حمادة عمر قام بنشر أبريل 14, 2017 مشاركة قام بنشر أبريل 14, 2017 في ١٢/٤/٢٠١٧ at 13:48, محمود أبوالدهب said: موضوعرائع ونتيجة رائعة ولكن بالملف المرفق نجد ان الخلايا اذا قمنا بالتابه بها مهما كان طول الكتابه تقوم الخليه بتنسيق الكتابة فيها حجما لتناسب حجم الخلية فارجوا ان تفيدونى كيف يتم فعل ذالك وشكرا لكم السلام عليكم الاخ الكريم / محمود ابو الدهب بارك الله فيك وراك وراك برده .. في اي حته .. هههه لعمل ما تقصده اخي الكريم قم بتحديد النطاق الذي تريده بالماوس ان كان خليه او عده خلايا او كامل الورقة ثم اضغط كليك يمين تظهر القائمة اختار منها Format Cells او ( تنسيق خلايا ) ثم اختار منها تبويب Alignment او بالعربية ( محاذاة ) ثم قم بتفعيل الخيار الموضح بالصورة بوضع علامه ( الصح ) به المسمي Shrink to fit او بالعربي ( احتواء مناسب ) تقبل خالص تحياتي 1 رابط هذا التعليق شارك More sharing options...
محمود أبوالدهب قام بنشر أبريل 14, 2017 مشاركة قام بنشر أبريل 14, 2017 شكرا اخ جماده والله من غيرك كنت لوست في كل مكان تكون انته سباق بالرد والافادة لك منى كل التحية والتقدير رابط هذا التعليق شارك More sharing options...
حمادة عمر قام بنشر أبريل 14, 2017 مشاركة قام بنشر أبريل 14, 2017 جزاك الله خيرا اخي الكريم كلنا هنا اخوة في الله اخي الكريم نتعلم من بعضنا البعض ابتغاء مرضاه الله فاسرة منتدي اوفيسنا بيت واحد وجميع الاعضاء اخوة .. فالكثير جدا من الاخوة يقدم المساعدة فجزي الجميع خيرا باذنه تقبل خالص تحياتي رابط هذا التعليق شارك More sharing options...
الردود الموصى بها