هل يمكن عمل كود لحفظ الملف فى حالة انقطاع التيار

[صلاح الصغير]

السلام عليكم

لن اطيل عليكم السؤال فى العنوان

[مختار حسين محمود]

أخى طبعاً يمكن ذلك بكل تأكيد ولكن بعد عودة الكهرباء بالسلامة

:jump:

 

بهذر معاك يا أبوصلاح

تم تعديل أبريل 28, 2015 بواسطه مختار حسين محمود

[أستيكا]

ههههههههههههههههههه

مشكور أخى / 

مختار حسين محمود 

على مروركم الكريم

[صلاح الصغير]

ههههههههههههههههههههههههههههه

يا جماعة يمكن فهمتونى غلط

انا قصدى مش بعد قطع التيار انا قصدى يلحق يسرق الحفظ قبل قطع التيار

ده ممكن و لا تهيؤات

[حمادة عمر]

أخي الكريم صلاح

غير ممكن تنفيذ مثل ذلك الأمر

حيث أنه بانقطاع التيار ينتهي العمل بالحاسب

فمين بقا اللي ح يحفظ

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

[صلاح الصغير]

السلام عليكم

 

طيب نيجى نفكر مع بعض بصوت عالى شوية و ارجو ان صوتى ميزعجكوش

يجرى ايه لو عملنا كود ( قصدى لو عملتوا كود ) و يكون فى حدث الورقة و يكون بعد كل ضغطة انتر

[الصـقر]

اخى احبيب الاستاذ صلاح

الموضوع مش معقد

يمكنك ذالك بكل سهوله

ضع هذا الكود فى اى مودويل والموضوع يخص الاستاذ ياسر خليل حاولت البحث عن الموضوع الاصلى وللاسف لم اصل الي الرابط الخاص بالموضوع

 ولكن هذا هو الكود 

Public RunWhen As Double
Public Const cRunIntervalSeconds = 10
Public Const cRunWhat = "The_Sub"


Sub StartTimer()
RunWhen = Now + TimeSerial(0, 2, 0)
Application.OnTime earliesttime:=RunWhen, procedure:=cRunWhat, _
    schedule:=True
End Sub
Sub The_Sub()
ActiveWorkbook.Save
StartTimer
End Sub
Sub StopTimer()
   On Error Resume Next
   Application.OnTime earliesttime:=RunWhen, _
       procedure:=cRunWhat, schedule:=False
End Sub

ثم ضع فى حدث فتح الملف  هذا الكود 

Private Sub Workbook_Open()
StartTimer
End Sub

ثم ضع هذا بحدث قبل اغلاق الملف

Private Sub Workbook_BeforeClose(Cancel As Boolean)
StopTimer
End Sub

يمكن من هذا السطر بالكود  -- تحديد الوقت بين كل عمليه حفظ واخرى ( هو حاليا كل دقيقتين يقوم الجهاز بالحفظ التلقائى )

RunWhen = Now + TimeSerial(0, 2, 0) 

تقبل تحياتى

[Yasser Fathi Albanna]

  بعد إذن الأستاذ الفاضل / الصقر جرب الكود التالى : كود لعمل حفظ ذانى لملف الإكسيل

على رابط لى قد شاركت به من قبل

http://www.officena.net/ib/index.php?showtopic=59622&hl=%2Bauto+%2Bsave

يوضع الكود فى ThisWorkbook

Sub workbook_beforeclose(cancel As Boolean)
If Me.Saved = False Then Me.Save
End Sub

Auto Save Excel.rar

تم تعديل أبريل 28, 2015 بواسطه Eng : Yasser Fathi Albanna

[مختار حسين محمود]

 على فكرة  يا أبوصلاح أخوك مش ناسيك  كنت فى بالى وأنا مريح من عناء الاكسل النهردة  الصبحية

 كوداية صغيرة فى حدث المصنف زى دى

Private Sub Workbook_Open()
    AlertTime = Now + TimeValue("00:00:10")
    Application.OnTime AlertTime, "autosave"
End Sub

وحنة صغيرة فى مديول عادى زى دى

Sub autosave()
          Application.ScreenUpdating = False
          Application.DisplayAlerts = False
       ThisWorkbook.Save
    AlertTime = Now + TimeValue("00:00:10")
      Application.OnTime AlertTime, "autosave"
             Application.ScreenUpdating = True
         Application.DisplayAlerts = True
End Sub

الأثنين بيعملو حفظ تلقائى كل 10 ثوانى من غير ما تشعر   تحياتى

تم تعديل أبريل 28, 2015 بواسطه مختار حسين محمود

[محمد الريفى]

 السلام عليكم

بعيد عن الاكواد والمعادلات

هذه مشاركة بسيط منى

عمل نسخه احتياطيه من الملف تحفظ لك بياناتك من التلف

رابط الموضوع

http://www.officena.net/ib/index.php?showtopic=57348&hl=

فيديو بسيط

[ياسر خليل أبو البراء]

الاخ الحبيب حسام عيسى بارك الله فيك

الأخ صلاح الصغير

هذا رابط للموضوع ، الفكرة تقوم على أساس الحفظ كل فترة تقوم بتحديدها كل 10 ثواني ..كل دقيقة ..زي ما تحب

http://www.officena.net/ib/index.php?showtopic=56802&hl=

 

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

واشرب فوسفات وانسى اللي فات

تقبل تحياتي

[صلاح الصغير]

الاساتذة الافاضل / مختار - الصقر - حمادة -ياسر - محمد الريفى

 

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

 

طيب دلوقتى انتوا حيرتونى و عايز اتبع التعليمات

اختار اى اجابة ممكن تستثنونى المرة دى

تم تعديل أبريل 28, 2015 بواسطه صلاح الصغير

[مختار حسين محمود]

استفت قلبك  وخليك فى الأسهل

الكودين  الأول فى حدث المصنف والثانى مديول عادى   ومتقلش من موضوع  الرسائل 

العتمة هتخليك ما تشوفش حاجة  تحياتى

[أ/حكيم]

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

[محمد لطفى]

GOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOD