انشئ موديل وكتب فيه الكود التالي
Public Sub save()
ThisWorkbook.save
RunWhen = Now + TimeSerial(0, 2, 0)
Application.OnTime RunWhen, "save", , True
End Sub
في ورقة العمل عند الحدث open اكتب الكود التالي
Private Sub autosave_Click()
Dim RunWhen As Double
ThisWorkbook.save
RunWhen = Now + TimeSerial(0, 2, 0)
Application.OnTime RunWhen, "save", , True
End Sub
سيقوم بالحفظ تلقائيا بعد كل دقيقتين
انا اعمل عليه منذ اكثر من 5 اشهر وهو شغال %100