ذخیره خودکار فایل هر یک دقیقه

[yamahdi13601982]

با سلام و خسته نباشید.
میگم اگه بخوام ماکرویی بنویسم که هر یک دقیقه یکبار در حین انجام کارها ذخیره رو انجام بده باید چی بنویسم؟

[Amir Ghasemiyan]

با سلام و خسته نباشید.
میگم اگه بخوام ماکرویی بنویسم که هر یک دقیقه یکبار در حین انجام کارها ذخیره رو انجام بده باید چی بنویسم؟

سلام
دوست عزیز لطفا برای سوالتون تاپیک مجزا ایجاد کنید
سوال شما منتقل شد

[Amir Ghasemiyan]

و اما جواب شما.
از اونجایی که برای اینکه سر تایم مشخص یک کار انجام بشه باید یک حلقه نوشته بشه و برنامه داخل حلقه دائم بچرخه. پس با این حساب فکر نکنم این کار عملی باشه

ولی برای ذخیره خودکار میتونین از تنظیمات خود اکسل استفاده کنید. و تایم ذخیره رو به 1 دقیقه تغییر بدین.

[iranweld]

با سلام

در This workbook این کد را اضافه کنید

Private Sub Workbook_Open()

test

End Sub 

و ماکرویی که بایستی فراخوانی شود(بجای عدد 10 ثانیه زمان مورد نظر را به ثانیه یا در قسمت صفر وسط به دقیقه وارد کنید)

Sub test()

Application.OnTime (Now + TimeSerial(0, 0, 10)), "test"

Application.DisplayAlerts = False

ActiveWorkbook.Save

MsgBox "Saved"

Application.DisplayAlerts = True

End Sub 

[Amir Ghasemiyan]

با سلام

در This workbook این کد را اضافه کنید

Private Sub Workbook_Open()

test

End Sub 

و ماکرویی که بایستی فراخوانی شود(بجای عدد 10 ثانیه زمان مورد نظر را به ثانیه یا در قسمت صفر وسط به دقیقه وارد کنید)

Sub test()

Application.OnTime (Now + TimeSerial(0, 0, 10)), "test"

Application.DisplayAlerts = False

ActiveWorkbook.Save

MsgBox "Saved"

Application.DisplayAlerts = True

End Sub 

بابت کد ممنون ولی این کد شما فقط یک بار سیو میکنه. نه بصورت مداوم

[iranweld]

با سلام

فایل ضمیمه را ملاحظه بفرمایید چنین مشکلی ندارد هر 10 ثانیه فایل ذخیره شده و پیغام saved نمایش داده میشود

[Amir Ghasemiyan]

با سلام

فایل ضمیمه را ملاحظه بفرمایید چنین مشکلی ندارد هر 10 ثانیه فایل ذخیره شده و پیغام saved نمایش داده میشود

بله درسته. من تست نکرده بودم. ببخشید
من به خط اول کدتون توجه نکرده بودم