Jak zakázat funkce vyjmutí, kopírování a vložení v aplikaci Excel?

Předpokládejme, že máte sešit s důležitými daty, která musíte chránit před vyjmutím, kopírováním a vložením. Jak toho dosáhnout? Tento článek poskytuje metodu VBA, pomocí které můžete v sešitu aplikace Excel současně deaktivovat funkce vyjmutí, kopírování a vložení.

Zakažte funkce vyjmutí, kopírování a vložení pomocí kódu VBA

Zakažte funkce vyjmutí, kopírování a vložení pomocí kódu VBA

Chcete-li deaktivovat funkce vyjmutí, kopírování a vložení v sešitu aplikace Excel, postupujte následovně.

1. V sešitu musíte deaktivovat funkce vyjmutí, kopírování a vložení, stiskněte klávesu Další + F11 současně otevřete Microsoft Visual Basic pro aplikace okno.

2. V Microsoft Visual Basic pro aplikace v okně, poklepejte prosím Tato pracovní kniha vlevo Projekt panelu a poté zkopírujte a vložte níže uvedený kód VBA do souboru Tento sešit (kód) okno. Viz snímek obrazovky:

Kód VBA: Deaktivujte současně funkce vyjmutí, kopírování a vložení v aplikaci 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. Poté stiskněte tlačítko Další + Q klávesy pro opuštění Microsoft Visual Basic pro aplikace okno.

Nyní nemůžete vyjmout ani zkopírovat data z tohoto sešitu, zatím do něj nelze vložit data zkopírovaná z jiných listů nebo sešitů.

Poznámka: Funkce drag and drop je také deaktivována po spuštění výše uvedeného kódu VBA.

Související články:

• Jak zakázat kliknutí pravým tlačítkem na kartu listu v aplikaci Excel?
• Jak zakázat nabídku pravého tlačítka v zadaném listu nebo celém sešitu v aplikaci Excel?
• Jak zabránit nebo zakázat režim úprav dvojitým kliknutím na buňku v aplikaci Excel?

---

Nejlepší kancelářské nástroje produktivity

Kutools pro Excel řeší většinu vašich problémů a zvyšuje vaši produktivitu o 80%

• Opakované použití: Rychle vložte složité vzorce, grafy a cokoli, co jste dříve používali; Šifrovat buňky s heslem; Vytvořte seznam adresátů a posílat e-maily ...
• Super Formula Bar (snadno upravit více řádků textu a vzorce); Rozložení pro čtení (snadno číst a upravovat velké množství buněk); Vložit do filtrovaného rozsahu...
• Sloučit buňky / řádky / sloupce bez ztráty dat; Rozdělit obsah buněk; Zkombinujte duplicitní řádky / sloupce... Zabraňte duplicitním buňkám; Porovnat rozsahy...
• Vyberte možnost Duplikovat nebo Jedinečný Řádky; Vyberte prázdné řádky (všechny buňky jsou prázdné); Super hledání a fuzzy hledání v mnoha sešitech; Náhodný výběr ...
• Přesná kopie Více buněk beze změny odkazu na vzorec; Automaticky vytvářet reference do více listů; Vložte odrážky, Zaškrtávací políčka a další ...
• Extrahujte text, Přidat text, Odebrat podle pozice, Odebrat mezeru; Vytváření a tisk mezisoučtů stránkování; Převod mezi obsahem buněk a komentáři...
• Super filtr (uložit a použít schémata filtrů na jiné listy); Rozšířené řazení podle měsíce / týdne / dne, frekvence a dalších; Speciální filtr tučnou kurzívou ...
• Kombinujte sešity a pracovní listy; Sloučit tabulky na základě klíčových sloupců; Rozdělte data do více listů; Dávkový převod xls, xlsx a PDF...
• Více než 300 výkonných funkcí. Podporuje Office / Excel 2007-2021 a 365. Podporuje všechny jazyky. Snadné nasazení ve vašem podniku nebo organizaci. Plné funkce 30denní bezplatná zkušební verze. 60denní záruka vrácení peněz.

Čtěte více... Stažení zdarma... Nákup... 

---

Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci

• Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
• Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
• Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!

Čtěte více... Stažení zdarma... Nákup...