Soru Belirlenen hücrelerde yapıştırma iptal edilmesi

[ASLAN7410]

Merhaba hayırlı geceler.

Ekte gönderdiğim excel dosyamın sadece H8:H17 hücrelerinde kopyalanmış herhangi bir şeyin yapıştırılmasının iptal edilmesini istiyorum. (Sağ mause ve Ctrl+V iptal edilmesi.)

Dosya içerisinde kodlar var, ama bu tamamen bütün dosyayı kapsadığı için işimi görmüyor.

Yardımcı olur musunuz?

 

[Muzaffer Ali]

Merhaba.
Aşağıdaki kodları "BuÇalışmaKitabı(ThisWorkBook)" Adlı kod sayfasına kopyalayın.

Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
    If Intersect(ActiveCell, Range("H8:H17")) Is Nothing Then Exit Sub
    Cancel = True
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    If Intersect(ActiveCell, Range("H8:H17")) Is Nothing Then
        Application.OnKey "{F2}"
        Application.OnKey "^{c}"
        Application.OnKey "^{v}"
        Application.OnKey "^{x}"
    Else
        Application.OnKey "{F2}", ""
        Application.OnKey "^{c}", ""
        Application.OnKey "^{v}", ""
        Application.OnKey "^{x}", ""
    End If
End Sub

 

[ASLAN7410]

Sayın Haluk Bey, ilginiz için çok teşekkür ediyorum, ellerinize sağlık.

Orijinal dosyam iş yerinde olduğu için denedikten sonra bilgi vereceğim.
Kodlar gönderdiğim örnek üzerinde tam istediğim gibi çalışıyor.

 

[Haluk]

Sayın Haluk Bey, ilginiz için çok teşekkür ediyorum, ellerinize sağlık.

Orijinal dosyam iş yerinde olduğu için denedikten sonra bilgi vereceğim.
Kodlar gönderdiğim örnek üzerinde tam istediğim gibi çalışıyor.

Ben bir şey demedim valla..... @dalgalikur demek istediniz herhalde

.

 

[ASLAN7410]

Sayın Haluk Bey, uyarınız için çok teşekkür ediyorum. https://www.excel.web.tr/threads/ileri-geri-butonuyla-tarihin-ay-kismini-atlatma.180738/ bu konuya yardımcı olmuştunuz, isminiz ordan aklımda kaldı galiba, o şekilde yazmışım.

Sayın @dalgalikur , ilginiz için çok teşekkür ediyorum, ellerinize sağlık.

Orijinal dosyam iş yerinde olduğu için denedikten sonra bilgi vereceğim.
Kodlar gönderdiğim örnek üzerinde tam istediğim gibi çalışıyor.

 

[ASLAN7410]

Merhaba.
Aşağıdaki kodları "BuÇalışmaKitabı(ThisWorkBook)" Adlı kod sayfasına kopyalayın.

Sayın @dalgalikur bu işlemi yapınca, tüm sayfaların H8:H17 hücre aralığında çalışmıyor, ben sadece Sayfa1'de çalışmasın istemiştim.
Bu şekilde ayarlayabilir misiniz?

 

[Muzaffer Ali]

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    If Intersect(ActiveCell, Range("H8:H17")) Is Nothing Then Exit Sub
    Cancel = True
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(ActiveCell, Range("H8:H17")) Is Nothing Then
        Application.OnKey "{F2}"
        Application.OnKey "^{c}"
        Application.OnKey "^{v}"
        Application.OnKey "^{x}"
    Else
        Application.OnKey "{F2}", ""
        Application.OnKey "^{c}", ""
        Application.OnKey "^{v}", ""
        Application.OnKey "^{x}", ""
    End If
End Sub

O zaman hangi sayfada çalışmasını istiyorsanız o sayfa adını sağ tıklatın "Kod Görüntüle" seçin açılan sayfaya kodları yapıştırın.

 

[ASLAN7410]

Sayın @dalgalikur ellerinize sağlık, çok teşekkür ediyorum, tam istediğim gibi çalışıyor.
Kusura bakmayın geç dönüş yaptığım için, geceleri çalışıyorum ancak bilgisayar başına geçebiliyor ve orijinal dosyamda deneme yapıyorum.

Küçük bir şey daha rica edeceğim, Sayfa1 deki H8:H17 hücre aralığında herhangi bir hücreye mause ile çift tıkladığımda hücre içerisine girdiğimde sağ klik çalışıyor, bu şekilde kopyala yapıştır oluyor, bunu da engelleyebilir misiniz?

 

[Haluk]

.......
Küçük bir şey daha rica edeceğim, Sayfa1 deki H8:H17 hücre aralığında herhangi bir hücreye mause ile çift tıkladığımda hücre içerisine girdiğimde sağ klik çalışıyor, bu şekilde kopyala yapıştır oluyor, bunu da engelleyebilir misiniz?

İlgili sayfa modülüne;

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(ActiveCell, Range("H8:H17")) Is Nothing Then
        Cancel = True
    End If
End Sub

.

 

[ASLAN7410]

Sayın Haluk Bey, ellerinize sağlık, çok teşekkür ediyorum. Valla süper oldu.

Hayırlı geceler, hayırlı çalışmalar diliyorum.