حفظ تلقائي لملف الاكسل

[saw2010]

السلام عليكم
اخواني جزاكم الله كل خير
هل يمكن جعل اكسل يحفظ تلقائي عند الضغظ على اشارة الاغلاق (x) دون ضهور اي رسالة
وجزيتم خيرا

[قنديل الصياد]

السلام عليكم اخى العزيز

اليك ما طلبت

كود لحفظ ملف الاكسل تلقائيا دون الضغط على ايقونة الحفظ

حفظ تلقائى للبيانات فى ملف اكسل دون الضغط على ايقونة الحفظ ويوضع الكود فى WorkBook

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
ThisWorkbook.Save
 Application.Quit
End Sub

ومرفق ملف مطبق عليه الكود

 

 

[اسلام سيد]

السلام عليكم

 

الاخوة الكرام هذة اكواد للاستاذ الفاضل / عباد ابو نصار  لجعل الاكسيل يقوم بالحفظ كل 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

[قنديل الصياد]

اخى العزيز الاستاذ / اسلام الشيمى

مشكور على الكود الجميل

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

 

تم تعديل يوليو 23, 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 بواسطه حاتم عيسى

[قنديل الصياد]

اخى العزيز الاستاذ / حاتم عيسى

مشكور على الكود الجميل

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

 

تم تعديل يوليو 1, 2013 بواسطه قنديل الصياد

[حاتم عيسى]

أستاذي الفاضل المحترم : قنديل الصياد

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

[قنديل الصياد]

لك شكرى وامتنانى اخى الكريم واكثر الله من امثالك وجعل عملك فى ميزان حسناتك

 

 

 

 

[حاتم عيسى]

الشكر لله ثم لحضرتك وأمثالك من الرجال المحترمين الأفاضل الذين لا يبخلون بعلمهم وبجهدهم في منفعة الآخرين .......

فما أنا إلا تلميذ حضرتك والأساتذة الأفاضل .

[وليد فتحي]

طيب ممكن كود للحفظ التلقائي ةكود لالغاءة مرة أخري

بمعني ان عاوز اعمل مفتاحين واحد للحفظ التلقائي واخر لالغاءه

بحيث يكون للمستخدم حرية الاختيار ما بين الاتنين

ولكم جزيل الشكر مقدما

[rofa97]

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

وجزاكم الله كل خير

مطلوب دالة.rar

تم تعديل يناير 22, 2017 بواسطه rofa97

[rofa97]

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
ThisWorkbook.Save
 Application.Quit
End Sub

الامر ده    Application.Quit  بيغلق جميع ملفات الاكسل المفتوحه ارجو التعديل

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

[محمد عبدالسلام]

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

تم تعديل مارس 22, 2017 بواسطه محمد عبدالسلام

[محمد طاهر عرفه]

السلام عليكم

اذا اردت التأثير على الملف المفتوح فقط دون التطبيق ككل

جرب استبدال

applictation

ب

activeworkbook

مثال

ActiveWorkbook.Save
ActiveWorkbook.Close

 

[rofa97]

لا جدوى بارك الله فيك وشكرا على اهتامك

 

[محمود أبوالدهب]

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

وشكرا لكم 

[حمادة عمر]

في ١٢‏/٤‏/٢٠١٧ at 13:48, محمود أبوالدهب said:

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

وشكرا لكم 

السلام عليكم

الاخ الكريم / محمود ابو الدهب

بارك الله فيك

وراك وراك برده .. في اي حته .. هههه

لعمل ما تقصده اخي الكريم قم بتحديد النطاق الذي تريده بالماوس ان كان خليه او عده خلايا او كامل الورقة

ثم اضغط كليك يمين تظهر القائمة اختار منها Format Cells او ( تنسيق خلايا ) ثم اختار منها تبويب Alignment او بالعربية ( محاذاة )

ثم قم بتفعيل الخيار الموضح بالصورة بوضع علامه ( الصح ) به المسمي Shrink to fit او بالعربي ( احتواء مناسب )

تقبل خالص تحياتي

 

[محمود أبوالدهب]

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

[حمادة عمر]

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

كلنا هنا اخوة في الله اخي الكريم نتعلم من بعضنا البعض ابتغاء مرضاه الله

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

فجزي الجميع خيرا باذنه

تقبل خالص تحياتي