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