Makros mit Makro löschen
25.01.2006 17:20:30
HansHei
ich sitze heute schon den ganzen Tag an einem Problem und komme nicht voran. Ich möchte die Codes aus Tabellenblatt1 über Makro löschen. In der Recherche gibt es eine Menge Beispiele, aber alle geeigneten Codes haben eine Eigenschaft gemein: Sie melden Laufzeitfehler 1004, "Der programmatische Zugriff auf das Visual Basic-Projekt ist nicht sicher". In der With-Zeile bleiben bleibt alles hängen. Die Makro-Sicherheit habe ich schon mal auf niedrigste Sicherheit gestellt, hat aber nicht geholfen. Hier mal 2 Beispiele, die ich in einem Modul habe:
Sub machs()
Worksheets("Tabelle1").Activate
With Application.VBE.ActiveVBProject.VBComponents(ActiveSheet.CodeName).CodeModule
.DeleteLines 1, .CountOfLines
End With
End Sub
Sub Loeschen()
Dim WB As Workbook
Set WB = ActiveWorkbook
With WB.VBProject.VBComponents("Tabelle1").CodeModule
.DeleteLines 1, .CountOfLines
End With
End Sub
Sagt mir bitte jemand was ich falsch mache bzw. wies geht oder ob das was ich da versuche chancenlos ist?
Gruß
Hans