Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1916to1920
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Alle MS-Office Anwendungen speichern

Alle MS-Office Anwendungen speichern
25.01.2023 14:10:36
marcus
Hallo Forum Taem,
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Alle MS-Office Anwendungen speichern
29.01.2023 04:28:04
oraculix
Versuche mal so.....
Sub Speichern()
Dim wb As Workbook
Dim doc As Document
Dim ppt As Presentation
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
For Each doc In Application.Documents
    doc.Save
Next
For Each ppt In Application.Presentations
    ppt.Save
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
Application.OnTime Now + TimeValue("00:02:00"), "Speichern"
End Sub
Gruß
Oraculix
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige