beim start code Löschen
13.11.2006 06:48:36
roland_k
ich habe folgendes problem :-(
ich speichere automatisch per code eine mappe als "code_löschen_test.xls" ab
folgenden code habe ich im open_ereigniss:
Private Sub Workbook_Open()
If ThisWorkbook.Name <> "code.xls" Then
MsgBox "die mappe heisst nicht code_löschen_test.xls, VBA code wird gelöscht"
Modul1.DeleteCode
End If
End Sub
in Modul1 steht:
Sub DeleteCode()
Dim wks As Worksheet
Dim mdl As Object
With ActiveWorkbook.VBProject
For Each wks In Worksheets
With .VBComponents(wks.CodeName).CodeModule
.DeleteLines 1, .CountOfLines
End With
Next wks
With .VBComponents("Modul2").CodeModule
.DeleteLines 1, .CountOfLines
End With
End With
MsgBox "Alles klar!"
End Sub
nun wird aller code in den tabellen gelöscht,
sowie der code in modul2
aber der code in der arbeitsmappe
Private Sub Workbook_Open()wird nicht gelöscht
wie kann ich das anstellen,
dass sämtlicher code in der mappe "code_löschen_test.xls" nach dem ersten aufruf dieser datei gelöscht wird.
wie kann ich hier auch das modul2 entfernen nachdem der code gelöscht wurde?
oder kann ich z. b. gleich das modul2 entfernen ohne abfrage ob dieses exportiert werden soll.
danke, wenn mir da jemand helfen kann
gruss
roland_k