السلام عليكم ورحمة الله وبركاته
بعد إذن حضراتكم هذا تعديل بسيط فقد قمت بدمج الكوين وهذه النتيجة
كود الحفظ التلقائي كل مدة 15 ثانية أو عند إغلاق ملف الاكسيل دون المطالبة بالحفظ
هذا الكود يوضع في حدث : Workbook
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
ThisWorkbook.Save
Application.Quit
End Sub
Private Sub Workbook_Open()
Call St_A
End Sub
هذا الكود يوضع في حدث : Module
Public Rm As Double
Public Const C_Con = 15
Public Const Sc_W = "Ex"
Public Sub St_A()
On Error Resume Next
Rm = Now + TimeSerial(0, 0, C_Con)
Ali_C Rm, Sc_W, True
End Sub
Sub Ex()
Application.DisplayAlerts = False
ThisWorkbook.Save
Application.DisplayAlerts = True
St_A
End Sub
Public Sub Ext()
Ali_C Rm, Sc_W, False
End Sub
Public Function Ali_C(St As Double, Sa As String, Bn As Boolean)
On Error Resume Next
With Application
DoEvents
.ScreenUpdating = False
.EnableEvents = False
.OnTime EarliestTime:=St, Procedure:=Sa, Schedule:=Bn
.EnableEvents = True
.ScreenUpdating = True
End With
End Function
ومرفق ملف بعد التجربة
وشكرا لكم جميعًا فلكم يرجع الفضل بعد الله عز وجل .
مطلوب دالة.rar