Sub test()
Dim NewDateiname2 As String
Dim NewPfad2 As String
Dim sFile As String
Dim strActSheet As String
strActSheet = ActiveSheet.Name
With Sheets("Verknüpfungen")
NewDateiname2 = .Range("A23")
NewPfad2 = .Range("A22")
End With
prtcmd2 = NewPfad2 & NewDateiname2
ThisWorkbook.SaveCopyAs Filename:=prtcmd2 & ".xls"
Application.ScreenUpdating = False
sFile = prtcmd2 & ".xls"
If Dir(sFile) = "" Then
MsgBox "Arbeitsmappe wurde nicht gefunden!"
Else
Application.DisplayAlerts = False
With sFile.VBProject
.VBComponents.Remove .VBComponents("Textimport")
End With
Application.DisplayAlerts = True
End If
Application.ScreenUpdating = True
End Sub
Application.VBE.VBProjects("Mappe1").VBComponents.Remove ("Makro")
Sub test()
Dim NewDateiname2 As String
Dim NewPfad2 As String
Dim sFile As String
Dim strActSheet As String
strActSheet = ActiveSheet.Name
With Sheets("Verknüpfungen")
NewDateiname2 = .Range("A23")
NewPfad2 = .Range("A22")
End With
prtcmd2 = NewPfad2 & NewDateiname2
ThisWorkbook.SaveCopyAs Filename:=prtcmd2 & ".xls"
Application.ScreenUpdating = False
sFile = prtcmd2 & ".xls"
If Dir(sFile) = "" Then
MsgBox "Arbeitsmappe wurde nicht gefunden!"
Else
Application.DisplayAlerts = False
Application.VBE.VBProjects(sFile).VBComponents.Remove ("Makro")
Application.DisplayAlerts = True
End If
Application.ScreenUpdating = True
End Sub
