Kopyalamayı önlemek

[ayder12]

Tablodaki verilerin kopyalanmasını(ctrl+c) nasıl önleriz
daha doğrusu benim istediğim sadece tek satır kopyalamasına izin versin

 

[hamitcan]

Sub Auto_Open()
Call OrganizeMenus(False)
'Application.OnKey "^p", "" 'Print kısayol
'Application.OnKey "^s", "" 'SaveAS kısayol
Application.OnKey "^c", "" 'Copy kısayol
Application.OnKey "^v", "" 'Paste kısayol

End Sub
'
Sub Auto_Close()
Call OrganizeMenus(True)
'Application.OnKey "^p" 'Print kısayol
'Application.OnKey "^s" 'SaveAs kısayol
Application.OnKey "^c" 'Copy kısayol
Application.OnKey "^v" 'Paste kısayol

End Sub
'
Sub OrganizeMenus(MyBoolean As Boolean)
On Error Resume Next
'For Each Ctrl In Application.CommandBars.FindControls(ID:=3) 'Save
'Ctrl.Enabled = MyBoolean
'Next Ctrl
'For Each Ctrl In Application.CommandBars.FindControls(ID:=2521) 'Print
'Ctrl.Enabled = MyBoolean
'Next Ctrl
'For Each Ctrl In Application.CommandBars.FindControls(ID:=4) 'Print
'Ctrl.Enabled = MyBoolean
'Next Ctrl
'For Each Ctrl In Application.CommandBars.FindControls(ID:=748) 'Save As
'Ctrl.Enabled = MyBoolean
'Next Ctrl
'For Each Ctrl In Application.CommandBars.FindControls(ID:=30029) 'Protection
'Ctrl.Enabled = MyBoolean
'Next Ctrl
'For Each Ctrl In Application.CommandBars.FindControls(ID:=847) 'Delete Sheet
'Ctrl.Enabled = MyBoolean
'Next Ctrl
For Each Ctrl In Application.CommandBars.FindControls(ID:=19) 'Copy
Ctrl.Enabled = MyBoolean
Next Ctrl
For Each Ctrl In Application.CommandBars.FindControls(ID:=848) 'Move or Copy Sheet
Ctrl.Enabled = MyBoolean
Next Ctrl
For Each Ctrl In Application.CommandBars.FindControls(ID:=1561) 'View Code
Ctrl.Enabled = MyBoolean
Next Ctrl
End Sub

şeklinde deneyin.

 

[ayder12]

Bunu nasıl kullanacağımı bilmiyorum yardımcı olabilirmisin

 

[hamitcan]

Bir module içine kaydedin. Dosya açıldığında kod aktif olacak, kapanınca da eski haline dönecektir.

 

[ayder12]

dediğinizi yaptım ama çalışmıyor başka bir şeymi yapmam lazım

 

[hamitcan]

Sorunuzun bir access sorusu olduğunu yeni fark ettim kusura bakmayın, kodların çalışmaması normaldir diye düşünüyorum. Ama Access için yapılmış örneklerde olabileceğini düşünüyorum. Bulursam, başlığa eklerim.

 

[ayder12]

Teşekkürler
Umarım çabuk bulabilirsiniz