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:

• Sådan deaktiveres højreklik på arkfanen i Excel?
• Hvordan deaktiveres højreklikmenuen i det angivne regneark eller hele projektmappen i Excel?
• Hvordan forhindres eller deaktiveres redigeringstilstand ved at dobbeltklikke på celle i Excel?

---

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.

Læs mere ... Gratis download... Køb... 

---

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!

Læs mere ... Gratis download... Køb...