Ctrl+Insert Çalışmaya devam ediyor

[polokomus]

Merhabalar;

Ekteki dosyaya forumda bulduğum copy, paste engelleyici kodları yazmama rağmen Ctrl+Insert tuşunun çalışmasını bir türlü engelleyemedim? Nerede yanlış yapıyorum?

Yardımlarınız için şimdiden teşekkür ederim...

 

[hamitcan]

Application.OnKey "{INSERT}", ""

şeklinde deneyin.

 

[polokomus]

İlgileriniz içişn teşekkür ederim Sayın hamitcan; Fakat olmadı..

Office versiyonum 2007 den kaynaklı olabilir mi? Eğer öyleyse bunun için çözüm nedir acaba?

Teşekkür ederim

 

[polokomus]

Evet Office 2003 versiyonunda başka bir xls dosyasına yapıştırmıyor fakat ctrl+insert çalıştığı için başka bir dosyaya, örneğin bir txt dosyasına yapıştırılıyor.

 

[hamitcan]

bir txt dosyasına yapıştırılıyor.

Yazdığınız kod sadece Excel içindir, başka bir yeri etkilemez.

 

[polokomus]

Sayın hamitcan; İlgileriniz için teşekkürler,
Tamam kod sadece excel için. Bende excelin içinde ctrl+insert tuşunun çalışmamasını istiyorum. Yani excelde iken bu tuşa basıldığında copy komutu çalışmasın. Böyle bir şey mümkün değilmidir?

Teşekkürler

 

[polokomus]

Merhabalar; Sorunu aşağıdaki kodlarda deneme yanılma ile yapılan bazı değişikliklerle hallettim. Teşekkürler

Sub DisableCutAndPaste()
EnableControl 21, False ' cut
EnableControl 19, False ' copy
EnableControl 22, False ' paste
EnableControl 755, False ' pastespecial
Application.OnKey "^c", ""
Application.OnKey "^v", ""
Application.OnKey "^e", ""
Application.OnKey "^x", ""
Application.OnKey "+{DEL}", ""
Application.OnKey "+{INSERT}", ""
Application.OnKey "{INSERT}", ""
Application.OnKey "^{INSERT}", ""
Application.CellDragAndDrop = False
End Sub
Sub EnableCutAndPaste()
EnableControl 21, True ' cut
EnableControl 19, True ' copy
EnableControl 22, True ' paste
EnableControl 755, True ' pastespecial
Application.OnKey "^c"
Application.OnKey "^v"
Application.OnKey "^e"
Application.OnKey "^x"
Application.OnKey "+{DEL}"
Application.OnKey "+{INSERT}"
Application.OnKey "{INSERT}"
Application.OnKey "^{INSERT}"
Application.CellDragAndDrop = True
End Sub