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