Přejít k hlavnímu obsahu

Jak zabránit ostatním v vkládání listu do aplikace Excel?

Předpokládejme, že máte sešit, který bude odeslán ostatním uživatelům k prohlížení nebo kontrole jeho obsahu, ale nechcete, aby ostatní do tohoto sešitu vkládali nové listy, aby se zabránilo zamotání sešitu. V tomto článku budu hovořit o tom, jak zabránit ostatním v vkládání listů do sešitu.

Zabraňte ostatním v vkládání listu pomocí funkce Chraňte sešit

Zabraňte ostatním v vkládání listu s kódem VBA


šipka modrá pravá bublina Zabraňte ostatním v vkládání listu pomocí funkce Chraňte sešit

Excel poskytuje funkci - Chraňte sešit s ním můžete chránit strukturu sešitu, která se nebude vkládat, mazat, přejmenovávat ani provádět jiné operace. Postupujte prosím následovně:

1. Přejít na kliknutí přezkoumání > Chraňte sešit, viz screenshot:

doc-prevent-inserting-sheet1

2. V Chraňte strukturu a okna v dialogovém okně zaškrtněte Struktura možnost a do textového pole zadejte heslo, klikněte na OK pro zobrazení Potvrďte heslo dialogové okno a znovu zadejte heslo. Zobrazit snímky obrazovky:

doc-prevent-inserting-sheet2 -2 doc-prevent-inserting-sheet3

3. Pak klikněte na tlačítko OK zavřete dialogová okna a nyní, když do tohoto sešitu vložíte nový list, nebude funkce vložit list k dispozici.

Poznámka: S touto funkcí umožňují použití v tomto sešitu také následující šedé položky.

doc-prevent-inserting-sheet1


šipka modrá pravá bublina Zabraňte ostatním v vkládání listu s kódem VBA

Pokud chcete ostatním zabránit v vkládání pracovních listů, ale můžete také provádět jiné operace, výše uvedená metoda má své omezení. Následující kód VBA vám může udělat laskavost.

1. Otevřete sešit, který chcete deaktivovat, a vložte pracovní listy.

2. Poté přidržte ALT + F11 klíče a otevře se Okno Microsoft Visual Basic pro aplikace.

3. Vlevo Projekt VBA v podokně poklepejte Tato pracovní kniha k otevření Modul, poté zkopírujte a vložte následující kód.

Kód VBA: zabraňte ostatním v vkládání listu

Private Sub Workbook_NewSheet(ByVal Sh As Object)
'Update 20140623
With Application
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Sh.Delete
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End With
 MsgBox "disable to add sheets"
End Sub

doc-prevent-inserting-sheet1

4. Poté tento kód uložte a zavřete, vraťte se do sešitu a nyní, když se pokusíte do tohoto sešitu vložit nový list, vyskočí výstražné okno, které vám připomene, že nelze vložit listy. Viz snímek obrazovky:

doc-prevent-inserting-sheet1


Související články:

Jak zabránit uživatelům v tisku listu?

Jak zakázat klíč nápovědy F1 v aplikaci Excel?

Nejlepší nástroje pro produktivitu v kanceláři

🤖 Kutools AI asistent: Revoluční analýza dat založená na: Inteligentní provedení   |  Generovat kód  |  Vytvořte vlastní vzorce  |  Analyzujte data a generujte grafy  |  Vyvolejte funkce Kutools...
Populární funkce: Najít, zvýraznit nebo identifikovat duplikáty   |  Odstranit prázdné řádky   |  Kombinujte sloupce nebo buňky bez ztráty dat   |   Kolo bez vzorce ...
Super vyhledávání: Více kritérií VLookup    VLookup s více hodnotami  |   VLookup na více listech   |   Fuzzy vyhledávání ....
Pokročilý rozevírací seznam: Rychle vytvořte rozevírací seznam   |  Závislý rozbalovací seznam   |  Vícenásobný výběr rozevíracího seznamu ....
Správce sloupců: Přidejte konkrétní počet sloupců  |  Přesunout sloupce  |  Přepnout stav viditelnosti skrytých sloupců  |  Porovnejte rozsahy a sloupce ...
Doporučené funkce: Zaměření mřížky   |  Návrhové zobrazení   |   Velký Formula Bar    Správce sešitů a listů   |  Knihovna zdrojů (Automatický text)   |  Výběr data   |  Zkombinujte pracovní listy   |  Šifrovat/dešifrovat buňky    Odesílat e-maily podle seznamu   |  Super filtr   |   Speciální filtr (filtr tučné/kurzíva/přeškrtnuté...) ...
Top 15 sad nástrojů12 Text Tools (doplnit text, Odebrat znaky, ...)   |   50+ Graf Typ nemovitosti (Ganttův diagram, ...)   |   40+ Praktické Vzorce (Vypočítejte věk na základě narozenin, ...)   |   19 Vložení Tools (Vložte QR kód, Vložit obrázek z cesty, ...)   |   12 Konverze Tools (Čísla na slova, Přepočet měny, ...)   |   7 Sloučit a rozdělit Tools (Pokročilé kombinování řádků, Rozdělit buňky, ...)   |   ... a více

Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času.  Kliknutím sem získáte funkci, kterou nejvíce potřebujete...

Popis


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!

 

Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
This code does not work on a shared worksheet; when I click the "Insert Worksheet" tab I get "Run-time error 1004, Delete Method of Worksheet class failed". Can you give any advice on how to solve this?
This comment was minimized by the moderator on the site
Most of time my user create more worksheet which is confusing this really helps me.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations