copy-paste blocking Free Excel Macros (VBA) | Excel Programs

'For online Excel courses click: https://www.excelsizeyeter.com/excelwithkenan.com/udemy_giris.php 
 
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

No	Macro Name
1	copy-paste blocking
2	specify the number of copies to print from the printer
3	double record blocking (macros solution)
4	blocking printing
5	double record blocking.
6	excel operators hk
7	add time as menu
8	add time as menu (most reliable)
9	b4: h23 external cells locking and unlocking
10	Using a macro to copy a module to another location
11	opening system date
12	is there a printer installed
13	block some sheet / pages from being listed
14	hide the mouse cursor 1
15	sending email with macro
16	copy cells as images
17	creates folder with book name save each sheet / page separately
18	excelin all menu pushbutton pictures
19	prints selected areas on a sheet of paper
20	prints selected areas on a sheet of paper

Excel Free Macros (VBA)

Copy-paste Blocking

Online Excel Courses

Services

How can we help you?

Subscribe to our Youtube Channel?

Keywords