Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Application.OnTime Now + TimeValue("00:05:00"), "AutoSave", , False
End Sub
Private Sub Workbook_Open()
Application.OnTime Now + TimeValue("00:05:00"), "AutoSave"
End Sub
Sub AutoSave()
Dim wb As Workbook
Dim msg As String
msg = "Do you want to save all of the open Workbooks now?" & vbCrLf & vbCrLf
msg = msg & "Selecting ""No"" disables the Auto Save function."
If MsgBox(msg, vbQuestion + vbYesNo, "Auto Save") = vbYes Then
For Each wb In Application.Workbooks
wb.Save
Next wb
Application.OnTime Now + TimeValue("00:05:00"), "AutoSave"
End If
End Sub