اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


إذهب إلى أفضل إجابة Solved by مختار حسين محمود,

الردود الموصى بها

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

:jump: :jump: :jump:

 

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

تم تعديل بواسطه مختار حسين محمود
  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

رابط هذا التعليق
شارك

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

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

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

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

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

  • Like 1
رابط هذا التعليق
شارك

السلام عليكم

 

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

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

رابط هذا التعليق
شارك

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

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

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

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

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

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) 

تقبل تحياتى

  • Like 1
رابط هذا التعليق
شارك

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

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

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

تم تعديل بواسطه Eng : Yasser Fathi Albanna
  • Like 2
رابط هذا التعليق
شارك

  • أفضل إجابة

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

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

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 ثوانى من غير ما تشعر   تحياتى

تم تعديل بواسطه مختار حسين محمود
  • Like 1
رابط هذا التعليق
شارك

 السلام عليكم

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

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

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

رابط الموضوع

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

فيديو بسيط

  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

 

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

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

تقبل تحياتي

  • Like 1
رابط هذا التعليق
شارك

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

 

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

 

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

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

تم تعديل بواسطه صلاح الصغير
رابط هذا التعليق
شارك

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

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

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

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information