How to turn off an autosave macro once it's been started? - VBA

[DCpics]

I have a person that gave me their spreadsheet which they use for manufacturing production. At the start of a shift, the shift supervisor presses a "Start of Shift" button. They asked me to place an autosave macro in there so it backs up throughout the day. I put the following macro in:

Sub AutoSave()
Application.DisplayAlerts = False
ThisWorkbook.Save
Application.DisplayAlerts = True

Application.OnTime Now + TimeValue("00:10:00"), "AutoSave"
End Sub

They have added an "End of Shift" button and it has things it does when they press that. They have asked me to turn off the autosave function when that button is pressed.

How do I turn off the macro? I can't figure out how to deactivate it.

Thank you for your help.

Mike

 

[ZVI]

Hi,
Try these macros to switch autosaving On/Off:

Option Explicit
 
Dim SaveDateTime As Date
 
Sub AutoSaveOn()
  ThisWorkbook.Save
  SaveDateTime = Now + TimeValue("00:10:00")
  Application.OnTime SaveDateTime, "AutoSaveOn"
End Sub
 
Sub AutoSaveOff()
  Application.OnTime SaveDateTime, "AutoSaveOn", Schedule:=False
End Sub

Regards

 

[DCpics]

Thank you very much for your quick help with this! That should work perfectly!

 

[ZVI]

You are welcome, Mike!