Bazı hücrelerin kopyalanmasını engellemek

[ASLAN7410]

Merhaba hayırlı geceler.

Ekte gönderdiğim excel dosyasının Sayfa1'deki sadece K10 ile K20 arasındaki hücrelerin hiçbir şekilde kopyalanmasını engellemek istiyorum.

Forumda ve internette kopyalama engelleme ile ilgili çok örnekler var ancak benim istediğim gibi bir örnek bulamadım.

Yardımcı olur musunuz?

 

[ASLAN7410]

Herkese hayırlı akşamlar.

Kimsenin böyle bir şeye ihtiyacı yok galiba.

Sayın arkadaşlar konu günceldir.

 

[Korhan Ayhan]

Forumda benzer konular işlendi. Arama yapmalısınız.

 

[ASLAN7410]

Sayın Korhan Bey ilginiz için çok teşekkür ederim.

Forumda ve internette çok araştırdım benim istediğim gibi birşey gerçekten bulamadım.
Bu yüzden forumda soru açmak zorunda kalmıştım.

Yardımcı olur musunuz?

 

[ASLAN7410]

Aşağıdaki kodları buldum, sayfada kopyala yapıştırı engelliyor.

Benim istediğim K10 ile K20 arasındaki hücrelerin kopyalanmasını engellemek.

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Application.CutCopyMode = False
End Sub

Sub auto_open()
Application.OnKey "^c", ""
Application.OnKey "^v", ""
For Each Copy In Application.CommandBars.FindControls(ID:=19)
Copy.Enabled = Evn
Next Copy
End Sub

 

[ASLAN7410]

Böyle bir kod buldum bu kodda A sütununda çalışıyor, bu kodu hücre aralığına göre ayarlaya bilirmisiniz?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column = 1 Then 'Buradaki 1 rakamı A sütunun simgeliyor.'
        Application.OnKey "^c", "makro1"
        Application.OnKey "^v", "makro1"
        Application.OnKey "^d", "makro1"
        Application.OnKey "^x", "makro1"
    
    Else
        Application.OnKey "^c"
        Application.OnKey "^v"
        Application.OnKey "^d"
        Application.OnKey "^x"
    
    End If
End Sub

    Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Column = 1 Then 'Buradaki 1 rakamı A sütunun simgeliyor.'
      Cancel = True
    MsgBox ("Kullanmaya Çalıştığın Fonksiyon Bu Sütunda Engellenmiştir.")
    End If
    End Sub

 

[Korhan Ayhan]

Sayfayı korumayı denediniz mi?

 

[ASLAN7410]

Sayın Korhan bey, dediğiniz gibi sayfayı korudum ancak kopyala yine çalışıyor.

Benim istediğim K10 ile K20 arasındaki hücrelerin kopyalanmasını engellemek.

 

[Korhan Ayhan]

Ekte bir örnek hazırladım. İşinize yarayabilir.

 

[ASLAN7410]

Sayın Korhan Bey aradığım buydu, çok teşekkür ederim ellerinize sağlık.

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

 

[ÖmerBey]

Merhaba, takıldığım bir nokta var, izin verirseniz sormak istiyorum.
Kopyalamak isteyen makroları iptal eder yine kopyalar, ya da daha başka şekilde...
Burada amaç nedir?

 

[ASLAN7410]

Sayın mucit77 dediğiniz doğru, bunları düşünmemiştim. Bu hücrelerdeki bilgilerin kopyalanmamasını istememiştim.

 

[Korhan Ayhan]

Bende bu sebeple SAYFA KORUMASI yöntemini önermiştim.

Sayfayı korumaya alırken "KİLİTLİ HÜCRELERİ SEÇ" seçeneği pasif yapılırsa daha sağlıklı sonuçlar alabilirsiniz.

 

[ASLAN7410]

Sayın Korhan Bey haklısınız çok teşekkür ederim.

 

[Tevfik_Kursun]

Korhan Hocam,
Teşekkür ederim, elinize sağlık.
Saygılarımla

 

[Oğuzhan123]

Korhan Bey Merhaba,
İsmim Oğuzhan.
Örnek dosyayı ben de görmem mümkün mü acaba? Şu anda altın üye olmadığım için göremiyormuşum.

 

[Korhan Ayhan]

Harici Link (Silinebilir) ; https://we.tl/t-lp383PRpKR

 

[Oğuzhan123]

Teşekkür ederim.

Bir sorum daha olacak.

Bir vardiya listesi hazırlıyorum, ben den başka3-4 kiş daha kullanacak ve vardiyadaki isimleri yaparken örnek veriyorum A sutunundaki ismi(hücreyi) gidecek B sutununa kopyalacak. Faka sadece içeriği kopyalaması gerek, hücre biçimlerini ve formülleri kopyalarsa tüüm çalışma boşa gider.

Böyle bir şey yapmak mümkün mü nasıl yaparım? Hangi komutları kullanmalıyım? Soruyorum kusura bakmayın makro konusunda çok yeniyim.

 

[Korhan Ayhan]

Ayrı bir konu başlığı açarak ve örnek dosya paylaşarak sorunuzu sorarsanız yardım almanız kolaylaşır.

 

[Oğuzhan123]

Teşekkür ederim.

Bir sorum daha olacak.

Bir vardiya listesi hazırlıyorum, ben den başka3-4 kiş daha kullanacak ve vardiyadaki isimleri yaparken örnek veriyorum A sutunundaki ismi(hücreyi) gidecek B sutununa kopyalacak. Faka sadece içeriği kopyalaması gerek, hücre biçimlerini ve formülleri kopyalarsa tüüm çalışma boşa gider.

Böyle bir şey yapmak mümkün mü nasıl yaparım? Hangi komutları kullanmalıyım? Soruyorum kusura bakmayın makro konusunda çok yeniyim.

Korhan Bey gönderiniz için teşekkür ederim. Fakat K10 ile K20 arasındaki hücereleri değil hiç birini kopyalamama izin vermiyor. :/ Acaba excel versiyonundan mı? (Excel 2010 Türkçe)