Für Hajo_Zi / neue Datei für versuch
03.04.2005 07:47:37
tino
da ich Dich gestern etwas verärgert habe,
bitte ich Dich mir nun doch zu helfen.
Es geht um dass öffnen in einem neuen
Fenster.
Habe eine neue Datei angelegt.
Da geschieht es auch, ist diese Datei offen
und öffne eine bestehende und möchte alle
schließen (drücke X ganz oben rechts) läuft dieses Makro ab und zum Schluss
bleiben alle offen. Normalerweise kommt ja
eine Meldung, ob ich die Änderung speichern möchte
aber diese bleibt auch aus.
Zu deiner Sicherheit, es ist nur dieser Code
enthalten. Kein Schutz usw.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Workbooks("Versuch.xls").Activate
Application.DisplayAlerts = False
On Error Resume Next
Sheets("Tabelle3").Select
'Sicherung anlegen alle 3 Tage
If Sheets("Tabelle2").Range("a1") < Date - 2 Then
ActiveWorkbook.SaveAs Filename:= _
"c:\sicherungVersuch.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
Sheets("Tabelle2").Range("a1") = Date
End If
'Orginal wieder herstellen
ActiveWorkbook.SaveAs Filename:= _
"c:\Versuch.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
Application.DisplayAlerts = True
Me.Saved = True
End Sub
https://www.herber.de/bbs/user/20539.xls
Ich Danke Dir schon mal im
vorraus.
Gruss Tino