AW: Makros löschen
19.05.2010 12:58:23
fcs
Hallo Ansgar,
hier ein Beispiel zum Löschen des Codes eines Tabellen-Moduls.
Auch noch beachten: Manche Virenscanner reagieren allergisch auf Exceldatein mit VBA-Prozeduren zur Code-Manipulation.
Ansonsten auch mal im Archiv stöbern, da sollten weitere Beispiele zu finden sein, die sich mit der Manipulation von VBA-Prozeduren beschäfftigen.
Gruß
Franz
Sub aatest()
Call entFerneCode(myWbk:=ActiveWorkbook, vTabelle:=1)
' Call entFerneCode(myWbk:=Workbooks("YXZ.xls"), vTabelle:="Tabelle1")
End Sub
Sub entFerneCode(ByRef myWbk As Workbook, vTabelle As Variant)
'sTabelle = Name oder Index-Nr. der Tabelle deren Code-Module gelöscht werden soll
'CodeName der Tabelle ermitteln
vTabelle = myWbk.Worksheets(vTabelle).CodeName
With myWbk.VBProject.VBComponents(vTabelle)
'Code löschen!
On Error Resume Next
.CodeModule.DeleteLines 1, .CodeModule.CountOfLines
On Error GoTo 0
End With
End Sub