bir excel calısma sayfasındakı kes komutunu iptal etme

[sebahattin]

selamun aleykum Hayırlı aksamlar Ekte bulunan çalışma sayfamdaki mausa sağ tıkladığımızdan cakan kes komutunu iptal etme imkanınmız varmı sayet varsa ekte bulunan excel calısma sayfasına revize yaparak tarafıma göndermenızı rica ederim hayırlı aksamlar ekcel 2013 32 bit

 

[dEdE]

Burayı inceler misiniz?

 

[sebahattin]

Hocam baktım ama bir şey anlamadım

 

[sebahattin]

Selamün aleyküm hocam buradaki formülleri denedim bir türlü islemi yapamadım. Bu konuda yardım istiyoruz

 

[dEdE]

Aşağıdaki kodu ThisWorkbook/BuÇalışmaKitabı kısmına yapıştırarak dener misiniz?

Private Sub Workbook_Open()
    EnableControl 21, False 'Bu satır mouse sağ tık/kes komutunu iptal eder.
    'Alttaki satır da iptal edilen mouse sağ tık/kes komutunu geri getirir. _
        satırı aktif yapmak ve KES komutunu geri getirmek için başındaki tek tırnak işaretini kaldırın.
    'EnableControl 21, True
End Sub

 

[sebahattin]

HOCAM DENEDİM YINE SONUC YOK

 

[dEdE]

Eklediğim kodun sonuna " (çift tırnak) işareti eklemişsiniz. Onu silerseniz çalışır.

 

[sebahattin]

HOCAM KODU EKLEDİM YINE SONUC YOK

 

[sebahattin]

Merhaba hocam yıne sonuc yok

 

[dEdE]

Sağ tuş iptal

 

[sebahattin]

Tesekkurler Rabbım razı olsun Kolay gelsin

 

[sebahattin]

Teşekkürler İslem Tamamdır

 

[hakki83]

Aşağıdaki kodu ThisWorkbook/BuÇalışmaKitabı kısmına yapıştırarak dener misiniz?

Private Sub Workbook_Open()
    EnableControl 21, False 'Bu satır mouse sağ tık/kes komutunu iptal eder.
    'Alttaki satır da iptal edilen mouse sağ tık/kes komutunu geri getirir. _
        satırı aktif yapmak ve KES komutunu geri getirmek için başındaki tek tırnak işaretini kaldırın.
    'EnableControl 21, True
End Sub

Dede hocam merhaba
Bu kod hata veriyor,

EnableControl 21 = False
olarak denedim yine hata verdi.

Kodda bir hata mı var acaba?

 

[dEdE]

EnableControl 21 = False olarak denedim yine hata verdi.
Kodda bir hata mı var acaba?

Merhaba, denemeden göndermiştim. Yanlış kod.
Aşağıdaki kod sağ tuşa tıklamayı iptal eder. ThisWorkbook/BuÇalışmaKitabı kısmına yapıştırılmalıdır.

Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
    'Cancel = False 'sağ tuş  aktif
    Cancel = True   'Sağ tuş iptal
End Sub

 

[hakki83]

Sağ olunuz Dede hocam.