AW: automatisches Speichern
15.08.2007 11:04:00
Ramses
Hallo
dann geht das nur über VBA
Die Mappe öffnen
"ALT" +"F11" drücken um den VB-Editor zu starten
Doppelklick im Projektexplorer auf "Diese Arbeitsmappe" im "VBA Project DeineMappe.xls"
Dort diesen Code einfügen
Option Explicit
'Gehört in "Diese Arbeitsmappe" der
'Mappe wo die Automatische Speicherung
'funktionieren soll
Private Sub Workbook_Open()
'Starten des ersten Speichervorganges
AutoSaveWKB
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Speicheraufruf abbrechen
'Diese Speicheraktion wird von EXCEL verwaltet
'und läuft sonst in einen Fehler wenn die Mappe
'nicht mehr geöffnet ist
AutoSaveWKB SaveNextTime, "AutoAavewkb", False
End Sub
Rechte Maustaste auf "Diese Arbeitsmappe" im "VBA Project DeineMappe.xls"
Modul einfügen
Dort diesen Code einfügen
Option Explicit
'Alle 10 Minuten speichern
Const SaveTime As Integer = 10
'Variable für nächstes Speichern
Public SaveNextTime As Double
Sub AutoSaveWKB()
Dim Qe As Integer
'Speichert die aktuelle Mappe in voreingestellten
'Zeiten (Variable = SaveTime)
'Wenn die Mappe gespeichert werden soll
'Ohne Rückfrage, kann der Block zwischen den Sternchen gelöscht werden
'***************************
Qe = MsgBox("Soll die Mappe: """ & ThisWorkbook.Name & """ gespeichert werden?", vbYesNo + vbQuestion, "Autospeicherung")
If Qe = vbYes Then
ThisWorkbook.Save True
End If
'***************************
'---------------------------
'Dafür muss vor der nächsten Zeile
'das Hochkomma " ' " entfernt werden
'ThisWorkbook.Save True
'---------------------------
SaveNextTime = Now + TimeSerial(0, SaveTime, 0)
Application.OnTime SaveNextTime, "AutoSaveWKB"
End Sub
Gruss Rainer