NIGRA
Altın Üye
- Katılım
- 12 Şubat 2021
- Mesajlar
- 111
- Excel Vers. ve Dili
- Excel2010
- Altın Üyelik Bitiş Tarihi
- 13-02-2026
Kod:
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", ""
For Each Copy In Application.CommandBars.FindControls(Id:=19)
Copy.Enabled = Evn
Next Copy
End Sub
Bu kod ve benzeri türevleri mevcut forumumuzda daha önce paylaşılmış. Ancak ya modüle yada çalışma kitabına yapıştırılan türevi var. Buda dosyadaki tüm sayfaları etkiliyor.
Bunu sadece istediğim sayfalar özelinde nasıl değiştirebilirim?
Private Sub Worksheet_activate() diye başladım koda ve sayfanın code kısmına yapıştırdım ama olmadı.
Yardımlarınızı rica ediyorum.