Clipboard u saklamak için sormasın

[Necdet]

Merhaba,

Bir dizindeki benzer formattaki dosyaları teker teker açıp başka bir dosyada birleştiriyorum (Copy/Paste yapıyorum).

Açtığım dosyayı kapattığımda clipboard u saklayıp saklamayacağıma ilişkin ileti alıyorum ki, ben bunu istemiyorum.

Nasıl yapılır? o kadar araştırmama rağmen bulamadım malesef

 

[Ali]

Sn Necdet Bey arşivlerimi karıştırdım clipboard ile bunu buldum.

Tüm office uygulamalarınızı kapatın.

Başlat çalıştır kısmına regedit yazıp tamamı tıklayarak regedit dosyasını açın.

HKEY_CURRENT_USER\SOFTWARE\Microsoft\Office\10\Common\General

10 kısmı 9'da olabilir. Dize anahtarı aynıdır.

Düzen-Yeni-DWORD değeri oluşturup adını AcbControl olarak adlandırın.

Bunu çift tıklayarak değer verisi kısmındaki 0 olan değeri 1 olarak ayarlayın.

Regedit dosyanızı kapatın. Bilgisayarınızı tekrar başlatın.

Sanırım bundan sonra bu dialog penceresi gelmeyecektir.

 

[Necdet]

Merhaba Sayın Fructose,

Dediklerinizi yaptım fakat olmadı, benim amacım aslında regeditle oynamak değil, makro ile bir çözüme ulaşmaktı, ilginiz için teşekkürler.

 

[Levent Menteşoğlu]

Necdet bey dosyaları bir kodlamı açıyorsunuz. Eğer öyle ise kodlarınızın başına aşağıdaki satırı ilave ederek denermisiniz.

application.displeyalerts=false

Eğer olmazsa kodlarınızı verirmisiniz.

 

[Necdet]

Sayın Levent Bey,

Evet dosyayı Workbooks.Open (Dosya_ad) ile açıyorum. Sizin gönderdiğiniz komutu bu komuttan önce koydum olmadı, dosyayı kapattığım yerde denedim yine olmadı.

Ben Help ten giderek aşağıdaki kodu buldum ama o da işe yaramadı

Application.DisplayClipboardWindow = False

 

[Levent Menteşoğlu]

Birde dosyayı kapattığınız dosyayı kaydedecek bir komut ekleyin.

Workbooks(Dosya_ad).save

veya kaydetmeden kapatmak için.

Workbooks(Dosya_ad).close false

 

[Merhum İdris SERDAR]

Kodlarınızdaki "Paste"ten sonra

Application.DisplayClipboardWindow = False
Windows("Dosyanız.xls").Activate

'dosya değil, sayfa ise;

Sheets("Sayfanız").Activate

Application.DisplayAlerts = False

ActiveWindow.Close SaveChanges:=False

Application.DisplayAlerts = True ' kapandıktan sonra eski duruma gelmesi için .

End Sub

 

[Necdet]

Sayın Leventm ve Yurttaş,

İlginiz için teşekkür ederim. Levent bey kaydetmeden kapatınca oldu.

Çok Teşekkürler