Ինչպե՞ս անջատել կտրելու, պատճենելու և տեղադրելու գործառույթները Excel- ում:

Ենթադրելով, որ ունեք աշխատանքային գրքույկ ՝ կարևոր տվյալներով, որոնք դուք պետք է պաշտպանեք կտրելուց, պատճենելուց և տեղադրումից: Ինչպե՞ս հասնել դրան: Այս հոդվածը տրամադրում է VBA մեթոդ ձեզ Excel- ի աշխատանքային գրքում միաժամանակ անջատելու կտրման, պատճենման և տեղադրման գործառույթները:

Անջատեք կտրման, պատճենման և տեղադրման գործառույթները VBA կոդով

Անջատեք կտրման, պատճենման և տեղադրման գործառույթները VBA կոդով

Excel աշխատանքային գրքում կտրելու, պատճենելու և տեղադրելու գործառույթներն անջատելու համար կատարեք հետևյալը.

1. Աշխատանքային գրքում անհրաժեշտ է անջատել կտրման, պատճենման և տեղադրման գործառույթները, սեղմեք կոճակը ալտ + F11 ստեղները միաժամանակ բացելու համար Microsoft Visual Basic հավելվածների համար պատուհան.

2. Մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, խնդրում ենք կրկնակի սեղմել Այս գործառույթը ձախում Նախագիծ պատուհանը, այնուհետև պատճենեք և տեղադրեք ներքևում նշված VBA կոդը ՝ Այս աշխատանքային գիրքը (ծածկագիր) պատուհան Տեսեք,

VBA կոդ. Excel- ում միաժամանակ անջատեք կտրման, պատճենման և տեղադրման գործառույթները

Private Sub Workbook_Activate()
Application.CutCopyMode = False
Application.OnKey "^c", ""
Application.CellDragAndDrop = False
End Sub

Private Sub Workbook_Deactivate()
Application.CellDragAndDrop = True
Application.OnKey "^c"
Application.CutCopyMode = False
End Sub

Private Sub Workbook_WindowActivate(ByVal Wn As Window)
Application.CutCopyMode = False
Application.OnKey "^c", ""
Application.CellDragAndDrop = False
End Sub

Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
Application.CellDragAndDrop = True
Application.OnKey "^c"
Application.CutCopyMode = False
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Application.CutCopyMode = False
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Application.OnKey "^c", ""
Application.CellDragAndDrop = False
Application.CutCopyMode = False
End Sub

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
Application.CutCopyMode = False
End Sub

3. Ապա խնդրում ենք սեղմել կոճակը ալտ + Q ստեղները դուրս գալու համար Microsoft Visual Basic հավելվածների համար պատուհան.

Այժմ դուք չեք կարող կտրել կամ պատճենել տվյալները այս աշխատանքային գրքից, մինչդեռ այլ թերթերից կամ աշխատանքային գրքերից պատճենված տվյալները չեն կարող տեղադրվել այս աշխատանքային գրքում:

ՆշումՔաշելու և թողնելու գործառույթը անջատված է նաև վերը նշված VBA կոդը գործարկելուց հետո:

Բացեք Excel Magic-ը Kutools AI-ով

• Խելացի կատարումԿատարեք բջիջների գործողություններ, վերլուծեք տվյալները և ստեղծեք գծապատկերներ՝ այս ամենը պայմանավորված է պարզ հրամաններով:
• Պատվերով բանաձևերՍտեղծեք հարմարեցված բանաձևեր՝ ձեր աշխատանքային հոսքերը հեշտացնելու համար:
• VBA կոդավորումԳրեք և կիրառեք VBA կոդը առանց ջանքերի:
• Բանաձևի մեկնաբանությունՀասկացեք բարդ բանաձևերը հեշտությամբ:
• Տեքստի թարգմանությունՃեղքեք լեզվական խոչընդոտները ձեր աղյուսակներում:

Ընդլայնեք ձեր Excel-ի հնարավորությունները AI-ով աշխատող գործիքներով: Download Now և փորձիր արդյունավետություն, ինչպես երբեք:

Առնչվող հոդվածներ:

• Ինչպե՞ս անջատել Excel- ում թերթիկի ներդիրի աջ սեղմումը:
• Ինչպե՞ս անջատել աջ կտտոցի ընտրացանկը նշված աշխատաթերթում կամ ամբողջ աշխատանքային գրքում Excel- ում:
• Ինչպե՞ս կանխել կամ անջատել խմբագրման ռեժիմը ՝ Excel- ում կրկնակի սեղմելով բջիջը: