ThisWorkbook.VBProject.VBComponents

[tamer42]

Selamlar;

Ekli dosyayı

https://www.excel.web.tr/threads/benzersiz-kombinasyon-olusturmak.106093/

konusundan aldım,

yalnız kodları bir türlü çalıştıramadım;
Application.VBE.MainWindow.Visible = False
ThisWorkbook.VBProject.VBComponents
satırlarında hata veriyor.
nasıl çözüm üretebiliriz?
yardımlarınız için şimdiden teşekkür ederim.
iyi akşamlar.

    For Each MyMod In ThisWorkbook.VBProject.VBComponents
        If MyMod.Name = "ModCombin" Then
            ThisWorkbook.VBProject.VBComponents.Remove MyMod
        End If
    Next

 

[haliliyas]

öncelikle excelin güvenlik ayarının değiştirilmesi gerekiyor
Dosya/File ->
Seçenekler/Options ->
Güvenlik Merkezi/Trust Center ->
Güvenlik Merkezi ayarları /Trust Center Settings ->
Makro Ayarları/Macro Settings -> sonra da "VBA Project Object Model erişimine güven" kutusu seçilmeli
ayrıca referanslardan Microsoft VBA Extensibility 5.5 eklenmeli

 

[Muzaffer Ali]

VBA penceresi açıksa kapatır. (Bu kod Excel üzerinde çalıştırılmalıdır, VBA da çalıştırılırsa işlevini yerine getirmez.

Application.VBE.MainWindow.Visible = False

Adı "ModCombin" olan kod sayfası silinir.

    For Each MyMod In ThisWorkbook.VBProject.VBComponents
        If MyMod.Name = "ModCombin" Then
            ThisWorkbook.VBProject.VBComponents.Remove MyMod
        End If
    Next

Bunlar muhtemelen kod güvenliğini sağlamak için yazılmış. Silseniz de olur.

 

[Haluk]

.......
....
Bunlar muhtemelen kod güvenliğini sağlamak için yazılmış. Silseniz de olur.

Kod sayfasının en üstünde bir açıklama var. Orada belirttiğim gibi, esas işi yapan kodların kendisi "ModCombin" isimli modül oluşturularak, içine yazılan kodlarla ile hazırlanmaktadır. Bu nedenle, işi bitince de, modülün silinmesi gerekmekteydi....

.

 

[tamer42]

Kod sayfasının en üstünde bir açıklama var. Orada belirttiğim gibi, esas işi yapan kodların kendisi "ModCombin" isimli modül oluşturularak, içine yazılan kodlarla ile hazırlanmaktadır. Bu nedenle, işi bitince de, modülün silinmesi gerekmekteydi....

.

Haluk Hocam ekli ekran görüntüsünden de görüleceği üzere;
"ModCombin" isimli bir modül yok zaten,

bir de hatayı bu satırda veriyor:

For Each MyMod In ThisWorkbook.VBProject.VBComponents

sanırsam ayarlarda bir eksklik olabilir.,
teşekkürler,
iyi akşamlar.

 

[Haluk]

Anlatmaya calistigim oydu zaten..... O modul daha sonradan VBA ile olusturulup, icine kod yazilan bir modul.


.

 

[tamer42]

Anlatmaya calistigim oydu zaten..... O modul daha sonradan VBA ile olusturulup, icine kod yazilan bir modul.


.

Haluk Hocam tam anlatamadım galiba

For Each MyMod In ThisWorkbook.VBProject.VBComponents

bu satırda hata veriyor, modül oluşturma sürecine geçemiyoruz.
teşekkürler,

 

[Haluk]

Halil Bey'in 2 No'lu mesajinda belirtilenleri yaptiniz mi?

.

 

[tamer42]

Halil Bey'in 2 No'lu mesajinda belirtilenleri yaptiniz mi?

.

makro güvenlik ayarlarında "VB projelerine erişime güven...."

deyince sorun çözüldü, çok teşekkürler,
iyi akşamlar.