Excelde Ctrl+V Yapıştır Komutunu İptal Etmek

[mekansiz52]

Merhaba değerli arkadaşlar. Excell dosyasında sadece yapıtşrı komutunu iptal etmek istiyorum .Bunun için formül yada makro kod mevcutmu. Kopyala yapılabilecek ama sadece yapıştır kısmı deaktif olacak şekilde. Bunu neden istediğime gelirsek, hücrede küçük harf girilmesini engelliyorum veri girişinden ama diğer birimdekiler veri girişi yaparken yapıştır yaptığında küçük harf girilmemesi komutunu aşıyor. Özetle bir excel dosyasında sadece yapıştır komutu engellenebilir mi?

 

[hasankardas]

belirli hücrelerde kopyala yapıştırı engelleme

Merhaba arkadaşlar. Forumda araştırdım bu konuyu ama sadece tüm çalışma sayfasında engelleme ile ilgili kodlar var.Benim istediğim excel de çalıştığım bir sayfada belli bir aralıktaki hücrelerde (örneğin H17:W317 arasında) kopyala-yapıştır komutunu engellemek istiyorum. tabi hem kılavye...

www.excel.web.tr

 

[Korhan Ayhan]

Bu işlem için makro kullanmanız gerekir.

ThisworkBook (BuÇalışmaKitabı) bölümüne uygulayınız.

Dosya açılışında ve aktif olduğunda CTRL+V pasif olacaktır. Dosya kapandığında ve başka dosyaya geçtiğinizde tekrar aktif olacaktır.

Option Explicit

Private Sub Workbook_Activate()
    Application.OnKey "^{v}", ""
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.OnKey "^{v}"
End Sub

Private Sub Workbook_Deactivate()
    Application.OnKey "^{v}"
End Sub

Private Sub Workbook_Open()
    Application.OnKey "^{v}", ""
End Sub

 

[ahmeduafi]

Bu işlem için makro kullanmanız gerekir.

ThisworkBook (BuÇalışmaKitabı) bölümüne uygulayınız.

Dosya açılışında ve aktif olduğunda CTRL+V pasif olacaktır. Dosya kapandığında ve başka dosyaya geçtiğinizde tekrar aktif olacaktır.

Option Explicit

Private Sub Workbook_Activate()
    Application.OnKey "^{v}", ""
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.OnKey "^{v}"
End Sub

Private Sub Workbook_Deactivate()
    Application.OnKey "^{v}"
End Sub

Private Sub Workbook_Open()
    Application.OnKey "^{v}", ""
End Sub

bu kod ile ctrl v tuşu çalışmıyor lakin mouse sağ tık yapıştır aktif onu ya sadece değerler açık kalacak yada komple çıkmamasını sağlayabilirmiyiz

 

[Korhan Ayhan]

Merhaba,

Alttaki kodu işlemi yapmak istediğiniz sayfanın kod bölümüne uygulayınız.

Bu kod sayfadaki hücrelerde sağ tıklamayı komple iptal eder.

Option Explicit

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    Cancel = True
End Sub

 

[Kılıç1977]

Bende internette araştırırken aşağıdaki kodu buldum kopyaladığın veriyi hiçbir şekilde yapıştırmıyor.

Sayfanın kod modülünde.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If 0 < Application.CutCopyMode Then
Target.Copy
End If
End Sub

Ctrl X Kullanımını Engelleme bu linkteki kodla yukarıdaki kodu birleştirdim Şimdi mause' dan kes, kopyala, yapıştır ve Klavyeden ( Ctrl-X, Ctrl-V ) ilgili sayfada çalışmıyor.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Application.CutCopyMode = xlCut Then Application.CutCopyMode = False
    If 0 < Application.CutCopyMode Then
        Target.Copy
    End If
End Sub

Biraz daha kurcalayınca bu şekilde daha iyi oldu.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Application.CutCopyMode = xlCut Then Application.CutCopyMode = False

If Application.CutCopyMode = xlCopy Then Application.CutCopyMode = False
 
End Sub