Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
476to480
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
476to480
476to480
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

automatich speichern

automatich speichern
02.09.2004 10:17:40
Georg
Hallo an Alle,
ich möchte ein Arbeitsblatt automatsich per VBA speichern lassen.
Dies soll immer dann gesehen, wenn der user 5 min keine Änderung vorgenommen
hat. Wer könnte mir da helfen?
Vielen Dank im voraus
Georg

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: automatich speichern
geri
Hallo Georg
so gehts
in diese MAPPE

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Zurücksetzen
End Sub


Private Sub Workbook_Open()
startzeit
End Sub


Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
startzeit
End Sub

in MODUL
Option Explicit
Dim datA As Date
Sub startzeit()
On Error Resume Next
Application.OnTime EarliestTime:=datA, Procedure:="Schließen", Schedule:=False
datA = Now + CDate("0:10:00")
Application.OnTime datA, "Schließen"
End Sub
Sub Schließen()
ThisWorkbook.Close True
End Sub
Sub Zurücksetzen()
Application.OnTime EarliestTime:=datA, Procedure:="Schließen", Schedule:=False
End Sub
gruss geri
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige