AutoSAVE - Excel 2021 - nur online möglich

Dim colSaveHandlers As New Collection
Dim WithEvents app As Application

Private Sub app_NewWorkbook(ByVal Wb As Workbook)
    Dim autosave As New clsAutosave
    Set autosave.Wb = Wb
    colSaveHandlers.Add autosave
End Sub

Private Sub app_WorkbookOpen(ByVal Wb As Workbook)
    Dim autosave As New clsAutosave
    Set autosave.Wb = Wb
    colSaveHandlers.Add autosave
End Sub

Private Sub Workbook_Open()
    Set app = Application
End Sub

Public WithEvents Wb As Workbook

Private Sub wb_BeforeClose(Cancel As Boolean)
    If Wb.Path <> "" And Not Wb.Saved Then Wb.Save  
End Sub

Public WithEvents Wb As Workbook

Private Sub wb_BeforeClose(Cancel As Boolean)
    AutoSave
End Sub

Private Sub Wb_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    AutoSave
End Sub

Sub AutoSave()
    If Wb.Path <> "" And Not Wb.Saved Then  
        Application.StatusBar = "Autosaving workbook """ & Wb.FullName & """ ..."  
        Wb.Save
        Application.StatusBar = ""  
    End If
End Sub

Private Sub wb_BeforeClose(Cancel As Boolean)