modul silme

[merakli_72]

arkadaşlar mrb,
Aşağıdaki kodu forumda buldum, bütün modülleri silmek için
Fakat ben çalıştırdığımda
"Visual Basic Projesine Programlı olarak erişim güvenli değil" hatası veriyor
Aslında benim istediğim bütün modilleri değil bazılarını silmek bu kodu çalıştıramadığımdan istediğim değişiklikleride yapamadım,
sadece ismi şu şu olan modülleri silinmesi yada silinmemesi nasıl yapılabilir
Teşekkürler


Sub modul_sil()
Dim modul
For Each modul In ThisWorkbook.VBProject.VBComponents
With modul.CodeModule
.deletelines 1, .CountOfLines
End With
Next

End Sub

 

[Korhan Ayhan]

Selamlar,

ARAÇLAR-MAKRO-GÜVENLİK menüsünden GÜVENİLEN YAYIMCILAR sekmesine tıklayın ve "Visual Basic Project Erişimine Güven" seçeneğini işaretleyip kodu çalıştırmayı deneyin.

 

[merakli_72]

çok teşekkür ederim dediğiniz gibi yapınca oldu
istenilen modüllerin silinmemesinide

If modul.Name <> "xxxx" Then satırını ekleyerek halletim

 

[halit3]

arkadaşlar mrb,
Aşağıdaki kodu forumda buldum, bütün modülleri silmek için
Fakat ben çalıştırdığımda
"Visual Basic Projesine Programlı olarak erişim güvenli değil" hatası veriyor
Aslında benim istediğim bütün modilleri değil bazılarını silmek bu kodu çalıştıramadığımdan istediğim değişiklikleride yapamadım,
sadece ismi şu şu olan modülleri silinmesi yada silinmemesi nasıl yapılabilir
Teşekkürler


Sub modul_sil()
Dim modul
For Each modul In ThisWorkbook.VBProject.VBComponents
With modul.CodeModule
.deletelines 1, .CountOfLines
End With
Next

End Sub

aşağıdaki linke bir bakarmısınız.?

http://www.excel.web.tr/showthread.php?t=66713

 

[merakli_72]

çok teşekkür ederim
referans teşkil edecek bir çalışma olmuş,
elinize emeğinize sağlık

 

[halit3]

çok teşekkür ederim
referans teşkil edecek bir çalışma olmuş,
elinize emeğinize sağlık

iyi çalışmalar