Sinnvoll, wenn man beispielweise eine Tabelle per Mail
versenden möchte,
die darin vorhandenen Makros allerdings nicht mit versenden
möchte.
Dieses Beispiel kopiert "Tabelle1" aus der aktiven
Arbeitsmappe
in eine neue Arbeitsmappe und löscht anschließend alle
Codezeilen.
ActiveWorkbook.Worksheets("Tabelle1").Copy
With ActiveWorkbook.VBProject.VBComponents("Tabelle1").CodeModule
.DeleteLines 1, .CountOfLines
End With
|
Download