حسام عبدالمحسن قام بنشر مايو 8, 2013 مشاركة قام بنشر مايو 8, 2013 الاساتذة الكرام لدى ملف اكسيل هل من طريقة لجعل الملف يحفظ تلقائيا بدون الضغد على حفظ او على ctrl+s بعد فترة محددة بمعنى انه يحفظ تلقائى كل دقيقة مثلا رابط هذا التعليق شارك More sharing options...
حمادة عمر قام بنشر مايو 8, 2013 مشاركة قام بنشر مايو 8, 2013 السلام عليكم الاخ الكريم / حسام غباشى بارك الله فيك اليك اخي الكود الذي يقوم بهذه الوظيفه ... حفظ تلقائي للملف كل دقيقة اولا لنقل كود الحفظ الي ملفك .... قم بعمل مودل وضع الاكواد التاليه فيه ... 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 جزاك الله خيرا حفظ كل دقيقة.rar 3 رابط هذا التعليق شارك More sharing options...
aspiran قام بنشر مايو 8, 2013 مشاركة قام بنشر مايو 8, 2013 جزاك الله خيرا رابط هذا التعليق شارك More sharing options...
حمادة عمر قام بنشر مايو 8, 2013 مشاركة قام بنشر مايو 8, 2013 اخي الكريم / عبد الغني بارك الله فيك هو كود لاخ كريم ... ولكن تخونني الذاكرة في ذكر الاسم واصبح متعارف ويتم التعامل به جزاك الله خيرا علي مرورك الكريم 1 رابط هذا التعليق شارك More sharing options...
أبو أنس80 قام بنشر يونيو 4, 2013 مشاركة قام بنشر يونيو 4, 2013 بارك الله فيك رابط هذا التعليق شارك More sharing options...
حمادة عمر قام بنشر يونيو 5, 2013 مشاركة قام بنشر يونيو 5, 2013 جزاك الله خيرا اخي الكريم shakhawan رابط هذا التعليق شارك More sharing options...
منياوى قام بنشر يونيو 12, 2013 مشاركة قام بنشر يونيو 12, 2013 الف الف شكر رابط هذا التعليق شارك More sharing options...
حمادة عمر قام بنشر يونيو 12, 2013 مشاركة قام بنشر يونيو 12, 2013 جزاك الله خيرا اخي الكريم رابط هذا التعليق شارك More sharing options...
محمد ابو البـراء قام بنشر يونيو 12, 2013 مشاركة قام بنشر يونيو 12, 2013 جزاكم الله خيرا اخي الاستاذ حمادة عمر على هذا الكود الرائع المميز رابط هذا التعليق شارك More sharing options...
حاتم فتحي قام بنشر يونيو 12, 2013 مشاركة قام بنشر يونيو 12, 2013 واللهان لم يكن سحرا فهو كا لسحر بارك الله فيك ولكل من شارك في هذا العمل العبقري رابط هذا التعليق شارك More sharing options...
Hosni2013 قام بنشر يونيو 12, 2013 مشاركة قام بنشر يونيو 12, 2013 جزيل الشكر على مجهودكم الرائع رابط هذا التعليق شارك More sharing options...
حمادة عمر قام بنشر يونيو 12, 2013 مشاركة قام بنشر يونيو 12, 2013 تقبل تحياتي جزاك الله خيرا رابط هذا التعليق شارك More sharing options...
عاطف عبد العليم محمد قام بنشر يونيو 20, 2013 مشاركة قام بنشر يونيو 20, 2013 (معدل) استاذنا الكريم بارك الله فيكم وجزاكم الله خير وجزى صاحب الكود خيرا وجزى من دلني عليه خيرا ـ الاخ رجب جاويش وإذا كان المطلوب الحفظ كل 15 دقيقة مثلا هل يكون السطر كالتالي (Rm = Now + TimeSerial(0, 14, C_Con أم يكون كالتالي Public Const C_Con = 15 (Rm = Now + TimeSerial(0, C_Con, 0 ام كلاهما صواب أم ما الصواب وما معنى هذا ()Private Sub Workbook_Deactivate Call St_AEnd Sub وفق الله الجميع لما يحبه ويرضاه تم تعديل يونيو 20, 2013 بواسطه atef0977 رابط هذا التعليق شارك More sharing options...
اسلام سيد قام بنشر يونيو 20, 2013 مشاركة قام بنشر يونيو 20, 2013 اخي الكريم / عبد الغني بارك الله فيك هو كود لاخ كريم ... ولكن تخونني الذاكرة في ذكر الاسم واصبح متعارف ويتم التعامل به جزاك الله خيرا علي مرورك الكريم جزاك الله خيرا اخى حماده الكود كان للاستاذ الفاضل / عباد ابو نصار راجع الرابط التالى http://www.officena.net/ib/index.php?showtopic=45107&hl= رابط هذا التعليق شارك More sharing options...
مصطفى كمال متولى قام بنشر يونيو 21, 2013 مشاركة قام بنشر يونيو 21, 2013 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.