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

Hoe de functies voor knippen, kopiëren en plakken in Excel uit te schakelen?

Stel dat u een werkmap heeft met belangrijke gegevens die u moet beschermen tegen knippen, kopiëren en plakken. Hoe bereik je dit? Dit artikel biedt een VBA-methode waarmee u de functies voor knippen, kopiëren en plakken tegelijkertijd in een Excel-werkmap kunt uitschakelen.

Schakel de functies voor knippen, kopiëren en plakken uit met VBA-code


Schakel de functies voor knippen, kopiëren en plakken uit met VBA-code

Ga als volgt te werk om de functies voor knippen, kopiëren en plakken in een Excel-werkmap uit te schakelen.

1. In de werkmap moet u de functies voor knippen, kopiëren en plakken uitschakelen. Druk op anders + F11 toetsen tegelijkertijd om het Microsoft Visual Basic voor toepassingen venster.

2. In de Microsoft Visual Basic voor toepassingen venster, dubbelklik Dit Werkboek links Project paneel en kopieer en plak vervolgens de onderstaande VBA-code in het ThisWorkbook (code) venster. Zie screenshot:

VBA-code: schakel de functies voor knippen, kopiëren en plakken tegelijkertijd uit in 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. Druk dan op de anders + Q toetsen om het Microsoft Visual Basic voor toepassingen venster.

U kunt nu geen gegevens uit deze werkmap knippen of kopiëren, maar gegevens die u uit andere werkbladen of werkmappen hebt gekopieerd, kunnen niet in deze werkmap worden geplakt.

Opmerking:: De functie slepen en neerzetten is ook uitgeschakeld na het uitvoeren van de bovenstaande VBA-code.


Gerelateerde artikelen:


De beste tools voor kantoorproductiviteit

Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%

  • visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
  • Voeg cellen / rijen / kolommen samen zonder gegevens te verliezen; Gespleten cellen inhoud; Combineer dubbele rijen / kolommen... Voorkom dubbele cellen; Vergelijk Ranges...
  • Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
  • Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
  • Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2021 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Volledige functies Gratis proefperiode van 30 dagen. 60 dagen geld-terug-garantie.
kte tabblad 201905

Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker

  • Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!
officetab onderkant
Comments (48)
Nog geen beoordelingen. Beoordeel als eerste!
Deze opmerking is gemaakt door de moderator op de site
ik doe zoals hierboven, maar de functie van knippen kopiëren en verleden uitgeschakeld in elk Excel-bestand dat ik open. Waarom?
Deze opmerking is gemaakt door de moderator op de site
Hallo, ik heb dit gebruikt om "Cut" voor gebruikers te verbergen en het werkt geweldig, tenzij je een tabel hebt, verschijnt de "Cut" op wonderbaarlijke wijze opnieuw wanneer je een cel in de tabel selecteert, precies wat ik probeer te vermijden. enig idee? Met dank!
Deze opmerking is gemaakt door de moderator op de site
Bedankt meneer, het werkt. Maar in de hele werkmap. Als ik deze code alleen in een bepaald blad nodig heb. Is het mogelijk ??
Deze opmerking is gemaakt door de moderator op de site
heb je een antwoord gevonden?
Deze opmerking is gemaakt door de moderator op de site
Heel erg bedankt. Het werkt in het hele werkboek. Kunnen we de codering alleen voor 1 vel doen. Help alstublieft.
Deze opmerking is gemaakt door de moderator op de site
Hoe de knip-, kopieer- en plakfunctie terug inschakelen? Adviseer alstublieft!
Deze opmerking is gemaakt door de moderator op de site
Beste Sky
Voer de onderstaande VBA1 uit (plaats de code in de ThisWorkbook-module) om de knip-, kopieer- en plakfunctie in uw werkmap uit te schakelen.

VBA1:
Sub DelCopy()
Met toepassing
.OnKey "^x", ""
.OnKey "^c", ""
.CommandBars("Cel").Controls(1).Enabled = False
.CommandBars("Cel").Controls(2).Enabled = False
Eindigt met
End Sub

En voer de VBA2 uit om al deze functies weer in uw werkmap in te schakelen.

VBA2:
Sub HerstelKopiëren()
Met toepassing
.OnKey "^x"
.OnKey "^c"
.CommandBars("Cel").Controls(1).Enabled = True
.CommandBars("Cel").Controls(2).Enabled = True
Eindigt met
End Sub
Deze opmerking is gemaakt door de moderator op de site
Dit lijkt niet te hebben gewerkt voor mij - moet ik de originele VBA-code verwijderen en vervolgens het bovenstaande erin plakken om de functie Knippen, kopiëren en plakken weer in te schakelen?
Deze opmerking is gemaakt door de moderator op de site
Good Day,
De VBA1in bovenstaande opmerking is de vervanging van de originele code.
Deze opmerking is gemaakt door de moderator op de site
Geachte,

