Soru Makro ile (Kopyala,Kes,Yapıştır) Engelleme,

[gicimi]

Merhaba;

Sayfada aşağıda belirtilen işlemlerin yapılmaması için engel koyulabilir mi_? Makro ile yapılabilir mi_?

Ctrl +C
Ctrl +V
Ctrl +X
Sağ klik
F2

Panodaki Kes,Kopyala,Yapıştır işlemlerini kullanamamasını istiyorum.

 

[kemalist]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, [B3:K50]) Is Nothing Then [A1].Select
End Sub

Bu kodu sayfa makrosuna yapıştırın istenilen hücre değişikliklerini makrodan yapın

 

[gicimi]

@kemalist Bey teşekkür ederim. Sadece Kopyalama özelliğini açmak istersem eğer nasıl bir değişiklik yapmalıyım

 

[kemalist]

Sadece kopyalamayı yapamazsınız yada ben bilmiyorum.Bir süreliğine yapacaksanız makroyu kesin işlemden sonra tekrar yapıştırın.

 

[gicimi]

Amaç Ortak alandaki verileri bazen sadece kopyalama yetkisi vermek için gerekiyor. Sürekli makro etkinsiz duruma getirip tekrar aktif hale getiremem. Dönüşünüz için teşekkür ederim. @kemalist Bey

 

[turist]

ThisWorkBook kısmına

Private Sub Workbook_Open()
Application.OnKey "{F2}", ""
Application.OnKey "^{c}", ""
Application.OnKey "^{v}", ""
Application.OnKey "^{x}", ""
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnKey "{F2}"
Application.OnKey "^{c}"
Application.OnKey "^{v}"
Application.OnKey "^{x}"
End Sub
Private Sub Workbook_SheetBeforeRightClick _
(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Cancel = True
End Sub

 

[gicimi]

@turist Hocam teşekkür ederim. Kolay Gelsin.

 

[gicimi]

@turist Hocam Panodan işlem yapabiliyorum Ctrl+.... yapamıyorum ama Panodan Kopyalama ve Yapıştırma işlemi yapabiliyorum.

 

[turist]

Private Sub Workbook_Open()
Application.OnKey "{F2}", ""
Application.OnKey "^{c}", ""
Application.OnKey "^{v}", ""
Application.OnKey "^{x}", ""
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnKey "{F2}"
Application.OnKey "^{c}"
Application.OnKey "^{v}"
Application.OnKey "^{x}"
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)"
End Sub
Private Sub Workbook_SheetBeforeRightClick _
(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Cancel = True
End Sub

Üst Menü kapanır.

 

[turist]

Aşağıdaki gibi düzenlerseniz VBA sayfasına da geçilemez.

Private Sub Workbook_Open()
With Application
.OnKey "%{F11}", ""
.OnKey "{F2}", ""
.OnKey "^{c}", ""
.OnKey "^{v}", ""
.OnKey "^{x}", ""
.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
End With
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
With Application
.OnKey "%{F11}"
.OnKey "{F2}"
.OnKey "^{c}"
.OnKey "^{v}"
.OnKey "^{x}"
.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)"
End With
End Sub
Private Sub Workbook_SheetBeforeRightClick _
(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Cancel = True
End Sub

 

[gicimi]

@turist Hocam çok çok teşekkür ederim. İyi Çalışmalar.

 

[turist]

Sağ olun.

 

[memosm]

Konuyu hortlatmak gibi olacak ama mouse ile bir hücreyi tutup (çerçevesinden) başka bir hücreye taşıyabilmeyi de kapatabilmek mümkün mü?

 

[Korhan Ayhan]

Bu kod satırını kullanabilirsiniz.

Application.CellDragAndDrop = False

 

[memosm]

Bu kod satırını kullanabilirsiniz.

Application.CellDragAndDrop = False

Kalite...
Teşekkür ederim.

 

[halilerdem]

Merhaba
Klavye kısayollarından bütün kes, kopyala yapıştır seçeneklerinin iptali, hızlı erişim araç çubuğundan (pano) ve sağ tuştan sadece copy ve değerleri yapıştır aktif olacak şekilde kod olabilir mi ve bu kod sadece bir sayfada çalışacak

 

[Korhan Ayhan]

Sayfanızı korumaya alırsanız zaten bir çok işlem yapılamaz hale gelecektir.

 

[halilerdem]

Korhan Bey Merhaba
İlginiz için teşekkürler lakin sayfayı korumak istemiyorum, başka sayfadan makro ile veri yazdırıyorum

 

[Korhan Ayhan]

Linki inceleyiniz.

Kopyala Yapıştır Engelleme

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

www.excel.web.tr

 

[halilerdem]

Merhaba
Klavye kısayollarından bütün kes, kopyala yapıştır seçeneklerinin iptali, hızlı erişim araç çubuğundan (pano) ve sağ tuştan sadece copy ve değerleri yapıştır aktif olacak şekilde kod olabilir mi ve bu kod sadece bir sayfada çalışacak

Bütün kodları denedim, fakat özel yapıştır da sadece değerleri yapıştırmaya izin veren kod bulamadım