Beim öffen soll gefragt werden kopie anlenen ja7ne
28.09.2007 10:33:00
maruseru
Das folgende Marko wird jedesmal beim öffen der Datei ausgeführt. Ich möchte nun lieber ein 'auto_open' Makro, das fragt via Messagebox soll die Datei archiviert werden ja/nein.
Wenn ja, soll Marko laufen und eine Meldung ausgeben Datei gespeichert. Dies ohne erscheinen der Meldung 'Datei vorhanden soll sie überschieben werden'.
Wenn nein 'bla bla bla' (muss ich mir noch überlegen)
Freundliche Grüsse
Maruseru
Sub auto_open()
' Save each time when open the file a copy with the actual date and time
Dim DName, Dateiname, Pfad
Pfad = "X:\KRES\KRES2\a_KIXH_3_Management\Problem Change Management\Utilities\Archive\RfC _
Recorder Version"
DName = "Archived RfC Recorder_actual "
Dateiname = Pfad & "\" & DName & Format(Now, "YYYY.MM.DD HH.MM") & ".xls"
ThisWorkbook.SaveCopyAs Filename:=Dateiname
End Sub