Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
592to596
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
592to596
592to596
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Makros automatisch löschen

Makros automatisch löschen
06.04.2005 16:19:40
steve
Hallo,
ich erstelle mit diesem Makro eine neue Datei mit dem aktiven Tabellenblatt und 3 festen Blättern und speicher diese automatisch.
Sub Blattspeichern()
Dim NewDateiname2 As String
Dim NewPfad2 As String
Dim wbkNeu As Workbook
Dim strActSheet As String
Dim i As Integer
strActSheet = ActiveSheet.Name
With Sheets("Verknüpfungen")
NewDateiname2 = .Range("A23")
NewPfad2 = .Range("A22")
End With
prtcmd2 = NewPfad2 & NewDateiname2
ThisWorkbook.SaveCopyAs Filename:=prtcmd2 & ".xls"
Set wbkNeu = Workbooks.Open(Filename:=prtcmd2 & ".xls")
With wbkNeu
For i = .Sheets.Count To 1 Step -1
Select Case .Sheets(i).Name
Case strActSheet, "Formeln", "Verknüpfungen", "Importdateien"
'nix passiert
Case Else
Application.DisplayAlerts = False
Sheets(i).Delete
Application.DisplayAlerts = True
End Select
Next i
.Close True
End With
MsgBox "Datei " & prtcmd2 & " erstellt!"
Exit Sub
wie kann ich jetzt noch definieren, dass in der neuen Datei automatisch alle Makros gelöscht werden?
MfG
Steve

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makros automatisch löschen
06.04.2005 16:48:20
tombo
Hi,
das löscht alle VB-Komponeneten:

Sub AlleVBEKomponentenEntfernen()
Dim VBkomp As VBComponent
On Error Resume Next
For Each VBkomp In DEINENEUDATEI.VBProject.VBComponents
Worbooks(DEINENEUDATEI).VBProject.VBComponents.Remove VBkomp
Next VBkomp
End Sub

"DEINENEUDATEI" muß natürlich angepasst werden.
Gruß tombo
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige