açılan sayfaları koruma ve kopyalama engelleme

[denizlikeskin]

arkadaşlar yapmış olduğum bir çalışmayı başkalarının müdahale etmemesi amacıyla korumak ve kopyalattrımamak istiyorum. koruma işleminin nasıl yapıldığını buldum.fakat koruma olduğu halde kolonlar yada sütunlara tıklandığında çalışma kopyalanabiliyor.bunun önlenmesi için de bir komut yada macro oluşturulabilirmi... örnek yada bir macroda yardımcı olurmusunuz...

 

[zafer]

Merhaba

Sayfayı koru dediğinizde açılan listede kilitli hücreleri seç kutusunun işaretini kaldırınız.

Başka işaretli kutular varsa isteğinize göre onlarıda kaldırınız.

 

[denizlikeskin]

Merhaba

Sayfayı koru dediğinizde açılan listede kilitli hücreleri seç kutusunun işaretini kaldırınız.

Başka işaretli kutular varsa isteğinize göre onlarıda kaldırınız.

hocam çok teşekkür ederim....

 

[heft]

Merhaba,
Çok güzel bir uygulama peki buna sağ klik yapıldığında
"kopyalama yapamazsınız" gibi bir uyarı eklenebilir mi?

 

[Ali]

Zafer Beyin dediklerini yaptıktan sonra sayfada sağ klik iptali için ilgili sayfanın kod kısmına aşağıdaki kodları ekleyiniz.

Private Sub Worksheet_BeforeRightClick(ByVal Target As Excel.Range, _
    Cancel As Boolean)
    Cancel = True
    MsgBox "Sağ tuş kullanılamaz.Kopyalama yapamazsınız."
End Sub

 

[mehmett]

Aşağıdaki kodu korumaya aldığınız sayfanın kod sayfasına yapıştırın.

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
MsgBox "Kopyalama yapamazsınız.", vbCritical, "Dikkat!"
Cancel = True
End Sub

 

[heft]

teşekkürler

 

[baknediycem]

merhaba

"kopyalama engellemeyi" belgemin simgesi için uygulayabilir miyim?

 

[baknediycem]

guncelleme

"kopyalama engellemeyi" belgemin simgesi için uygulayabilir miyim?

bilgisi olan arkadaslar paylasır mı?

 

[nkumas]

Aşağıdaki kodu korumaya aldığınız sayfanın kod sayfasına yapıştırın.

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
MsgBox "Kopyalama yapamazsınız.", vbCritical, "Dikkat!"
Cancel = True
End Sub

peki bunu dosyanın tüm sayfalarına uygula demek icin

For Each Sayfa In ThisWorkbook.Worksheets
Sayfa.Protect Password:="1"
Sayfa.EnableSelection = xlUnlockedCells
Sayfa_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) MsgBox "Kopyalama yapamazsınız.", vbCritical, "Dikkat!"
Cancel = True
Next

su kod boyle olmayacak evet de nasıl olacak?

 

[musty98]

günaydın. aynı sorun bendede var emek hırsızlarına engel olmak istiyorum. aynı şekilde çıktı alınmasınıda engelliyebiliyormuyuz. printsecreen dışında hiçbir yolla print alamasınlar . Hatta mümkünse dosya flaşa kopyalanmasın veya mail atılamasın.