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

Hvordan deaktiveres klip, kopi og indsæt funktioner i Excel?

Antag at du har en projektmappe med vigtige data, som du skal beskytte mod at blive klippet, kopieret og indsat. Hvordan opnås det? Denne artikel indeholder en VBA-metode, som du kan deaktivere funktionerne for klipning, kopiering og indsættelse på samme tid i en Excel-projektmappe.

Deaktiver klip, kopier og indsæt funktioner med VBA-kode


Deaktiver klip, kopier og indsæt funktioner med VBA-kode

Gør som følger for at deaktivere klip, kopier og indsæt funktionerne i en Excel-projektmappe.

1. I projektmappen skal du deaktivere funktionerne til klipning, kopiering og indsættelse. Tryk på andre + F11 taster samtidigt for at åbne Microsoft Visual Basic til applikationer vindue.

2. i Microsoft Visual Basic til applikationer dobbeltklik på vinduet ThisWorkbook til venstre Projekt og derefter kopiere og indsætte nedenstående VBA-kode i Denne arbejdsbog (kode) vindue. Se skærmbillede:

VBA-kode: Deaktiver funktionerne for klipning, kopiering og indsættelse på samme tid i 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. Tryk derefter på andre + Q taster for at afslutte Microsoft Visual Basic til applikationer vindue.

Nu kan du ikke klippe eller kopiere data fra denne projektmappe, i mellemtiden kan data, du har kopieret fra andre ark eller projektmapper, ikke indsættes i denne projektmappe.

Bemærk: Træk og slip-funktionen er også deaktiveret efter at have kørt ovenstående VBA-kode.


Relaterede artikler:


De bedste Office-produktivitetsværktøjer

Kutools til Excel løser de fleste af dine problemer og øger din produktivitet med 80%

  • Genbruge: Indsæt hurtigt komplekse formler, diagrammer og alt, hvad du har brugt før; Krypter celler med adgangskode Opret postliste og send e-mails ...
  • Super formel bar (let redigere flere linjer med tekst og formel); Læsning Layout (let at læse og redigere et stort antal celler); Indsæt til filtreret rækkevidde...
  • Flet celler / rækker / kolonner uden at miste data; Split celler indhold; Kombiner duplikerede rækker / kolonner... Forhindre duplikerede celler; Sammenlign områder...
  • Vælg Duplicate eller Unique Rækker; Vælg tomme rækker (alle celler er tomme); Super Find og Fuzzy Find i mange arbejdsbøger; Tilfældig valg ...
  • Præcis kopi Flere celler uden at ændre formelreference; Auto Opret referencer til flere ark; Indsæt kugler, Afkrydsningsfelter og mere ...
  • Uddrag tekst, Tilføj tekst, Fjern efter position, Fjern mellemrum; Opret og udskriv personsøgningssubtotaler; Konverter mellem celler indhold og kommentarer...
  • Superfilter (gem og anvend filterskemaer på andre ark); Avanceret sortering efter måned / uge / dag, hyppighed og mere; Specielt filter af fed, kursiv ...
  • Kombiner arbejdsbøger og arbejdsark; Fletabeller baseret på nøglekolonner; Opdel data i flere ark; Batch Konverter xls, xlsx og PDF...
  • Mere end 300 kraftfulde funktioner. Understøtter Office / Excel 2007-2021 og 365. Understøtter alle sprog. Nem implementering i din virksomhed eller organisation. Fuld funktioner 30-dages gratis prøveperiode. 60 dages pengene tilbage garanti.
kte-fane 201905

Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere

  • Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
  • Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
  • Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!
