Copy-paste Blocking Online Excel and Excel Macro (VBA) Courses Copy Macro '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 Report problem with this macro This macro does not work. There's an error in the code. Other You can write your comments about the error in the box below. Report error ALL MACROS Youtube Channel The following macros may be useful for you. Similar Results NoMacro 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