ik wil knippen, kopiëren en plakken in Excel 2007-blad uitschakelen
kun je hier code voor delen
Deze opmerking is gemaakt door de moderator op de site
Good Day,
Bedankt voor je reactie. Ik probeer de oplossing voor Excel 2007 te vinden. Even geduld aub.
Deze opmerking is gemaakt door de moderator op de site
Hoi,
Is het mogelijk om alleen "CUT" uit te schakelen? maar ik kon nog steeds gebruik maken van de Kopiëren en Plakken?
Deze opmerking is gemaakt door de moderator op de site
Hallo Carmelo,
Kopieer en plak de onderstaande code in het werkmapcodevenster in uw werkmap en sla deze vervolgens op als een Excel-werkmap met macro's. Dan wordt de functie "Knippen" uitgeschakeld.

Optie Expliciet
Privé met Evenementen cmbrs als opdrachtbalken

Private Sub Workbook_Open ()
Stel Cmbrs = Application.CommandBars in
End Sub

Private Sub Workbook_Activate ()
Als Application.CutCopyMode = 2 Dan
Applicatie.CutCopyMode = 0
End If
End Sub

Privé sub Cmbrs_OnUpdate()
Als ik actief benWerkboek dan
Als Application.CutCopyMode = 2 Dan
Applicatie.CutCopyMode = 0
MsgBox "Snijbewerkingen uitgeschakeld"
End If
End If
End Sub
Deze opmerking is gemaakt door de moderator op de site
Ik heb het geprobeerd zoals je zei, maar er gebeurde niets. Een wil precies hetzelfde, Alleen de
"Cut"-functie uitgeschakeld. Ik moet de optie "knippen" uitschakelen in de optie Rechts klikken op de knop en in de werkbalk.
Het is mogelijk kristal??
Deze opmerking is gemaakt door de moderator op de site
Goede dag,
De code werkt in mijn geval goed. Mag ik uw Office-versie weten?
Deze opmerking is gemaakt door de moderator op de site
Hi

Ik ben een beginner van VBA-codes en deze code loste 99% van mijn problemen op.

Is het mogelijk om het gatenvel te vergrendelen (zoals deze codedosis) maar nog steeds één cel ontgrendeld te hebben?
(Verduidelijk, ik zou graag kopiëren in info in slechts één cel in het gatenblad toestaan).

Beste wensen
L
Deze opmerking is gemaakt door de moderator op de site
Hallo Linda,
U kunt het probleem oplossen zonder VBA-code te gebruiken.
Klik met de rechtermuisknop op de cel en selecteer Cellen opmaken in het contextmenu, schakel het selectievakje Vergrendeld uit onder het tabblad Beveiliging in het dialoogvenster. En beveilig vervolgens het werkblad met een wachtwoord.
Deze opmerking is gemaakt door de moderator op de site
Was super blij om dit bericht te vinden, maar ik heb wat hulp nodig om dit te beperken tot een enkel werkblad in een werkmap met meerdere werkbladen. En we moeten weten hoe we dit kunnen uitvoeren zonder tussenkomst van de gebruiker... we hebben dit zo snel mogelijk nodig in een werkmap om fouten te voorkomen.
Deze opmerking is gemaakt door de moderator op de site
Goede dag,
De volgende VBA-code kan u helpen het probleem op te lossen. En vergeet niet om "Blad2" in de code te vervangen door uw bladnaam.

Openbare mJWSName As String

Private Sub Workbook_Open ()
mJWSName = "Blad2"
End Sub

Private Sub Workbook_Activate ()
Als ActiveSheet.Name = mJWSName Dan
Application.CutCopyMode = False
Application.OnKey "^c", ""
Application.CellDragAndDrop = Onwaar
End If
End Sub

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


Private Sub Workbook_WindowActivate (ByVal Wn As Window)
Als ActiveSheet.Name = mJWSName Dan
Application.CutCopyMode = False
Application.OnKey "^c", ""
Application.CellDragAndDrop = Onwaar
End If
End Sub

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

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

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

Private Sub Workbook_SheetDeactivate (ByVal Sh As Object)
Application.OnKey "^c"
Application.CellDragAndDrop = Waar
Application.CutCopyMode = False
End Sub
Deze opmerking is gemaakt door de moderator op de site
Nog een laatste vraag: waar gaat deze code naartoe en hoe wordt deze uitgevoerd? Het project waarmee dit moet werken, voegt een XLA-bestand toe aan het Excel-blad dat veel van de code bevat. Ik wist niet of dit in een module of de code achter dit blad moet. Bedankt...
Deze opmerking is gemaakt door de moderator op de site
Bedankt voor je aanwijzingen. Ik probeer in 2013 op kantoor, maar er is niets veranderd.
Deze opmerking is gemaakt door de moderator op de site
Hallo, de code werkt goed, bedankt.
De alleen-lezen optie was echter ingeschakeld. (als u niet wilt wijzigen). Als ik ..File, save as, tools, general options, read only Recommended.. instel, dan werkt de code niet.

