Soru Sayfamda Kes komutunu iptal Etmek

[sebahattin]

Selamun Aleyküm Dostlar Sayfamda bulunan maausla Sağ Tıklayıp Kes özelliğini iptal etmek istiyorum bu konuda yardıma ihtiyacım var

 

[Muzaffer Ali]

Aleykümselam.

Hangi sayfada iptal etmek istiyorsanız o sayfanın kod kısmına aşağıdaki kodu kopyalayın.

Private Sub Worksheet_Activate()
    Dim ctrl As CommandBarControl
    On Error Resume Next
    For Each ctrl In Application.CommandBars("Cell").Controls
        If ctrl.Caption = "&Kes" Then
            ctrl.Delete
            Exit For
        End If
    Next ctrl
    On Error GoTo 0
    Application.OnKey "^x", ""
End Sub

Private Sub Worksheet_Deactivate()
    Application.CommandBars("Cell").Reset
    Application.OnKey "^x"
End Sub

 

[sebahattin]

kes komutunu kurban satıs forumu kod bolumune yapıstırdım sonuc alamadım

 

[Muzaffer Ali]

Kodun çalışması için başka bir sayaya geçiş yap sonra yine "kurban satış forumu" sayfasını aç.
(Not:Bunu bir kere yapacaksınız.)

 

[sebahattin]

Yine olmadı

 

[sebahattin]

yıne sonuc yok

 

[Muzaffer Ali]

dosya ekte

 

[sebahattin]

Tesekkur Ederiz Tamaamdır.