officetab bund
Sorter kommentarer efter
Kommentarer (50)
Ingen vurderinger endnu. Vær den første til at bedømme!
Denne kommentar blev minimeret af moderatoren på webstedet
jeg gør som ovenfor, men funktionen af ​​klip kopi og fortid deaktiveret i enhver excel-fil, jeg åbner. hvorfor?
Denne kommentar blev minimeret af moderatoren på webstedet
Hej, jeg brugte dette til at skjule "Klip" for brugere, og det fungerer godt, medmindre du har en tabel, "Klip" dukker mirakuløst op igen, når du vælger en celle i tabellen, præcis hvad jeg prøver at undgå. nogle ideer? tak!
Denne kommentar blev minimeret af moderatoren på webstedet
Tak u Sir det fungerer. Men i hele projektbogen. Hvis jeg har brug for denne kode, er det kun et bestemt ark. Er det muligt??
Denne kommentar blev minimeret af moderatoren på webstedet
har du fundet et svar?
Denne kommentar blev minimeret af moderatoren på webstedet
Mange tak. Det fungerer i hele arbejdsbogen. Kan vi kun lave kodningen for 1 ark. Hjælp venligst.
Denne kommentar blev minimeret af moderatoren på webstedet
Hvordan aktiveres klippe, kopiere og indsætte funktionen tilbage? Venligst råd!
Denne kommentar blev minimeret af moderatoren på webstedet
Kære Sky
Kør venligst nedenstående VBA1 (placer koden i ThisWorkbook-modulet) for at deaktivere funktionen Klip, kopier og indsæt i din projektmappe.

VBA1:
Sub DelCopy()
Med Ansøgning
.OnKey "^x", ""
.OnKey "^c", ""
.CommandBars("Cell").Controls(1).Aktiveret = Falsk
.CommandBars("Cell").Controls(2).Aktiveret = Falsk
Slut med
End Sub

Og kør VBA2 for at aktivere alle disse funktioner tilbage til din projektmappe.

VBA2:
Sub RecoverCopy()
Med Ansøgning
.OnKey "^x"
.OnKey "^c"
.CommandBars("Cell").Controls(1).Aktiveret = Sand
.CommandBars("Cell").Controls(2).Aktiveret = Sand
Slut med
End Sub
Denne kommentar blev minimeret af moderatoren på webstedet
Dette ser ikke ud til at have virket for mig - skal jeg slette den originale VBA-kode og derefter indsætte ovenstående for at aktivere funktionen Klip, kopier og indsæt igen?
Denne kommentar blev minimeret af moderatoren på webstedet
Good Day,
VBA1in-kommentaren ovenfor er en erstatning for den originale kode.
Denne kommentar blev minimeret af moderatoren på webstedet
Kære,

Jeg vil deaktivere klip, kopier, indsæt i excel 2007-ark
kan du dele kode til dette
Denne kommentar blev minimeret af moderatoren på webstedet
Good Day,
Tak for din kommentar. Jeg prøver at finde ud af løsningen til Excel 2007. Vent venligst tålmodigt.
Denne kommentar blev minimeret af moderatoren på webstedet
Hej,
Er det muligt kun at deaktivere "CUT"? men jeg kunne stadig bruge Copy and Paste?
Denne kommentar blev minimeret af moderatoren på webstedet
Hej Carmelo,
Kopier og indsæt venligst nedenstående kode i projektmappekodevinduet i din projektmappe, og gem den derefter som en Excel-makroaktiveret projektmappe. Så vil "Klip"-funktionen være deaktiveret.

Mulighed for eksplicit
Private With Events Cmbrs Som CommandBars

Privat underarbejdsbog_Åben()
Indstil Cmbrs = Application.CommandBars
End Sub

Privat underarbejdsbog_Aktiver ()
Hvis Application.CutCopyMode = 2 Så
Application.CutCopyMode = 0
End If
End Sub

