Gå til hovedindhold
 

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

Forfatter: Siluvia Sidst ændret: 2024-08-29

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

et skærmbillede, der viser, hvordan man bruger VBA-koden

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.

et skærmbillede af kutools til excel ai

Lås op for Excel Magic med Kutools AI

  • Smart udførelse: Udfør cellehandlinger, analyser data og opret diagrammer – alt sammen drevet af simple kommandoer.
  • Brugerdefinerede formler: Generer skræddersyede formler for at strømline dine arbejdsgange.
  • VBA kodning: Skriv og implementer VBA-kode uden besvær.
  • Formel fortolkning: Forstå komplekse formler med lethed.
  • Tekstoversættelse: Bryd sprogbarrierer i dine regneark.
Forbedre dine Excel-funktioner med AI-drevne værktøjer. Hent nu og oplev effektivitet som aldrig før!

Relaterede artikler:


Bedste kontorproduktivitetsværktøjer

🤖 Kutools AI Aide: Revolutionér dataanalyse baseret på: Intelligent udførelse   |  Generer kode  |  Opret brugerdefinerede formler  |  Analyser data og generer diagrammer  |  Aktiver Kutools funktioner...
Populære funktioner: Find, fremhæv eller identificer dubletter   |  Slet tomme rækker   |  Kombiner kolonner eller celler uden at miste data   |   Runde uden formel ...
Super opslag: VLookup med flere kriterier    Multiple Value VLookup  |   VOpslag på tværs af flere ark   |   Fuzzy Lookup ....
Avanceret rulleliste: Opret hurtigt rulleliste   |  Afhængig rulleliste   |  Multivælg rulleliste ....
Column Manager: Tilføj et bestemt antal kolonner  |  Flyt kolonner  |  Skift synlighedsstatus for skjulte kolonner  |  Sammenlign områder og kolonner ...
Fremhævede funktioner: Grid fokus   |  Designvisning   |   Stor Formel Bar    Arbejdsbog & Ark Manager   |  Ressourcebibliotek (Autotekst)   |  Datovælger   |  Kombiner regneark   |  Krypter/Dekrypter celler    Send e-mails efter liste   |  Superfilter   |   Specielt filter (filter fed/kursiv/gennemstreget...) ...
Top 15 værktøjssæt12 tekst Værktøjer (tilføje tekst, Fjern tegn, ...)   |   50 + Chart Typer (Gantt kort, ...)   |   40+ Praktisk formler (Beregn alder baseret på fødselsdag, ...)   |   19 Indsættelse Værktøjer (Indsæt QR-kode, Indsæt billede fra sti, ...)   |   12 Konvertering Værktøjer (Tal til ord, Valutaomregning, ...)   |   7 Flet og del Værktøjer (Avancerede kombinere rækker, Opdel celler, ...)   |   ... og mere

Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid.  Klik her for at få den funktion, du har mest brug for...


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!