VBA auto save

autosave.vb

'-----------------------------------------------------------------------------
' Auto save because Microsoft forces you to use OneDrive for autosave now
' Instructions:
' 1. Show the Developer ribbon
' 2. Go into Visual Basic
' 3. Add a new module in Normal
' 4. Paste this code there


Const MINUTES_INTERVAL = 5 'Set the desired interval, in minutes

Public Sub Document_Open()
  Application.OnTime DateAdd("n", MINUTES_INTERVAL, Now), "AutoSaver"
End Sub

Private Sub AutoSaver()

  For Each CurrentDoc In Documents
      StatusBar = "Auto saving..."
      'Debug.Print "Saving " & CurrentDoc.Name & "..."
      
      With CurrentDoc
        'Only save if it needs saving
        If Not .Saved And Not .ReadOnly Then
            .Save
          'Verify successful save
          If not .Saved Then
              StatusBar = "Error saving " & .Name & ": " & Err.Description
            End If
        End If
      End With
      
      DoEvents
      
  Next
  
  'Set schedule for next auto save
  Application.OnTime DateAdd("n", MINUTES_INTERVAL, Now), "AutoSaver"

End Sub