Massenpfl.makro um Arbeitsmappenmodule zu leeren?

Forumthread: Massenpfl.makro um Arbeitsmappenmodule zu leeren?

alexander

Hallo,
ich habe eine Menge an Dateien wo ich gerne den VBA Code aus den Arbeitsblattmodulen löschen möchte. Dasselbe auch für den Code aus "Diese Arbeitsmappe".
Er soll die Dateien quasi nacheinander öffnen und den den Code rauslöschen (aber nur aus den Tabellenblattmodulen).
wie geht dies am Besten ?
Danke,
Alex

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: Massenpfl.makro um Arbeitsmappenmodule zu leeren?

19.08.2009 13:55:03

JogyB

Hi.

Sub deleteCode()
Dim daTei
Dim myFile
Dim myWbk As Workbook
Dim codeObject As Object
daTei = Application.GetOpenFilename("Excel Dateien (*.xls), *.xls", , , , True)
' Wenn kein Array, dann wurde Abbrechen gedrückt
If Not IsArray(daTei) Then Exit Sub
Application.ScreenUpdating = False
For Each myFile In daTei
On Error Resume Next
Set myWbk = Workbooks.Open(myFile)
' Wenn Öffnen erfolgreich, d.h. kein Fehler
If Err.Number = 0 Then
For Each codeObject In myWbk.VBProject.VBComponents
With codeObject
' Type 100 = Arbeitsblatt oder DieseArbeitsmappe
If .Type = 100 Then
.CodeModule.DeleteLines 1, .CodeModule.CountOfLines
' Hier evtl. noch eine Fehlerbehandlung
End If
End With
Next
myWbk.Close True
' Hier evtl. noch eine Fehlerbehandlung
End If
On Error GoTo 0
Set myWbk = Nothing
Next
Application.ScreenUpdating = True
End Sub

Gruss, Jogy

AW: Massenpfl.makro um Arbeitsmappenmodule zu leeren?

19.08.2009 13:59:41

Hajo_Zi

Hallo Alex,
ich hoffe mal der VBA Level stimmt nicht. Da ich keine weiteren Informationen gebe, da dies sehr tief in die Sicherheit geht. Wenn Dir nicht bekannt ist welche Einstellungen Du treffen mußt. Dann geht es nicht.

Public Sub alle_Makros_loeschen()
Dim objVBComponents As Object
With ThisWorkbook.VBProject
For Each objVBComponents In .VBComponents
Select Case objVBComponents.Type
Case 1, 2, 3 'Module, Klasssenmodule, Userforms
.VBComponents.Remove .VBComponents(objVBComponents.Name)
Case 100 'Workbook, Sheets
With objVBComponents.CodeModule
.DeleteLines 1, .CountOfLines
End With
End Select
Next
End With
End Sub

Von Nepumuk

Beliebteste Forumthreads (12 Monate)

Massenpfl.makro um Arbeitsmappenmodule zu leeren?

Forumthread: Massenpfl.makro um Arbeitsmappenmodule zu leeren?

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Massenpfl.makro um Arbeitsmappenmodule zu leeren?

Forumthread: Massenpfl.makro um Arbeitsmappenmodule zu leeren?

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread