Code beim kopieren löschen
Bowl
ich habe eine Arbeitsmappe mit am Haufen an Makros darin.
Nun möchte ich die entsprechende Datei automatisch (jede woche einmal oder so) oder per schaltfläche
automatisch kopieren/in einem anderen verzweichnis speichern und anschließend auf der kopie sämtliche schaltflächen löschen sowie den ganzen Code(ist in DieseArbeitsmappe, auf verschiedenen Tabellenblättern entfernen und auch in Modulen.
Falls ich das ganze automatisch laufen lasse, ist denk ich beim speichern und verlassen der ursprünglichen Datei am besten und anschließend beide Fenster schließen oder?
Code für die Sicherungskopie an sich hab ich:
Private Sub Sicherungskopie_Click()
Dim x As Long
Dim myShape As Shape
Dim ws As Worksheet
Dim i As Integer
ActiveWorkbook.Save
x = ActiveSheet.Cells(2, 17).Value
ChDir _
"C:\Dokumente und Einstellungen\e.burger\Desktop\TESTPLANUNG\Auftragsplanung 2009\ _
Sicherung"
ActiveWorkbook.SaveAs Filename:= _
"C:\Dokumente und Einstellungen\e.burger\Desktop\TESTPLANUNG\Auftragsplanung 2009\ _
Sicherung\Auftragsplanung-" & "KW" & x & ".xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Application.ScreenUpdating = False
For i = 1 To Sheets.Count
Sheets(i).Activate
Sheets(i).Unprotect
For Each myShape In ActiveSheet.Shapes
myShape.Delete
Next
Next
Application.ScreenUpdating = True
With Application
.DisplayAlerts = False
.Quit
End With
Windows("Auftragsplanung-" & "KW" & x & ".xls").Close
End Sub
Falls dies beim öffnen geschieht müsste ja die ursprüngliche datei wieder geöffnet werden, was auch nicht so recht klappt.
was das ganze erschwert ist noch, dass ich workbook_open und before_close anweisungen drin hab
irgendjemand ne idee oder nen kleinen tipp
wäre sehr dankbar
Grüße
Bowl