www.Russ-Jesteburg.de > Excel > VBA > Datei

Einfache Datensicherung:

' Die einfachste Möglichkeit einer Datensicherung besteht
' in der Erstellung einer Kopie der Datei:
Sub Einfache_Datensicherung()
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs FileName:=ThisWorkbook.Path _
        & Application.PathSeparator & ThisWorkbook.Name & "-Sicherung.xls", _
        FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
    Application.DisplayAlerts = True
End Sub

Dieser Tipp ist vom 27.10.2004