Dank bij voorbaat.
Deze opmerking is gemaakt door de moderator op de site
Het werkt echt goed, heel erg bedankt.
Deze opmerking is gemaakt door de moderator op de site
Bedankt, het werkt perfect ....kan het op de een of andere manier alleen op een bereik worden toegepast?
Deze opmerking is gemaakt door de moderator op de site
Goede dag,
Sorry kan je daar niet mee helpen. Welkom bij het plaatsen van een vraag op ons forum: https://www.extendoffice.com/forum.html. Bedankt voor je reactie.
Deze opmerking is gemaakt door de moderator op de site
BEDANKT SIR
Deze opmerking is gemaakt door de moderator op de site
Dank u, zeer nuttig.
Deze opmerking is gemaakt door de moderator op de site
knippen kopiëren plakken van toepassing Hele werkmap. Als ik deze code alleen in een bepaald blad nodig heb. Is het mogelijk ??
Help alstublieft. we hebben slechts één bladuitschakelfunctie nodig. een ander blad we werken alle functies...
Deze opmerking is gemaakt door de moderator op de site
Die code werkt niet in mijn Excel 2016 voor een enkel blad in plaats van de hele werkmap
Deze opmerking is gemaakt door de moderator op de site
Hiermee kun je nog steeds plakken vanuit Kladblok of Microsoft Edge. Kijk of er een manier is om plakken vanuit welke bron dan ook te voorkomen.
Deze opmerking is gemaakt door de moderator op de site
Hoi,
Als we plakken vanuit welke bron dan ook voorkomen, moeten we de Kladblok-functie voorkomen, wat ongemak kan veroorzaken. Wij raden dit niet aan. Sorry kan je daar niet aan helpen.
Deze opmerking is gemaakt door de moderator op de site
Ik heb deze code gebruikt en wil opnieuw inschakelen? hoe opnieuw inschakelen?
Deze opmerking is gemaakt door de moderator op de site
gebruik deze code om kopiëren, knippen en plakken uit te schakelen



Private Sub Workbook_Activate ()

Application.CutCopyMode = False

Application.OnKey "^c", ""

Application.CellDragAndDrop = Onwaar

End Sub



Private Sub Workbook_Deactivate ()

Application.CellDragAndDrop = Waar

Application.OnKey "^c"

Application.CutCopyMode = False

End Sub



Private Sub Workbook_WindowActivate (ByVal Wn As Window)

Application.CutCopyMode = False

Application.OnKey "^c", ""

Application.CellDragAndDrop = Onwaar

End Sub



Private Sub Workbook_WindowDeactivate (ByVal Wn As Window)

Application.CellDragAndDrop = Waar

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

Application.CutCopyMode = False

End Sub



Private Sub Workbook_SheetDeactivate (ByVal Sh As Object)

Application.CutCopyMode = False

End Sub





en deze functie weer wilt inschakelen
Deze opmerking is gemaakt door de moderator op de site
Dit werkt prima, hoe zou je dit kunnen wijzigen om kopiëren/plakken toe te staan ​​in specifieke kolommen die uitklapmenu's hebben die zijn gekoppeld aan benoemde bereiken van acceptabele invoer en alleen de acceptabele invoer. Een naam die bijvoorbeeld Jetson, George, 25 is, zou een kopie/plak van Jetson, George, 25 toestaan, maar Jeston, George, 26 niet. Of een drag-and-fill die zou resulteren in Jetson, George, 25 dan 26 , dan 27, enz.
In mijn werkblad wil ik knippen/kopiëren/plakken in bepaalde kolommen volledig uitschakelen, en dan alleen knippen, kopiëren en plakken van acceptabele gegevens uit vervolgkeuzelijsten toestaan.
Dank je.
Er zijn nog geen reacties geplaatst
Laad meer
Laat uw commentaar
Posten als gast
×
Beoordeel dit bericht:
0   Personages
Voorgestelde locaties

Volg ons

Copyright © 2009 - www.extendoffice.com. | Alle rechten voorbehouden. Aangedreven door ExtendOffice. | Sitemap
Microsoft en het Office-logo zijn handelsmerken of gedeponeerde handelsmerken van Microsoft Corporation in de Verenigde Staten en / of andere landen.
Beschermd door Sectigo SSL