kopyala-yapıştırı engelleme Hazır Excel Makroları (VBA) | Excel Programları

Makroyu Kopyala

'Excel Makro (VBA) online eğitimleri için: https://www.excelsizeyeter.com/excelsizeyeter.com/udemy_giris.php adresine tıklayınız. Bir eğitim alana bir eğitim bedavadır. İkinci eğitim olarak Excel, Excel pratik çözümler, finans eğitimleri vb. alabilirsiniz. 
 
Option Explicit

Sub auto_open() 
'kopyala kes yapıştırı açılışta pasif yapar 
    EnableControl 21, False 'Kes 
    EnableControl 19, False ' Kopyala 
    EnableControl 22, False ' Yapıştır 
    EnableControl 755, False ' özelyapıştır 
  
    Application.OnKey "^c", "yasakla" 
    Application.OnKey "^v", "yasakla"

Application.CellDragAndDrop = False 'hücreyi çoğaltma ve taşıma 
    CommandBars("ToolBar List").Enabled = False 'düzen menüsündeki ilgili menüleri gizle 
End Sub

Sub auto_close() 
    'kopyala kes yapıştır kapanırken aktifleştirir 
    EnableControl 21, True 'Kes 
    EnableControl 19, True ' Kopyala 
    EnableControl 22, True ' Yapıştır 
    EnableControl 755, True ' özelyapıştır 
  
    Application.OnKey "^c" 
    Application.OnKey "^v" 
    Application.CellDragAndDrop = True 
    CommandBars("ToolBar List").Enabled = True 
End Sub 
Sub EnableControl(Id As Integer, Enabled As Boolean) 
    Dim CB As CommandBar 
    Dim C As CommandBarControl 
    On Error Resume Next 
    For Each CB In Application.CommandBars 
        Set C = CB.FindControl(Id:=Id, recursive:=True) 
        If Not C Is Nothing Then C.Enabled = Enabled 
    Next 
End Sub 
  
Sub yasakla() 
       MsgBox "Üzgünüm yapmak istediğiniz işlem yasaklanmıştır.!", , "www.kod.gen.tr" 
End Sub

Benzer Sonuçlar
No	Makro Adı
1	kopyala-yapıştırı engelleme
2	çift kayıt engelleme (makrolu çözüm)
3	Kesme, kopyalama ve yapıştırmayı iptal etme
4	userformda resim önzileme
5	hücredeki yazi karakterinin rengine göre filtreleme
6	aktif sayfayı kopyalar email ile yollar
7	hücredeki renge göre filtreleme
8	makroda bir veya birden çok değer döndürmek
9	9 farklı değer için koşullu biçimlendirme
10	değişen hücreleri göster
11	Satırı kesme, kopyalama ve yapıştırma
12	textboxta binlik ayıraclı toplama
13	textboxa girerken her üç rakamın arasına bir nokta koyma
14	dosya açıldığında tanimlama bilgisi
15	dosya açıldığında tanımlama bilgisi
16	pdf dosyasından verileri kopyalama ve Excel dosyasına yapıştırma
17	makro ile kopyalama ve yapıştırma
18	Seçilen bölgeyi / hücre kümesini kopyalama ve yapıştırma
19	verinin bittiği ilk boş satıra yapıştırmak
20	verilen değeri bul yanındakilari kopyala yapıştır.

Benzer Sonuçlar

Makro Adı

kopyala-yapıştırı engelleme

çift kayıt engelleme (makrolu çözüm)

Kesme, kopyalama ve yapıştırmayı iptal etme

userformda resim önzileme

hücredeki yazi karakterinin rengine göre filtreleme

aktif sayfayı kopyalar email ile yollar

hücredeki renge göre filtreleme

makroda bir veya birden çok değer döndürmek

9 farklı değer için koşullu biçimlendirme

değişen hücreleri göster