Private Sub Cmbrs_OnUpdate()
If Me Is ActiveWorkbook Så
Hvis Application.CutCopyMode = 2 Så
Application.CutCopyMode = 0
MsgBox "Cut Operations deaktiveret"
End If
End If
End Sub
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg prøvede som du sagde, men der skete ikke noget. En ønsker nøjagtig det samme, Kun den
"Klip"-funktionen deaktiveret. Jeg er nødt til at deaktivere "klip"-indstillingen fra højreklik-knappen og fra værktøjslinjen.
Er det muligt krystal??
Denne kommentar blev minimeret af moderatoren på webstedet
God dag,
Koden fungerer godt i mit tilfælde. Må jeg kende din Office-version?
Denne kommentar blev minimeret af moderatoren på webstedet
Hi

Jeg er en nybegynder af VBA-koder, og denne kode løste 99% af mine problemer.

Er det muligt at låse hularket (som denne kodedosis), men stadig have en celle ulåst?
(Afklar, jeg vil gerne tillade kopiering forbi i info i kun én celle i hularket).

Med venlig hilsen
L
Denne kommentar blev minimeret af moderatoren på webstedet
Hej Linda,
Du kan løse problemet uden at bruge VBA-kode.
Højreklik på cellen og vælg Formater celler i kontekstmenuen, fjern markeringen i feltet Låst under fanen Beskyttelse i dialogboksen. Og beskyt derefter regnearket med adgangskode.
Denne kommentar blev minimeret af moderatoren på webstedet
Var super glad for at finde dette indlæg, men jeg har brug for lidt hjælp til at begrænse dette til et enkelt regneark i en arbejdsbog med flere regneark. Og har brug for at vide, hvordan man udfører dette uden brugerindblanding...vi har brug for dette ASAP på en projektmappe for at hjælpe med at forhindre fejl.
Denne kommentar blev minimeret af moderatoren på webstedet
God dag,
Følgende VBA-kode kan hjælpe dig med at løse problemet. Og glem ikke at erstatte "Sheet2" i koden med dit arknavn.

Offentlig mJWSName Som streng

Privat underarbejdsbog_Åben()
mJWSName = "Ark2"
End Sub

Privat underarbejdsbog_Aktiver ()
Hvis ActiveSheet.Name = mJWSName Så
Application.CutCopyMode = False
Application.OnKey "^c", ""
Application.CellDragAndDrop = Falsk
End If
End Sub

Privat underarbejdsbog_Deaktiver ()
Application.OnKey "^c", ""
Application.CellDragAndDrop = Sand
Application.CutCopyMode = False
End Sub


Private Sub Workbook_WindowActivate(ByVal Wn As Window)
Hvis ActiveSheet.Name = mJWSName Så
Application.CutCopyMode = False
Application.OnKey "^c", ""
Application.CellDragAndDrop = Falsk
End If
End Sub

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

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
Hvis Sh.Name = mJWSName Så
Application.CutCopyMode = False
End If
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
On Error Resume Next
Hvis Sh.Name = mJWSName Så
Application.OnKey "^c", ""
Application.CellDragAndDrop = Falsk
Application.CutCopyMode = False
End If
End Sub

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
Application.OnKey "^c"
Application.CellDragAndDrop = Sand
Application.CutCopyMode = False
End Sub
Denne kommentar blev minimeret af moderatoren på webstedet
Et sidste spørgsmål - Hvor går denne kode hen, og hvordan udføres den? Det projekt, som dette skal arbejde med, vedhæfter en XLA-fil til Excel-arket, der indeholder meget af koden. Vidste ikke, om dette skal ind i et modul eller koden bag dette ark. Tak...
Denne kommentar blev minimeret af moderatoren på webstedet
Tak for din vejledning. Jeg prøver i office 2013, men intet ændrede sig.
Denne kommentar blev minimeret af moderatoren på webstedet
Hej, koden fungerer godt tak.
Den skrivebeskyttede indstilling var dog aktiveret. (hvis du ikke ønsker at ændre). Hvis jeg indstiller ..Fil, gem som, værktøjer, generelle muligheder, læsebeskyttet anbefales.. så virker koden ikke.

