VBA-Beispiel 080
mail schreiben
mail schreiben

VBA-Code der aktiven Exceldatei entfernen

Nach Rückfrage jeden VBA-Code sowie Module, Klassenmodule und UserFormen der aktiven Exceldatei entfernen.
Sub VBA_Code_entfernen()
Dim Ding As Object
Dim Zeile As Long
Dim Antwort As Integer

Antwort = MsgBox("Wollen Sie wirklich alle VBA-Elemente in:" _
          & vbNewLine & ActiveWorkbook.Name & vbNewLine _
          & "komplett löschen?", vbOKCancel, _
          "Achtung!")

If Antwort <> 1 Then
  MsgBox "Keine Änderungen durchgeführt", , ""
  Exit Sub
End If

  For Each Ding In ActiveWorkbook.VBProject.vbcomponents

   'Type 100 = DieseArbeitsmappe und alle Tabellen
    If Ding.Type = 100 Then

      With ActiveWorkbook.VBProject.vbcomponents(Ding.Name).CodeModule
        For Zeile = 1 To .CountOfLines
          .DeleteLines 1
        Next Zeile
      End With

   'Type 1 = Modul, Type 2 = Klassenmodul, Type 3 = UserForm
    Else
      ActiveWorkbook.VBProject.vbcomponents.Remove Ding
    End If

  Next

MsgBox "Fertig", , ""
End Sub

Download:   vba080.zip