Auto Save excel file

[Abhijeet]

Hi

I have macro but that is not work please tell me i want auto save excel file in every 5 min please tell me how to do this

after open this file in this line error is show
Application.OnTime TimeValue(vartimer), "Salva"

 

[Hui]

Have you considered that Excel can do this by default without any code?

Goto the File, Options Menu and Select Save

 

[Abhijeet]

This Recover files save i want to excel file auto save not recover file
I have link Table in PPT i want to update in PPT slide show automatically when changes in excel file

 

[Abhijeet]

I check this when i input in excel then before save the file if i close then its ask file want to save or not means this is not work i want to auto save

 

[Abhijeet]

Hi Hui

Its work but file is save in Auto recover folder file please tell me main file how to auto save

 

[Chihiro]

I'd recommend built-in feature as well, as it saves back up to which you can revert if something went wrong with workbook. However, here's how I would do it on code side.

In Standard Module

Public sTime As Date
Sub Auto_Save()
On Error Resume Next
sTime = Now + TimeValue("00:05:00")
Application.OnTime sTime, "Auto_Save"
End Sub
Sub Stop_Save()
Application.OnTime sTime, "Auto_Save", , False
End Sub
Sub CloseWorkbook()
On Error Resume Next
Stop_Save
ThisWorkbook.Save
ThisWorkbook.Close
End Sub

In Workbook Module

Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Stop_Save
ThisWorkbook.Save
End Sub
Private Sub Workbook_Open()
Auto_Save
End Sub

I usually like to have some indication that code is firing. If you like, add "Beep" after "sTime" line in Auto_Save.

 

[Abhijeet]

yes pls tell me how to add beep

 

[Chihiro]

Hm? Like I wrote above insert "Beep" (without quotes) below "sTime = ..." line in Auto_Save sub.

 

[Abhijeet]

When file is shared then different user also save the data that not reflect can u please tell me how to do this

 

[Chihiro]

Personally, I hate shared workbooks and avoid it like plague. I'm afraid I won't be able to help much there.

 

[Abhijeet]

In share workbook this option is this work in this case