Code alles gelöscht, trotzdem Makrowarnung
26.01.2005 23:39:31
Peter
ich weiß, das Thema gab es hier schon, trotzdem habe ich keine Lösung gefunden.
Ich entferne mit folgender Prozedur jeglichen Code aus ActiveWorkbook:
Dim filename, exportfile, i%, vc As VBComponent
Dim fname$, monat$, wb As Workbook
Set wb = ActiveWorkbook
On Error Resume Next
For Each vc In wb.VBProject.VBComponents
wb.VBProject.VBComponents.Remove vc
Next vc
On Error Resume Next
With wb.VBProject.VBComponents("DieseArbeitsmappe").CodeModule
.DeleteLines 1, .CountOfLines
End With
Danach wird die Datei unter anderem Namen gespeichert. Wenn ich sie wieder öffne, erhalte ich die Makrowarnung. Es sind aber keine Module (auch keine leeren) und keine Ereignisprozeduren in den Klassenmodulen "DieseArbeitsmappe" oder "TabelleXY" vorhanden, nicht eine Zeile Code. *Verzweifel*
Wenn jemand Rat weiß, schon mal vielen Dank.
Gruß
Peter