Note: The other languages of the website are Google-translated. Back to English

Sut i analluogi swyddogaethau torri, copïo a gludo yn Excel?

Gan dybio bod gennych lyfr gwaith gyda data pwysig y mae angen i chi ei amddiffyn rhag cael ei dorri, ei gopïo a'i gludo. Sut i'w gyflawni? Mae'r erthygl hon yn darparu dull VBA i chi analluogi'r swyddogaethau torri, copïo a gludo ar yr un pryd mewn llyfr gwaith Excel.

Analluoga swyddogaethau torri, copïo a gludo gyda chod VBA


Analluoga swyddogaethau torri, copïo a gludo gyda chod VBA

Gwnewch fel a ganlyn i analluogi'r swyddogaethau torri, copïo a gludo mewn llyfr gwaith Excel.

1. Yn y llyfr gwaith mae angen i chi analluogi'r swyddogaethau torri, copïo a gludo, pwyswch y Alt + F11 allweddi ar yr un pryd i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, cliciwch ddwywaith Llyfr Gwaith hwn yn y chwith Prosiect cwarel, ac yna copïwch a gludwch y cod VBA isod i'r Y Llyfr Gwaith hwn (Cod) ffenestr. Gweler y screenshot:

Cod VBA: Analluoga'r swyddogaethau torri, copïo a gludo ar yr un pryd yn 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. Yna pwyswch y Alt + Q allweddi i adael y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

Nawr ni allwch dorri na chopïo data o'r llyfr gwaith hwn, yn y cyfamser, ni ellir pastio data rydych chi wedi'i gopïo o daflenni neu lyfrau gwaith eraill i'r llyfr gwaith hwn.

Nodyn: Mae'r swyddogaeth llusgo a gollwng hefyd yn anabl ar ôl rhedeg y cod VBA uchod.


Erthyglau perthnasol:


Yr Offer Cynhyrchedd Swyddfa Gorau

Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%

  • Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
  • Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
  • Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
  • Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
  • Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
  • Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
  • Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
  • Mwy na 300 o nodweddion pwerus. Yn cefnogi Swyddfa / Excel 2007-2019 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.
tab kte 201905

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a Gwneud Eich Gwaith yn Haws o lawer

  • Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
  • Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
  • Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
gwaelod officetab
sylwadau (48)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Gwnaf fel uchod ond mae swyddogaeth copi torri a gorffennol wedi'i analluogi mewn unrhyw ffeil excel yr agoraf. Pam?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, defnyddiais hwn i guddio "Torri" gan ddefnyddwyr ac mae'n gweithio'n wych oni bai bod gennych Dabl, mae'r "Torri" yn wyrthiol yn ail-ymddangos pan fyddwch chi'n dewis cell yn y Tabl, yn union beth rydw i'n ceisio ei osgoi. unrhyw syniadau? diolch!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch u Syr ei weithio. Ond yn y llyfr gwaith Cyfan. Os mai dim ond y Cod hwn sydd ei angen arnaf fi dalen arbennig.A yw'n Bosibl ??
Lleihawyd y sylw hwn gan y safonwr ar y wefan
ydych chi wedi dod o hyd i ateb?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch yn fawr.Mae'n gweithio yn y llyfr gwaith cyfan. Allwn ni wneud y codio ar gyfer 1 ddalen yn unig. Helpwch ni.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Sut i alluogi'r swyddogaeth torri, copïo a gludo yn ôl? Os gwelwch yn dda cyngor!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Annwyl Sky
Rhedwch y VBA1 isod (rhowch y cod yn y modiwl ThisWorkbook) i analluogi'r swyddogaeth torri, copïo a gludo yn eich llyfr gwaith.

VBA1:
Is-DdelCopy()
Gyda Cais
.OnKey "^x", ""
.OnKey"^c", ""
.CommandBars("Cell").Rheolau(1).Enabled = Gau
.CommandBars("Cell").Rheolau(2).Enabled = Gau
Diwedd Gyda
Is-End

A rhedwch y VBA2 i alluogi'r holl swyddogaethau hyn yn ôl i'ch llyfr gwaith.

VBA2:
IsCopi Adfer()
Gyda Cais
.OnAllwedd "^x"
.OnKey"^c"
.CommandBars("Cell").Controls(1).Enabled = Gwir
.CommandBars("Cell").Controls(2).Enabled = Gwir
Diwedd Gyda
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Nid yw'n ymddangos bod hyn wedi gweithio i mi - a ddylwn i ddileu'r cod VBA gwreiddiol ac yna gludo'r uchod i mewn i alluogi'r swyddogaeth Torri, copïo a gludo eto?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diwrnod da,
Mae'r sylw VBA1in uchod yn disodli'r cod gwreiddiol.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Annwyl,

