Denn mit diesem Code lösche in den VBA Code in der Sicherungscopy, dies funktioniert aber trotzdem fragt Excel beim Öffnen, ob die Makros aktiviert werden sollen, die ja eigentlich nicht da sind!!!
Code:
Sub Import_oeffnen()
'Pfad erstellen
NeuerPfad
'Frage nach persönlicher Sicherheitskopie
IhreWahl = MsgBox("Möchten Sie vor dem Einlesen einer neuen Datei eine persönliche Sicherheitskopie erstellen.", _
vbQuestion + vbYesNo, "Sicherungskopie")
If IhreWahl = vbYes Then
Application.ScreenUpdating = False
Windows("Serienbrief_TB.xls").Activate
Sheets("Quelle").Select
ActiveSheet.Copy
'VBA Code in Sicherungscopy löschen
Dim WOB As Workbook
'Worksheets("Tabelle1").Copy
Set WOB = ActiveWorkbook
With WOB.VBProject.VBComponents("Quelle").CodeModule
.DeleteLines 1, .CountOfLines
End With
ChDrive "C"
ChDir "C:\Seriendruck\Sicherung\persönliche Sicherungen"
varFName = Application.GetSaveAsFilename(, "Sicherungsdateien (*.bak),*.bak")
ActiveWorkbook.SaveCopyAs Filename:=varFName
ActiveWorkbook.Close Savechanges:=False
Sheets("Quelle").Select
Application.ScreenUpdating = True
On Error GoTo Dateil
Kill "C:\Seriendruck\Sicherung\persönliche Sicherungen\False"
Dateil:
Else
nicht = MsgBox("Es wurde keine persönliche Sicherheitskopie erstellt." & Chr(10) & "Das Importieren wird nun fortgesetzt.", vbInformation, "Sicherheitskopie")
End If
End Sub
Danke für Eure Hilfe
Steffen