Kes-yapıştır(taşımayı) engelleme

[ramazan_58]

ekteki belgede sadece sarı renkli hücreleri sayfa korumalı iken kes yapıştırı(Yani taşımayı )nasıl engelleriz?

 

[ramazan_58]

ekteki belgede sadece sarı renkli hücreleri sayfa korumalı iken kes yapıştırı(Yani taşımayı )nasıl engelleriz

 

[Korhan Ayhan]

Selamlar,

İlgili sayfanın kod bölümüne aşağıdaki kodu uygulayıp denermisiniz.

Private Sub Worksheet_Deactivate()
    Application.CellDragAndDrop = True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Target, [A1:J16]) Is Nothing Then Exit Sub
    If Application.CutCopyMode = xlCopy Then Exit Sub
    If Application.CutCopyMode = xlCut Then Application.CutCopyMode = False
    Application.CellDragAndDrop = False
End Sub

 

[ramazan_58]

Hocam çok teşekkür ediyorum.Geçmiş bayramlarınızı tebrik ediyorum.