Microsoft Excel

Herbers Excel/VBA-Archiv

automatich speichern

Betrifft: automatich speichern von: Georg
Geschrieben am: 02.09.2004 10:17:40

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

  


Betrifft: AW: automatich speichern von: geri
Geschrieben am: 02.09.2004 10:24:37

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


 

Beiträge aus den Excel-Beispielen zum Thema "automatich speichern"