Rwyf am analluogi torri, copïo, gludo mewn taflen excel 2007
allwch chi rannu cod ar gyfer hyn
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diwrnod da,
Diolch i chi am eich sylw. Rwy'n ceisio darganfod yr ateb ar gyfer Excel 2007. Arhoswch yn amyneddgar.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Heia,
A yw'n bosibl analluogi "CUT" yn unig? ond gallwn i ddefnyddio'r Copi a Gludo o hyd?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Carmelo,
Copïwch a gludwch y cod isod i ffenestr cod y Llyfr Gwaith yn eich llyfr gwaith ac yna ei gadw fel llyfr gwaith Excel Macro. Yna bydd y swyddogaeth "Torri" yn anabl.

Opsiwn Eglur
Gyda Digwyddiadau Preifat Cmbrs Fel CommandBars

Is-lyfr gwaith preifat_Agored()
Gosod Cmbrs = Application.CommandBars
Is-End

Is-lyfr Preifat Preifat_Activate ()
Os Application.CutCopyMode = 2 Yna
Application.CutCopyMode = 0
Gorffennwch Os
Is-End

Is-Cmbrs_OnDiweddariad Preifat()
If Me Is ActiveWorkbook Yna
Os Application.CutCopyMode = 2 Yna
Application.CutCopyMode = 0
MsgBox "Torri Gweithrediadau wedi'u hanalluogi"
Gorffennwch Os
Gorffennwch Os
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Ceisiais yn union fel y dywedasoch ond nid oes dim yn digwydd. Mae eisiau yn union yr un fath, Dim ond y
Mae swyddogaeth "Torri" wedi'i hanalluogi. Mae angen i mi analluogi'r opsiwn "torri" o opsiwn botwm Rightclick ac o'r bar offer.
Mae'n grisial posibl ??
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Da dydd,
Mae'r cod yn gweithio'n dda yn fy achos i. A gaf i wybod eich fersiwn Office?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Hi

Rwy'n ddechreuwr codau VBA a datrysodd y cod hwn 99% o'm problemau.

A yw'n bosibl cloi'r daflen twll (fel y dos cod hwn) ond dal i gael un gell heb ei gloi?
(Eglurwch, hoffwn ganiatáu copïo heibio mewn gwybodaeth mewn un gell yn unig yn y daflen twll).

Cofion gorau
L
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Linda,
Gallwch chi ddatrys y broblem heb ddefnyddio cod VBA.
De-gliciwch ar y gell a dewiswch Celloedd Fformat o'r ddewislen cyd-destun, dad-diciwch y Wedi'i gloi blwch o dan y Diogelu tab yn y deialog. Ac yna amddiffyn y daflen waith gyda chyfrinair.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Roeddwn yn hynod falch o ddod o hyd i'r swydd hon ond mae angen ychydig o help arnaf i gyfyngu hyn i un daflen waith mewn Llyfr Gwaith aml-daflen. Ac mae angen gwybod sut i wneud hyn heb ymyrraeth defnyddiwr ... mae angen y ASAP hwn ar lyfr gwaith i helpu i atal gwallau.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Da dydd,
Gall y cod VBA canlynol eich helpu i ddatrys y broblem. A pheidiwch ag anghofio rhoi enw eich dalen yn lle "Daflen 2" yn y cod.

mJWSName Cyhoeddus Fel Llinyn

Is-lyfr gwaith preifat_Agored()
mJWSName = "Taflen 2"
Is-End

Is-lyfr Preifat Preifat_Activate ()
If ActiveSheet.Name = mJWSName Yna
Application.CutCopyMode = Anghywir
Cais.OnKey "^c", ""
Application.CellDragAndDrop = Gau
Gorffennwch Os
Is-End

Is-lyfr Preifat Preifat_Deactivate ()
Cais.OnKey "^c", ""
Application.CellDragAndDrop=Gwir
Application.CutCopyMode = Anghywir
Is-End


Is Gweithlyfr Preifat_Ffenestr Activate(ByVal Wn Fel Ffenest)
If ActiveSheet.Name = mJWSName Yna
Application.CutCopyMode = Anghywir
Cais.OnKey "^c", ""
Application.CellDragAndDrop = Gau
Gorffennwch Os
Is-End

Is-lyfr gwaith preifat_FfenestrDeactivate(ByVal Wn As Window)
Cais.OnKey "^c"
Application.CellDragAndDrop=Gwir
Application.CutCopyMode = Anghywir
Is-End

Is Gweithlyfr Preifat_TaflenSelectionChange(ByVal Sh Fel Gwrthrych, ByVal Target As Range)
Ar Ail-ddechrau Gwall Nesaf
Os Sh.Name = mJWSName Yna
Application.CutCopyMode = Anghywir
Gorffennwch Os
Is-End

Is Gweithlyfr Preifat_Taflen Activate(ByVal Sh Fel Gwrthrych)
Ar Ail-ddechrau Gwall Nesaf
Os Sh.Name = mJWSName Yna
Cais.OnKey "^c", ""
Application.CellDragAndDrop = Gau
Application.CutCopyMode = Anghywir
Gorffennwch Os
Is-End