Tak på forhånd.
Denne kommentar blev minimeret af moderatoren på webstedet
Det fungerer virkelig godt, mange tak.
Denne kommentar blev minimeret af moderatoren på webstedet
Tak, det virker perfekt ....kan det kun anvendes på en række på en eller anden måde?
Denne kommentar blev minimeret af moderatoren på webstedet
God dag,
Jeg kan desværre ikke hjælpe dig med det. Velkommen til at stille ethvert spørgsmål i vores forum: https://www.extendoffice.com/forum.html. Tak for din kommentar.
Denne kommentar blev minimeret af moderatoren på webstedet
TAK SIR
Denne kommentar blev minimeret af moderatoren på webstedet
Tak, meget nyttigt.
Denne kommentar blev minimeret af moderatoren på webstedet
klip copy paste gældende Hele projektmappen. Hvis jeg har brug for denne kode, er det kun et bestemt ark. Er det muligt??
hjælp venligst. vi behøver kun et ark deaktivere funktioner. endnu et ark vi arbejder med alle funktioner...
Denne kommentar blev minimeret af moderatoren på webstedet
Den kode virker ikke i mit excel 2016 for et enkelt ark i stedet for hele projektmappen
Denne kommentar blev minimeret af moderatoren på webstedet
Dette tillader stadig indsættelse fra Notesblok eller Microsoft Edge. Se venligst om der er en måde at forhindre indsættelse fra en hvilken som helst kilde.
Denne kommentar blev minimeret af moderatoren på webstedet
Hej,
Hvis du forhindrer indsættelse fra en hvilken som helst kilde, skal vi forhindre Notesblok-funktionen, hvilket kan medføre besvær. Vi anbefaler ikke dette. Det kan jeg desværre ikke hjælpe dig med.
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg brugte denne kode og vil genaktivere igen? hvordan genaktiveres det?
Denne kommentar blev minimeret af moderatoren på webstedet
brug denne kode til at deaktivere kopi klip og indsæt



Privat underarbejdsbog_Aktiver ()

Application.CutCopyMode = False

Application.OnKey "^c", ""

Application.CellDragAndDrop = Falsk

End Sub



Privat underarbejdsbog_Deaktiver ()

Application.CellDragAndDrop = Sand

Application.OnKey "^c"

Application.CutCopyMode = False

End Sub



Private Sub Workbook_WindowActivate(ByVal Wn As Window)

Application.CutCopyMode = False

Application.OnKey "^c", ""

Application.CellDragAndDrop = Falsk

End Sub



Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)

Application.CellDragAndDrop = Sand

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 = Falsk

Application.CutCopyMode = False

End Sub



Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)

Application.CutCopyMode = False

End Sub





og ønsker at aktivere disse funktioner igen
Denne kommentar blev minimeret af moderatoren på webstedet
Dette fungerer godt, hvordan ville man ændre dette for at tillade kopier/indsæt i specifikke kolonner, der har rullemenuer knyttet til navngivne områder af acceptabelt input og kun det acceptable input. For eksempel ville et navn, der er Jetson, George, 25, tillade en kopiering/indsæt af Jetson, George, 25, men ville ikke tillade Jeston, George, 26. Eller et træk og udfyld, der ville resultere i Jetson, George, 25 og derefter 26 , derefter 27 osv.
I mit regneark vil jeg fuldstændigt deaktivere klip/kopier/indsæt i visse kolonner, så kun tillade cut copy paste af acceptable data fra drop downs.
Tak.
Der er endnu ingen kommentarer her
Load More
Efterlad dine kommentarer
Sender som gæst
×
Bedøm dette indlæg:
0   Tegn
Foreslåede steder

Følg os

Copyright © 2009 - www.extendoffice.com. | Alle rettigheder forbeholdes. Drevet af ExtendOffice. | | Sitemap
Microsoft og Office-logoet er varemærker eller registrerede varemærker tilhørende Microsoft Corporation i USA og / eller andre lande.
Beskyttet af Sectigo SSL