Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
476to480
476to480
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Sicherheitskopie + Makros löschen

Forumthread: Sicherheitskopie + Makros löschen

Sicherheitskopie + Makros löschen
31.08.2004 07:45:45
Andi
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
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Sicherheitskopie + Makros löschen
31.08.2004 09:47:58
Andi
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
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige