• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Taşı veya Kopyala yaparken kodlar gitmesin..!

S

sensizsoldum

Katılım
10 Ekim 2010
Mesajlar
1,469
Excel Vers. ve Dili
2010 Türkçe
Merhaba günaydınlar,
Sayfa taşı ve kopyalama yaparken, makro kodlarının da beraberinde gitmemesini engelleyen bir yöntem varmıdır. Bunu butonsuz bir şekilde uygulanması gerekmekte olup kodu, BuÇalışmaKitabı ya da Modüle eklemek istiyorum ki tüm sayfada geçerli olsun.
 
Son düzenleme:
Merhaba,
Bunun için ne gibi bir çözüm yolu olabilir, ilgili arkadaşlardan bilgi rica edebilirmiyim.
 
Merhaba
Arkadaşlar konu hakkında hiç değilse fikirlerinizi paylaşa bilir misiniz.
 
Merhaba,

Taşı-Kopyala işlemini başka kitabamı yapıyor sunuz? Eğer cevabınız evetse başka kitabı makro etkin olmayan kitap olarak (.xlsx) kayıt ederseniz makrolar otomatikman silinir.

Cevabınız hayırsa yani aynı kitap içinde taşı-kopyala yapıyorsanız aşağıdaki kodu kullanabilirsiniz.

Kod: 
Private Sub Workbook_Deactivate()
    Set VBCodeMod = ActiveWorkbook.VBProject.VBComponents(ActiveSheet.Index).CodeModule
    VBCodeMod.DeleteLines 1, VBCodeMod.CountOfLines
End Sub
 
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
    Set VBCodeMod = ThisWorkbook.VBProject.VBComponents(ActiveSheet.Index + 1).CodeModule
    VBCodeMod.DeleteLines 1, VBCodeMod.CountOfLines
End Sub
 
Merhaba Korhan Bey,
Makrolu bir çalışmanın sayfalarını sağ tıklayıp, Taşı veya Kopyala yapıldığında kodları da yanında götürüyor. Bunu istemiyorum sayfayı ne şekilde kaydetmenin bir önemi yok. Önemli olan kodların gitmemesini sağlamak. Cevabım sizin soruya göre Hayır ama eklenecek kodu göremiyorum.
 
Merhaba,

Kodları yukarıdaki mesajıma ekledim.

Fakat bu kodların kullanımı tehlikelidir. Çünkü taşı-kopyala işlemini algılayan bir olay yoktur. Bu sebeple aktif sayfa değişimini ve aktif kitap değişimine kodu yazdım. Ama kontrolsüz olduğu için her sayfa yada kitap değişiminde sayfalara ait kodları silecektir. Bu sebeple kullanmanızı tavsiye etmem.

Eğer taşı-kopyala işlemini makro ile yaparsanız bu kontrolü daha rahat sağlayabiliriz.

Kodların çalışması için aşağıdaki ayarı yapmanız gerekiyor.

DOSYA-SEÇENEKLER-GÜVEN MERKEZİ-GÜVEN MERKEZİ AYARLARI-MAKRO AYARLARI menüsünden;

"VBA projesi nesne modeli erişimine güven"

seçeneğini aktif hale getirin.
 
Merhaba
Korhan bey, söylediklerinizi sırasıyla uyguladım, verdiğiniz kodu da modül eklerek içine kayıt edip kapa aç yaptım, sonra taşı veya kopyalama yaptım haliye kodlar bu esnada gidiyor. Sayfa taşı ve kopyalama yaparken sayfa gidebilir ama sayfaya ait kodlar gitmesin normal sayfalar gidebilsin istiyorum. Yada sayfa taşı ve kopyalama menüsüne engel koymak, silmek kaldırmak gibi yöntemlerde olabilir :)
 
Merhabalar Halit bey,
O konuyu çok iyi hatırlıyorum. sizin verdiğiniz cevaptan şunu..
(Ben şöyle anlıyorum sayfaları başka bir dosyaya kapyalarken veya taşırken sayfanın kod bölümündeki makrolar gitmesin)
burası tam istediğim özellikte. eklediğiniz örnek çalışma ise butonlu. ben butonlu birşey istemiyorum. Eminimki iki,mizde aynı şeylerden bahsediyoruz anlaşılmazlık neden oluyorsa çözemedim
 
sensizsoldum' Alıntı:
Merhabalar Halit bey,
O konuyu çok iyi hatırlıyorum. sizin verdiğiniz cevaptan şunu..
(Ben şöyle anlıyorum sayfaları başka bir dosyaya kapyalarken veya taşırken sayfanın kod bölümündeki makrolar gitmesin)
burası tam istediğim özellikte. eklediğiniz örnek çalışma ise butonlu. ben butonlu birşey istemiyorum. Eminimki iki,mizde aynı şeylerden bahsediyoruz anlaşılmazlık neden oluyorsa çözemedim
Genişletmek için tıkla ...

Beni gene anlamadınız herhalde çalışma kitabını korumaya alın göreceksinizki sayfaları taşıma ve kopyalama yaptırmıyacaktır
 
Tarif edebilirmisiniz hangi seçenekle yapacağım onu. Benim bildiği Koru menüsünden Taşı ve Kopyala ile ilgili bir Menü yok :(
 
sensizsoldum' Alıntı:
Tarif edebilirmisiniz hangi seçenekle yapacağım onu. Benim bildiği Koru menüsünden Taşı ve Kopyala ile ilgili bir Menü yok :(
Genişletmek için tıkla ...

ofis2003 de araçlar/koruma/çalışma kitabını koru
ofis2007 de gözden geçir/çalışma kitabını koru
 
Teşekkür ederim Halit Bey, İstediğim böyle bir şeydi.
Vay be ne kadar zamandır bunu arıyordum: D
Her zor zamanımda ilgisini, bilgisini esirgemeyen, Sayın Korhan Bey e de gönülden teşekkürlerimi saygılarımı sunarım.
Mutlu akşamlar dilerim.
 
sensizsoldum' Alıntı:
Teşekkür ederim Halit Bey, İsteiğim böyle birşeydi.
Vaybe ne kadar zamandır bunu arıyordum :D
Genişletmek için tıkla ...

Bir çok mesajımda bunu yazmıştım ama fark etmediniz herhalde iyi çalışmalar
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst