"Kes" komutunun iptali

[xternet]

Merhabalar.

Bir çalışma kitabında "kes" komutunu iptal etmek istiyorum. Kişi herhangi bir alanı veya sadece bir hücreyi seçip "kes" dediği anda karşısına bir mesaj çıksın (bu işlemi yapamazsınız.. gibi) ve mesaja tamam dedikten sonra komut iptal edilmiş olsun.

İyi çalışmalar.

 

[hamitcan]

Aşağıdaki kodlar M. Temel Korkmaz'ın bir makalesinden alıntıdır.

Bazı Komutları Engelleme - M. Temel Korkmaz - 07.05.2004
Kullanıcıların çalışma kitabını açtıklarında kesme/kopyalama ve yapıştırma komutlarını kullanmasını istemiyorsanız aşağıdaki VBA komutlarını kullanabilirsiniz.

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 "+{DEL}", ""
  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 "+{DEL}"
  Application.OnKey "+{INSERT}"
  Application.CellDragAndDrop = True
End Sub

Sub EnableControl(Id As Integer, Enabled As Boolean)
  Dim CB As CommandBar
  Dim C As CommandBarControl
  For Each CB In Application.CommandBars
    Set C = CB.FindControl(Id:=Id, recursive:=True)
    If Not C Is Nothing Then C.Enabled = Enabled
  Next
End Sub

 

[Levent Menteşoğlu]

Aşağıdaki linki inceleyin.

Ctrl X Kullanımını Engelleme

 

[xternet]

teşekkürler sayın Hamitcan. Yalnız ben sadece kes komutunu iptal etmek istiyorum. Bunun için kodu nasıl kullanıcam.

 

[hamitcan]

Sayın leventm'in örneğini inceleyin. Galiba tam istediğiniz gibi.

 

[xternet]

Evet sayın hamitcan. leventm'in örneği sorunumu çözdü. İkinizede teşekkürler.
İyi çalışmalar.

 

[Seyit Tiken]

Yalnız bu kodlara rağmen, KES/KOPYALA gibi işlemlerin yapılabileceği, yapılan uygulamada anlaşılmıştır. Yöntem şu : Maus okunun uc kısmı, imleç çizgisinin üstüne getirip, mausun sol tıklamasıyla(parmak üzerinde kalacak), herhangi bir hücreyi(yada hücreleri) istenilen yere kes/kopyala işlemine tabi tutabiliriz.

Not : Aşağıdaki kod bunun önüne geçiyor.

Sub Düğme1_Tıklat()
Application.CellDragAndDrop = False
End Sub

 

[xternet]

Sayın Seyit Tiken çok doğru bir tespitde bulunmuşsunuz. Teşekkür ediyorum. Yalnız verdiğiniz kodu nereye almalıyım. Çalıştırmayı başaramadım.

 

[Seyit Tiken]

Kodu OPEN ve CLOSE'ye bağlayabilirsiniz.

 

[xternet]

Teşekkür ederim Sayın Seyit Tiken. Dediğiniz gibi yaptım ve oldu.

İyi çalışmalar.

 

[xternet]

Makro tüm exceli etkisi altına aldı.

Yalnız bu kodlara rağmen, KES/KOPYALA gibi işlemlerin yapılabileceği, yapılan uygulamada anlaşılmıştır. Yöntem şu : Maus okunun uc kısmı, imleç çizgisinin üstüne getirip, mausun sol tıklamasıyla(parmak üzerinde kalacak), herhangi bir hücreyi(yada hücreleri) istenilen yere kes/kopyala işlemine tabi tutabiliriz.

Not : Aşağıdaki kod bunun önüne geçiyor.

Sub Düğme1_Tıklat()
Application.CellDragAndDrop = False
End Sub

Merhaba arkadaşlar. Yukarıdaki kodu çalışmamda kullandım. Yalnız bu kod sadece ilgili çalışmada değil tüm excelde aktif durumda. Yani hangi excel çalışmasını açarsam açayım, hücreyi köşesinden tutamıyorum. Makro kodunu tenizlememe rağmen olmadı. Bilgisi olan arkadaşların yardımlarını bekliyorum.
İyi çalışmalar.

 

[Orion1]

Application.CellDragAndDrop = True

 

[Skorpiyon]

Sayın Xternet,

Excel'de ;
Araçlar - Seçenekler - Düzen altında,
"Hücre Sürükleme ve Bırakmaya İzin Ver" bölümü işaretli değil ise, işaretleyiniz.

Saygılarımla...

 

[BirTürk1]

Sayın Xternet,

Excel'de ;
Araçlar - Seçenekler - Düzen altında,
"Hücre Sürükleme ve Bırakmaya İzin Ver" bölümü işaretli değil ise, işaretleyiniz.

Saygılarımla...

Allah Sizden Razı Olsun Sn SERTKAYA
denemediğim yol kalmadı ama çare çok basitmiş :hihoho:

 

[Skorpiyon]

Cümlemizden Razı Olsun Sayın Xternet,

Saygılarımla...

 

[xternet]

Sretkaya BirTürk'ün yanıtını ben sanarak yanıtlamış. Bende BirTürk'e katılıyorum. Gerçekten basitmiş.

Herkese hayırlı ramazanlar.

İyi çalışmalar.

 

[hamitcan]

Kodu aşağıdaki şekilde çalıştırın.

Sub Düğme1_Tıklat()
Application.CellDragAndDrop = true
End Sub

 

[Skorpiyon]

Selamlar,

Galiba yaşlanıyorum artık.

Saygılarımla...