Modülleri silmek

[dEdE]

Merhaba Excel Dostları,

Aşağıdaki kodlarla Modul1'i silebiliyorum.

Sub Delete_Module()
ThisWorkbook.VBProject.VBComponents.Remove ThisWorkbook.VBProject.VBComponents("Module1")
End Sub

Adı ne olursa olsun tüm modülleri silebilmek için kodda nasıl bir değişiklik yapmalıyım?

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodları deneyiniz.

Alıntı; http://www.cpearson.com/excel/vbe.aspx

    Sub DeleteAllVBACode()
        Dim VBProj As VBIDE.VBProject
        Dim VBComp As VBIDE.VBComponent
        Dim CodeMod As VBIDE.CodeModule
        
        Set VBProj = ActiveWorkbook.VBProject
        
        For Each VBComp In VBProj.VBComponents
            If VBComp.Type = vbext_ct_Document Then
                Set CodeMod = VBComp.CodeModule
                With CodeMod
                    .DeleteLines 1, .CountOfLines
                End With
            Else
                VBProj.VBComponents.Remove VBComp
            End If
        Next VBComp
    End Sub

 

[dEdE]

Teşekkürler Sayın Ayhan,

Kodlar işe yaradı.
Başlangıçta aldığım;
User-defined type not defined
Invalid procedure call or argument (Error 5)hata mesajlarını
Refereces... den Microsoft Visual Basic for Applications Extensibility 5.3 seçerek ve Araçlar/Makro/Güvenlik/Güvenilen Yayımcılar sekmesinden
Visual Basic Project erişimine güven onaylayarak aştım ve harika çalıştı.

Tekrar teşekkürler.
Saygılar.