Alle Module in eine Mappe löschen
13.04.2008 19:43:00
Becker
Hallo werte Excellanten
Leider sind meine Kenntnisse in VBA noch begrenzt so das ich allein nicht weiter komme.
Habe hier in Forum den Code zum löschen der Module (s.u.) gefunden. In Office 2007 bekomme ich Fehler Meldung "Der programmatische Zugriff auf das Visual-Baisic-Projekt ist nicht sicher".
Was ist dran falsch?
Besser gesagt wie kann man alle Module(oder einen Modul) in eine Mappe nach ein gewisse Zeit löschen?
Public Sub alle_Makros_loeschen()
Dim vbc As Object
With Workbooks("Testmappe.xls").VBProject
For Each vbc In .VBComponents
Select Case vbc.Type
Case 1, 2, 3: .VBComponents.Remove .VBComponents(vbc.Name)
Case 100
With vbc.CodeModule
.DeleteLines 1, .CountOfLines
End With
End Select
Next
End With
End Sub
Wäre super, wenn mir jemand helfen könnte, der sich damit auskennt.
Ich Danke Euch für Euer Mühen
Freue mich über jeden Hinweis!
Netten Gruß Becker