sayfa kopyalamasını engelleme

[prodigy]

Sayın Levent Menteşoğlunun aşağıdaki koduyla sayfada kes komutunun çalışmasını engelliyoruz.
Kopyalamayı da engellemek istiyorum.

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

 

[uzmanamele]

merhaba

xlCut yerine xlCopy olarak denermisiniz

 

[prodigy]

xlcopy şeklinde denedim olmadı.

 

[htsumer]

http://www.excel.web.tr/showpost.php?p=20925&postcount=3

 

[Ayhan Ercan]

Merhaba Sn prodigy

xlcopy şeklinde denedim olmadı.

Bir yerde yalnış birşey yapıyorsunuz herhalde. Yoksa Kod çalışıyor.

Hem Kesme hem de Kopyalamayı birlikte engellemek istiyorsanız aşağıdaki gibi yazıp denermisiniz...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Application.CutCopyMode = xlCopy _
Or Application.CutCopyMode = xlCut Then Application.CutCopyMode = False
End Sub

 

[uzmanamele]

merhaba
dosyanızı korumaya çalışıyorsunuz sanırım, aşağıdaki kodlarda işinize yarayabilir, deneyiniz.

Sub Autpen()
ThisWorkbook.Application.CommandBars.FindControl(ID:=847).Enabled = False 'sil
ThisWorkbook.Application.CommandBars.FindControl(ID:=848).Enabled = False 'taşı veya kopyala
ThisWorkbook.Application.CommandBars.FindControl(ID:=889).Enabled = False 'yeniden adlandır
End Sub
Sub Auto_Close()
Application.DisplayAlerts = True
ThisWorkbook.Application.CommandBars.FindControl(ID:=847).Enabled = True
ThisWorkbook.Application.CommandBars.FindControl(ID:=848).Enabled = True
ThisWorkbook.Application.CommandBars.FindControl(ID:=889).Enabled = True
End Sub

 

[Orion1]

Çalışma kitabını korumaya alırsanız , sayfa işlemleri yapılamayacaktır.