datei schliessen nach zeit und speichern (fehler)
02.12.2004 10:23:59
norman
Ich habe ein kleines Problem
Habe eine Datenbank errichtet in Excel die auf einen Server liegt
Jetzt habe die Leute die diese Datei benötigen eine Verknüpfung auf ihren PC
Die Leute die Windows -NT auf ihren PC haben funktioniert dieses aber nicht... upps
ist nicht ganz richtig hmm ........
schliessen und speichern nach zeit ja ...
aber nach einiger Zeit öffnet die Excel Datei sich wieder ?!!
(datei_ schliessen_nach_zeit_und speichern)
könnte mir jemand helfen......bitte......
Arbeitsmappe....
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
Sub AutomatischSpeichern()
ThisWorkbook.Close SaveChanges:=True
End Sub
----------------------------------------------------------------------------------
Modul
Dim datA As Date
Sub startzeit()
On Error Resume Next
Application.OnTime EarliestTime:=datA, Procedure:="Schließen", Schedule:=False
datA = Now + CDate("0:00:30")
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
Danke für die Hilfe
Gruß
norman