Alle MS-Office Anwendungen speichern
25.01.2023 14:10:36
marcus
ich habe ein Excel-Macro, das mir im Hintergrund alle geöffnete Excelanwendungen im Zyklus von 2 Min. automatisch speichert.
Sub Speichern()
Dim wb As Workbook
Application.DisplayAlerts = False
Application.ScreenUpdating = False
For Each wb In Application.Workbooks
If Not wb.ReadOnly And Windows(wb.Name).Visible Then
wb.Save
End If
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
Application.OnTime Now + TimeValue("00:02:00"), "Speichern"
End Sub
Wie kann der Code dahin geändert werden (wenn es geht) das alle geöffnete Office-Programme (Word, PowerPoint) automatisch im 2 Minuten Zyklus gespeichert wird.Danke im Voraus
Anzeige