---

Hallo,

ich möchte den Code eines Worksheets löschen. Geht das? Falls ja - wie?

Hintergrund: Ich kopiere ein Register mit Buttons und Grafiken in eine neue Mappe. Alle anderen Register der neuen Mappe werden gelöscht (neue Mappe enthält damit genau ein Register). Die Buttons werden gelöscht. Die neue Mappe wird gespeichert. So weit, so gut - die neue Mappe enthält (optisch) keine Schalter mehr.

Die CommandButtons (aus der Symbolleiste Steuerelemente) sind in der ursprünglichen Mappe erforderlich. Ihre Funktionalität wird in der neuen Mappe nicht mehr benötigt. Die neue Mappe ist eine Art "Archiv", das nur noch gelesen werden muss. (Die Option, ein pdf zu drucken, ist zwar schön - einem pdf kann ich allerdings keinen Pfad etc. zuweisen, also bleibt's bei Excel und VBA. 41 kB (mit Makros) bzw. 34 kB (ohne Makros) Dateigröße kann ich verkraften.)

Wenn ich den Code des Worksheets per Hand lösche, wird die Datei kleiner - und es liegen keine "toten" Makros herum. Je nach Einstellung bleibt außerdem die "Makros-Aktivieren"-Meldung aus.

Danke im Voraus,
Frederik

------------------
DIN1055.de  |  Lastannahmen für Anwender

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Frederik,
wäre DAS nicht was für Dich?

Grüsse, Henning

------------------
Henning Jesse
VoxelManufaktur
Computer-Dienstleistungen für Architekten und Ingenieure

  http://www.voxelman.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Henning,

genau das, was ich brauche - und schnell bist Du!

Der Code ist mit Vorsicht zu behandeln, da er in einer Mappe auch sich selbst wegputzt. Das überrascht mich ein wenig, denn es erscheint die MsgBox "Fertig" (siehe link), obwohl es eigentlich kein Modul mehr gibt..? Faszinierend! Einzelschrittmodus is' nich - naja. Zum Testen am besten in eine neue, leere Mappe kopieren, da kann man nichts kaputt machen.

Diesen Teil habe ich übernommen:

Code:

---

Private Sub VBA_Code_entfernen(objWB As Workbook)

'löscht VBA-Code der Mappe objWB
'Quelle: http://vba1.de/vba/080vbe_clean.php
Dim obj As Object
Dim lgLine As Long

'Debug.Print objWB.FullName

    With objWB.VBProject.vbcomponents
        For Each obj In objWB.VBProject.vbcomponents
          'Type 100 = DieseArbeitsmappe und alle Tabellen
            If obj.Type = 100 Then
                With objWB.VBProject.vbcomponents(obj.Name).CodeModule
                    For lgLine = 1 To .CountOfLines
                        .DeleteLines 1
                    Next lgLine
                End With
            End If
        Next
    End With

End Sub

---

Danke, Danke, Danke - es läuft bei mir soweit und erfüllt seinen Zweck. Du weißt nicht zufällig, was genau es mit "Type 100" auf sich hat? Die Hilfe ist etwas dünn...

------------------
DIN1055.de  |  Lastannahmen für Anwender

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

also Du kannst ja code direkt in die Arbeitsmappe packen, oder in Module in der Arbeitsmappe, oder in Klassenmodule, oder in Forms, und das sind dann ebend die verschiedenen Types (für solche Fragen suche ich immer gerne DA)

Grüsse, Henning

------------------
Henning Jesse
VoxelManufaktur
Computer-Dienstleistungen für Architekten und Ingenieure

  http://www.voxelman.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Jupp,

nochmal danke, Dein link ist Klasse! Ich habe gegoogelt - und hier eine Übersicht gefunden (englisch).

Frederik

------------------
DIN1055.de  |  Lastannahmen für Anwender

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP