tredl127
Goto Top

AutoSAVE - Excel 2021 - nur online möglich

Hallo Zusammen!

Wir haben einen Windows Terminal Server 2019 mit installiertem Office 2021 Pro Plus.

Laut Microsoft ist die AutoSave Funktion nur in Verbindung mit Office365 verfügbar.

Meine Frage:

Gibt es irgend eine Möglichkeit per GPO oder RegKeys das Excel irgendwie zum automatischen offline
Speichern zu überreden?

Es gibt zwar diese Auto Wiederherstellungsfunktion aber ein reines AutoSave hätte ich noch nirgendswo gefunden.

Hat sich von euch schon mal mit diesem Thema beschäftigt bzw. irgend eine Lösung dazu gefunden?

lg

Tredl

Content-Key: 13190011248

Url: https://administrator.de/contentid/13190011248

Printed on: July 21, 2024 at 01:07 o'clock

Member: JasperBeardley
JasperBeardley May 27, 2024 at 12:52:30 (UTC)
Goto Top
Moin,

nein, das ist ein reines 365 Feature.

Gruß
Jasper
Mitglied: 9697748851
9697748851 May 27, 2024 at 15:05:47 (UTC)
Goto Top
Hi.

STRG + S ;)

Gruß
Member: tredl127
tredl127 May 27, 2024 at 15:22:35 (UTC)
Goto Top
Top Antwort!

Was glaubst wie oft wir das dem Mitarbeiter schon gesagt haben face-wink

Aber sobald vor dem Namen ein Titel steht, ist einfach alles anders .....
Mitglied: 13034433319
13034433319 May 27, 2024, updated at May 28, 2024 at 05:13:55 (UTC)
Goto Top
Das kann man sich mit ein bisschen VBA auch selbst nach Gusto programmieren face-smile. Und das dann als *.xlam AddIn speichern und in Excel einbinden. Dann wird beim Schließen von Mappen automatisch vorher gespeichert ohne das der User hier tätig werden müsste. Wenn man zwischendrin oder bei jeglicher Änderung sofort automatisch speichern will, das lässt sich bei Bedarf leicht nachrüsten, (s. weiter unten).

back-to-topNeue Mappe anlegen und Makros einsetzen


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

screenshot

back-to-topKlasse für die Workbooks erstellen


Public WithEvents Wb As Workbook

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

screenshot

back-to-topMappe als AddIn speichern


screenshot

back-to-topAddIn aktivieren


screenshot


Möchte man zusätzlich bei jeder Änderung am Sheet speichern ersetze man den obigen Klassen-Code durch diesen hier:

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

Gruß
Member: tredl127
tredl127 May 28, 2024 at 14:15:55 (UTC)
Goto Top
Danke face-wink

Gibt es auch eine Möglichkeit, dass er damit auch alle 5 Minuten speichert automatisch ?
Mitglied: 13034433319
13034433319 May 28, 2024 updated at 14:20:22 (UTC)
Goto Top
Zitat von @tredl127:
Gibt es auch eine Möglichkeit, dass er damit auch alle 5 Minuten speichert automatisch ?

Ja, kann ich später noch ergänzen.
Member: tredl127
tredl127 May 28, 2024 at 14:31:30 (UTC)
Goto Top
hast du das zufällig irgendwie in fertiger datei form auch schon für mich ?
Mitglied: 13034433319
Solution 13034433319 May 28, 2024 updated at 15:42:02 (UTC)
Goto Top
Zitat von @tredl127:

hast du das zufällig irgendwie in fertiger datei form auch schon für mich ?
Du hast ne PN. Da ist das Interval Speichern in 05:00 min. Intervallen auch mit drin.
Member: tredl127
tredl127 May 29, 2024 at 10:28:32 (UTC)
Goto Top
Danke für das Plugin. Hab dir eine Info zurück geschickt.

Excel fragt jetzt beim Beenden nicht mehr, ob gespeichert werden soll.
Mitglied: 13034433319
13034433319 May 29, 2024 updated at 10:38:46 (UTC)
Goto Top
Zitat von @tredl127:
Excel fragt jetzt beim Beenden nicht mehr, ob gespeichert werden soll.
Das ist so gewollt. Das Plugin speichert automatisch beim Schließen ...

Wenn du das nicht willst, kannst du aber einfach rausnehmen indem du diese Event-Prozedur entfernst
Private Sub wb_BeforeClose(Cancel As Boolean)
Member: tredl127
tredl127 May 29, 2024 at 10:41:32 (UTC)
Goto Top
Danke für die Info!

Wenn ich das rausnehme kommt die Meldung ob man speichern möchte oder?
Mitglied: 13034433319
13034433319 May 29, 2024 updated at 10:50:18 (UTC)
Goto Top
Zitat von @tredl127:
Wenn ich das rausnehme kommt die Meldung ob man speichern möchte oder?
Ja, aber nur sofern das Dokument seit dem letzten Speichern auch verändert wurde, das normale Verhalten von Excel eben.
Mitglied: 13034433319
13034433319 May 30, 2024 updated at 09:35:20 (UTC)
Goto Top
Dann bitte auch den Thread schließen wenn es das war.