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