Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 10:08:11
Summieren von Zellen mit bedingter Formatierung
26.04.2024 09:08:00
Export alle Tabellenblätter als csv - in bestimmten Ordner
26.04.2024 08:56:40
Über alle Spalten nur €-Werte zählen
26.04.2024 08:08:24
Pivot Vormonatsveränderung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1208to1212
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1208to1212
1208to1212
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro per VBA löschen

Makro per VBA löschen
Peter
Hallo Excel-Experten,
in einer Arbeitsmappe (Berechnungsformular) werden Aktualisierungen vorgenommen. Vor dem Schließen und Speichern (unter neuem Namen) werden per VBA sämtliche Formeln und Schaltflächen gelöscht.
Die etwa 20 Makros sollten ebenfalls gelöscht werden. Ist das per VBA möglich, und wie würde ggf. der Code dafür aussehen.
Danke für Eure Ideen dazu.
Gruß,
Peter F.

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Makro per VBA löschen
11.04.2011 18:44:24
Josef

Hallo Peter,
' **********************************************************************
' Modul: Modul1  Typ: Allgemeines Modul
' **********************************************************************
Option Explicit
Sub deleteAllCodeAndModules(ByVal WBook As String)
  Dim objVBComp As Object
  With Workbooks(WBook).VBProject
    For Each objVBComp In .vbcomponents
      If objVBComp.Type = 100 Then
        With .vbcomponents(objVBComp.Name).CodeModule
          .DeleteLines 1, .CountOfLines
        End With
      Else
        .vbcomponents.Remove objVBComp
      End If
    Next
  End With
End Sub

Sub test()
  deleteAllCodeAndModules "copyme.xls"
End Sub



« Gruß Sepp »

Anzeige
AW: Makro per VBA löschen
12.04.2011 09:33:13
Peter
Danke Sepp !
Gruß,
Peter

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige