Speichern nur als Excel-97

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Application.DisplayAlerts = False Cancel = True ActiveWorkbook.SaveAs Filename:="F:\Officedateien\ExcelDateien\Mappea1.xls", _ FileFormat:=xlExcel9795 Application.DisplayAlerts = True Cancel = False End Sub

Hallo Ralf
Erstmal vielen Dank - werde wie erwähnt morgen früh das Makro integrieren - melde mich dann nochmal.
Habe noch ne andere Frage - möchte von der besagten Datei pro Stunde eine Sicherungskopie anlegen. Mein zusammengebasteltes Makro läuft problemlos, so lange die Datei nicht freigegeben ist - bei Freigabe nur ein bis zwei User möglich - warum? Hast Du eine Erklärung dafür. Gibt es eine andere Lösung?


Private Sub Workbook_Open()
Zeitsteuerung
End Sub

Sub Speicherung()
Dim Phad As String
Phad = ThisWorkbook.Path
ActiveWorkbook.SaveCopyAs Filename:=Phad & "\" & Format(Now, "YY-MM-DD hh-mm") & " Plan-Backup.XLS"
Call Zeitsteuerung
End Sub
Sub Zeitsteuerung()
Application.OnTime Now + TimeValue("00:01:00"), "Speicherung"
End Sub
Kann erst morgen wieder antworten - bin heute nicht mehr am PC.
Tschüss
Thomas

Guten Morgen Ralf
Habe das Makro heute morgen getestet - prinzipiell läuft es, die Arbeitsmappe kann aber nicht freigegeben werden, es meldet sich ein Laufzeitfehler.
Wenn ich einen Test auf meinem Rechner mache, dann gehts. Sobald es auf dem Server läuft, geht's nicht mehr. Weisst Du wieso?
Vorlagen mit xlt kenne ich nicht, mach mich mal schlau auf dieser Homepage. Wenn ich es richtig verstehe, dann ist dies ähnlich einem .dot. Kann denn eine xlt auch freigegeben werden, resp. wie führe ich dann die verschiedenen File's zusammen?
Vielleicht zu Deinem Verständnis - beim File handelt es sich quasi um eine Abwesenheitsliste. Diese Liste wird aber ständig geändert, da Leute eingeschrieben sind, die jetzt hier sind, nachher dort, dann am Nachmittag wieder an einem anderen Ort, etc. sind. Es haben ca. 10-15 Personen direkten Zugriff auf das File und ändern und ändern und ändern... die Eintragungen.
Da vielleicht mal aus versehen was gelöscht, geändert oder korrigiert wird, was nicht hätte sein sollen habe ich mir das automatische Backup ausgedacht. So weit so gut, nur läufts nicht wenn's freigegeben wird - do. Deinem Vorschlag mit der Abspeicherung in Version Excel97.
Weisst Du noch einen Rat?
Viele Grüsse
Thomas

Beliebteste Forumthreads (12 Monate)

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread