Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
23.04.2024 17:00:22
Summe und Ausgabe
23.04.2024 16:27:34
Excel Starthinweis - Arbeitsmappenleistung überprüfen ...
23.04.2024 16:15:16
Mittels VBA vordefinierte Kommentare in Zellen einfügen?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
476to480
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige