Dim SchedRecalc As Date
Sub Recalc()
Calculate
Call SetTime
End Sub
Sub SetTime()
SchedRecalc = Now + TimeValue("00:00:30")
Application.OnTime SchedRecalc, "Recalc"
End Sub
(اگر همه فایلهای باز را ببندم دیگر باز نمیشود)
آیا کدی چیزی هست که در برنامه بگذارم که موقع بستن فایل رویداد را از کار بیندازد ممنون میشوم راهنمائی کنید



کامنت