گرفتن پشتیبان در زمان های دلخواه

[ali.b]

سلام یکی از مشکلاتی که داشتم این بود که نیاز داشتم فایل اکسل من در زمانهایی که میخوام به صورت خودکار از خودش پشتیبان بگیره

دونوع کد میزارم امیدارم به درد شما بخوره

Sub start()If Hour(Now) <= 7 Then SaveTime = "07"
If Hour(Now) > 7 And Hour(Now) <= 16 Then SaveTime = "16"
If Hour(Now) > 16 And Hour(Now) <= 23 Then SaveTime = "23"
Application.OnTime TimeValue(SaveTime & ":00:00"), "AutoSave"
End Sub

Sub AutoSave()ActiveWorkbook.Save
If Hour(Now) <= 7 Then SaveTime = "07"
If Hour(Now) > 7 And Hour(Now) <= 16 Then SaveTime = "16"
If Hour(Now) > 16 And Hour(Now) <= 23 Then SaveTime = "23"
Application.OnTime TimeValue(SaveTime & ":00:00"), "AutoSave"
End Sub

من 3 زمان رو در نظر گرفتم ساعت 7 صبح ساعت ، 4 عصر یا همون 16 و ساعت 11 شب یا 23
میشه از طرق ادرسی دهی منبع ساعت ها رو به شیت خاصی ارجاع بدین تا در صورت تغییر مشکلی براتون پیش نیاد
مثلا مینویسیم Sheet1.range("A1") یعنی از شیت 1 و سلول a1 ساعت منو رو بیین