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.

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

Ontgrendel Excel Magic met Kutools AI

• Slimme uitvoering: Voer celbewerkingen uit, analyseer gegevens en maak grafieken, allemaal aangestuurd door eenvoudige opdrachten.
• Aangepaste formules: Genereer op maat gemaakte formules om uw workflows te stroomlijnen.
• VBA-codering: Moeiteloos VBA-code schrijven en implementeren.
• Formule-interpretatie: Begrijp complexe formules met gemak.
• Tekstvertaling: Doorbreek taalbarrières binnen uw spreadsheets.

Verbeter uw Excel-mogelijkheden met AI-aangedreven tools. Nu downloaden en ervaar efficiëntie als nooit tevoren!

Gerelateerde artikelen:

• Hoe klik je met de rechtermuisknop op de bladtab in Excel?
• Hoe het rechtsklikmenu in het opgegeven werkblad of de hele werkmap in Excel uit te schakelen?
• Hoe de bewerkingsmodus te voorkomen of uit te schakelen door in Excel op de cel te dubbelklikken?