Makroları Etkinleştir/Devre Dışı Bırak Problemi

[mekuka]

Dosyanın ilk açılışında makroları etkinleştir seçilince userformu açıp excel gizleniyor fakat etkinleştirmeyip makroları devre dışı bırak seçeneği seçilince excel normal olarak açılıyor. Bu işlemde Makrolar devre dışı bırakılınca exceli kapatan bir komuta ihtiyacım var.

Şimdiden Teşekkürler....

 

[Levent Menteşoğlu]

Dosyanın ilk açılışında makroları etkinleştir seçilince userformu açıp excel gizleniyor fakat etkinleştirmeyip makroları devre dışı bırak seçeneği seçilince excel normal olarak açılıyor. Bu işlemde Makrolar devre dışı bırakılınca exceli kapatan bir komuta ihtiyacım var.

Böyle bir komut mevcut değildir. Ancak bu tip durumlar için asıl dosyalar xlveryhidden ile gizlenir, ve ancak makrolar devreye alınırsa açılabilir. Makrolar devre dışı bırakılırsa sadece bir ön sayfa gösterilebilir. Aşağıdaki örnek dosyayı hem makroları etkinleştirerek hemde devre dışı bırakarak açın.

 

[mekuka]

Teşekkürler ama bu user form için de geçerli mi? bir de devre dışı bırakınca exceli kapatmak yerine(madem yapabilecek bişi yok) dosyayı hiç açmaması için birşey yapamazmıyız veya yeni boş bir excel açması gibi bişey...

 

[Levent Menteşoğlu]

Teşekkürler ama bu user form için de geçerli mi? bir de devre dışı bırakınca exceli kapatmak yerine(madem yapabilecek bişi yok) dosyayı hiç açmaması için birşey yapamazmıyız veya yeni boş bir excel açması gibi bişey...

Userform içinde geçerlidir elbette. Excelin kendisini bir program olarak boş bir sayfa halinde açabilirsiniz ama bir excel dosyasını açamazsınız, en az bir sayfa görünür olmalıdır.

 

[mekuka]

çok teşekkür ediyorum.


Halka hizmet Hakk'a hizmettir.

Saygıyla selamlıyorum sizleri.....

 

[Zeki Gürsoy]

Sayfa gizlemeye alternatif;

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    ThisWorkbook.IsAddin = True
End Sub

Private Sub Workbook_Open()
    ThisWorkbook.IsAddin = False
End Sub

 

[Levent Menteşoğlu]

Sayfa gizlemeye alternatif;

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    ThisWorkbook.IsAddin = True
End Sub

Private Sub Workbook_Open()
    ThisWorkbook.IsAddin = False
End Sub

Sn anemos

Bu güzel çözüm için tebrik ederim. Bende isaddin özelliğini öğrenmiş oldum. Sadece workbok_before prosedürüne thisworkbook.save satırını eklemekte fayda var.

 

[Zeki Gürsoy]

Rica ederim. Asıl ben teşekkür etmek isterim Levent bey, kayıt olduğum tarihten beri sizden ve forumdaki diğer arkadaşlardan çok şey öğrendim.
Sağolun, Varolun...

 

[baydeniro]

Paylaşım için teşekkürler