AW: VBA löschern beim versenden
08.09.2010 10:35:15
Hajo_Zi
Hallo Alex,
Zugriff auf VBa Projekrt erlauben. (Anleitung dazu gebe ich nicht)
Public Sub alle_Makros_loeschen()
Dim objVBComponents As Object
With ThisWorkbook.VBProject
For Each objVBComponents In .VBComponents
Select Case objVBComponents.Type
Case 1, 2, 3 'Module, Klasssenmodule, Userforms
.VBComponents.Remove .VBComponents(objVBComponents.Name)
Case 100 'Workbook, Sheets
With objVBComponents.CodeModule
.DeleteLines 1, .CountOfLines
End With
End Select
Next
End With
End Sub
Von Nepumuk
Sub EntfernenEreignise()
With ThisWorkbook.VBProject.VBComponents("Tabelle1").CodeModule
.DeleteLines 1, .CountOfLines
End With
End Sub
Sub EreignisEinstellen()
With ThisWorkbook.VBProject.VBComponents("Tabelle1").CodeModule
.InsertLines 1, _
"
Private Sub Worksheet_Change(ByVal Target As Range)" & Chr(13) & _
" Msgbox ""Zellenänderung durchgeführt in Zelle: "" & Target.Address" & Chr(13) & _
"End Sub
"
End With
End Sub
Gruß Hajo