VBA code to backup Workbook everyhour

[Dhungana]

Hi,
Can anyone help me with quick and simple VBA code to backup excel file everyhour in different folder. This way I will have a backup file for my tracker which is shared to different users.

Thank you

 

[DanteAmor]

Note: To save the file every hour you need a macro that is latent, but that will make your sheet slower.

To start, run the "Start" macro. If you want to stop the execution, execute the "Finish" macro

The book will be saved every hour in a different folder, if it is 8am in the folder where you have the book and \08 folder; if it is 3pm in a folder where you have your book and \15 folder.

Dim actual


Sub Backup_everyhour()
   Dim wPath As String
   wPath = ThisWorkbook.Path & "\" & Format(Now(), "hh") & "\"
   ThisWorkbook.SaveCopyAs wPath & ThisWorkbook.Name & ".xlsm"
   actual = Now
   Application.OnTime earliesttime:=actual + TimeValue("01:00:00"), Procedure:="Backup_everyhour", schedule:=True
End Sub


Sub start()
   Call Backup_everyhour
End Sub


Sub finish()
   On Error Resume Next
   Application.OnTime earliesttime:=actual + TimeValue("00:00:05"), Procedure:="Backup_everyhour", schedule:=[COLOR=#0000ff]False[/COLOR]
End Sub