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

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

قام بنشر (معدل)

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

: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
قام بنشر

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

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

هذا رابط للموضوع ، الفكرة تقوم على أساس الحفظ كل فترة تقوم بتحديدها كل 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