Co-worker doesn’t know how to save

[VBE313]

My co-workers computer turned off due to a power outage and lost his file he was working on for hours and didn’t save. Is there an application code that can do create an if statement like

If Application has been open for 20 minutes, msgbox “Save!!”

 

[lrobbo314]

You can use these in a standard module.

Sub XALL()
Application.OnTime Now() + TimeValue("0:20:00"), "SAVEPROMPT"
End Sub


Sub SAVEPROMPT()
MsgBox "SAVE!"
XALL
End Sub

Then in the workbook code add this.

Private Sub Workbook_Open()
XALL
End Sub