Gelöschte von Makros / VBA-Module verschwinden nic
25.06.2004 15:53:46
Makros
Nach Durchlaufen der Lösch-Prozedur sind die Macros im Projekt-Fenster aber alle noch sichtbar.
A) Mache ich unmittelbar nach dem Durchlaufen der Lösch-Prozedur einen Save, bleiben die Makros
in der abgespeicherten Datei (Mappe) erhalten.
B) Breche ich dagegen nach der Lösch-Prozedur das Macro ab, sind die Macros im Projekt-Fenster
- wie gewünscht - verschwunden, ebenso beim nachfolgenden Abspeichern.
===) Wie erreiche ich ein Verschwinden der gelöschten Makros im normalen VBA-Durchlauf?
Meine Lösch-Prozedur:
Public
Sub prc00271_ModuleListLösch()
Dim CodeObj As Object
Dim VBkomp As VBComponent
Dim sFile As String
sFile = ThisWorkbook.Path & "\" & Kopie
If Dir(sFile) = "" Then
MsgBox "Arbeitsmappe " & sFile & " wurde nicht gefunden!"
Else
'Workbooks.Open sFile '# ist hier schon offen
If Val(Application.Version) >= 8 Then
For Each VBkomp In ActiveWorkbook.VBProject.VBComponents
Select Case VBkomp.Type
Case Is = 1
'# Zum Testen MsgBox anzeigen lassen
'MsgBox ("Typ = " & VBkomp.Type & Chr(13) & _
"Name = " & VBkomp.Name)
ActiveWorkbook.VBProject.VBComponents.Remove VBkomp
End Select
Next VBkomp
End If
End If
End Sub