Is Gweithlyfr Preifat_TaflenDeactivate(ByVal Sh Fel Gwrthrych)
Cais.OnKey "^c"
Application.CellDragAndDrop=Gwir
Application.CutCopyMode = Anghywir
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Un cwestiwn olaf - Ble mae'r cod hwn yn mynd a sut mae'n cael ei weithredu? Mae'r prosiect y mae angen i hyn weithio ag ef yn atodi ffeil XLA i'r ddalen Excel sy'n cynnwys llawer o'r cod. Ddim yn gwybod a oes angen i hwn fynd i fodiwl neu'r cod y tu ôl i'r daflen hon. Diolch...
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch am eich cyfeiriad.Rydw i'n Ceisio yn y swydd 2013 , ond dim byd wedi newid.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, mae'r cod yn gweithio'n dda diolch.
Fodd bynnag, roedd yr opsiwn darllen yn unig wedi'i alluogi. (os nad ydych am addasu). Os byddaf yn gosod ..Ffeil, arbed fel, offer, opsiynau cyffredinol, darllen yn unig a argymhellir.. yna nid yw'r cod yn gweithio.

Ddiolch i mewn ddyrchaf.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae'n gweithio'n dda iawn, diolch yn fawr.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch mae'n gweithio'n berffaith ... a ellir ei gymhwyso ar ystod yn unig rhywsut?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Da dydd,
Mae'n ddrwg gennym ni all eich helpu gyda hynny. Croeso i bostio unrhyw gwestiwn yn ein fforwm: https://www.extendoffice.com/forum.html. Diolch i chi am eich sylw.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
DIOLCH SYR
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch yn fawr, defnyddiol iawn.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
torri copi past yn berthnasol Llyfr gwaith cyfan. Os mai dim ond y Cod hwn sydd ei angen arnaf fi dalen arbennig.A yw'n Bosibl ??
helpwch os gwelwch yn dda. dim ond un daflen swyddogaethau analluogi sydd ei angen arnom. taflen arall rydym yn gweithio pob swyddogaeth...
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Nid yw'r cod hwnnw'n gweithio yn fy excel 2016 ar gyfer un ddalen yn lle'r llyfr gwaith cyfan
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae hyn yn dal i ganiatáu gludo o Notepad neu Microsoft Edge. Os gwelwch yn dda gweld a oes ffordd o atal gludo o unrhyw ffynhonnell.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Heia,
Os ydym yn atal pastio o unrhyw ffynhonnell, mae angen i ni atal y nodwedd Notepad, a allai ddod ag anghyfleustra. Nid ydym yn argymell hyn. Mae'n ddrwg gennym ni all eich helpu am hynny.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Defnyddiais y cod hwn ac eisiau Ail-alluogi eto? sut i'w ail-alluogi?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
defnyddiwch y cod hwn i analluogi torri a gludo copi



Is-lyfr Preifat Preifat_Activate ()

Application.CutCopyMode = Anghywir

Cais.OnKey "^c", ""

Application.CellDragAndDrop = Gau

Is-End



Is-lyfr Preifat Preifat_Deactivate ()

Application.CellDragAndDrop=Gwir

Cais.OnKey "^c"

Application.CutCopyMode = Anghywir

Is-End



Is Gweithlyfr Preifat_Ffenestr Activate(ByVal Wn Fel Ffenest)

Application.CutCopyMode = Anghywir

Cais.OnKey "^c", ""

Application.CellDragAndDrop = Gau

Is-End



Is-lyfr gwaith preifat_FfenestrDeactivate(ByVal Wn As Window)

Application.CellDragAndDrop=Gwir

Cais.OnKey "^c"

Application.CutCopyMode = Anghywir

Is-End



Is Gweithlyfr Preifat_TaflenSelectionChange(ByVal Sh Fel Gwrthrych, ByVal Target As Range)

Application.CutCopyMode = Anghywir

Is-End



Is Gweithlyfr Preifat_Taflen Activate(ByVal Sh Fel Gwrthrych)

Cais.OnKey "^c", ""

Application.CellDragAndDrop = Gau

Application.CutCopyMode = Anghywir

Is-End



Is Gweithlyfr Preifat_TaflenDeactivate(ByVal Sh Fel Gwrthrych)

Application.CutCopyMode = Anghywir

Is-End





ac eisiau galluogi'r swyddogaethau hyn eto
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae hyn yn gweithio'n wych, sut byddai rhywun yn addasu hyn i ganiatáu copi / past mewn colofnau penodol sydd â dewislenni tynnu i lawr sy'n gysylltiedig ag ystodau penodol o fewnbwn derbyniol a dim ond y mewnbwn derbyniol. Er enghraifft byddai enw o'r enw Jetson, George, 25, yn caniatáu copi/past o Jetson, George, 25 ond ni fyddai'n caniatáu Jeston, George, 26. Neu llusgo a llenwi a fyddai'n arwain at Jetson, George, 25 yna 26 , yna 27, etc.
Yn fy nhaflen waith rwyf am analluogi torri / copïo / pastio yn gyfan gwbl mewn rhai colofnau, yna dim ond caniatáu torri past copi o ddata derbyniol o gwymplenni.
Diolch yn fawr.
Nid oes unrhyw sylwadau wedi'u postio yma eto
Llwytho mwy o
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir