Microsoft Excel

Herbers Excel/VBA-Archiv

Sicherheitskopie + Makros löschen

Betrifft: Sicherheitskopie + Makros löschen von: Andi
Geschrieben am: 31.08.2004 07:45:45

Morgen,

ich möchte von meiner Mappe Sicherheitskopieen anlegen. In dieser Kopie sollen aber alle Makros gelöscht werden. Nach 3 Kopien, soll die erste wieder überschrieben werden.

Kennt sich jemand damit aus und kann mir helfen?

Gruß Andi

  


Betrifft: AW: Sicherheitskopie + Makros löschen von: Andi
Geschrieben am: 31.08.2004 09:47:58

Hi,

habe folgenden Code gefunden:

Option Explicit

Private Const strKopiePfad As String = "D:\Eigene Dateien\Test"

Public WithEvents App As Application

Private Sub App_WorkbookOpen(ByVal Wb As Workbook)
    If Wb.Path = "D:\Eigene Dateien\Test\Allgemein" Then Wb.SaveCopyAs strKopiePfad & "\Sicherungskopie " & Left(Wb.Name, Len(Wb.Name) - 4) & " " & Format(Now, "dd.mm.yyyy hh.mm.ss") & " .xls"
    With Application.FileSearch
        .LookIn = strKopiePfad
        .FileType = msoFileTypeExcelWorkbooks
        .Filename = "Sicherungskopie " & Left(Wb.Name, Len(Wb.Name) - 4) & "*"
        If .Execute(msoSortByLastModified) > 5 Then Kill (.FoundFiles(1))
    End With
End Sub


Wie kann ich ihn an meine Bedürfnisse anpassen?

Bitte um Hilfe.

Gruß Andi


 

Beiträge aus den Excel-Beispielen zum Thema "Sicherheitskopie + Makros löschen"