Przejdź do głównej zawartości

Jak uniemożliwić innym wstawianie arkusza roboczego w programie Excel?

Przypuśćmy, że masz skoroszyt, który zostanie wysłany do innych użytkowników w celu przeglądania lub sprawdzenia jego zawartości, jednak nie chcesz, aby inni wstawiali do tego skoroszytu nowe arkusze, aby zapobiec bałaganowi w skoroszycie. W tym artykule omówię, jak uniemożliwić innym wstawianie arkuszy do skoroszytu.

Zablokuj innym możliwość wstawiania arkusza za pomocą funkcji Chroń skoroszyt

Uniemożliwiaj innym wstawianie arkusza roboczego z kodem VBA


strzałka niebieski prawy bąbelek Zablokuj innym możliwość wstawiania arkusza za pomocą funkcji Chroń skoroszyt

Excel udostępnia funkcję - Chroń skoroszyt dzięki niemu możesz chronić strukturę skoroszytu, która nie będzie wstawiana, usuwana, zmieniana nazwa ani nie będzie wykonywać innych operacji. Wykonaj następujące czynności:

1. Przejdź do kliknięcia Review > Chroń skoroszytzobacz zrzut ekranu:

doc-Prevent-inserting-sheet1

2, w Chroń strukturę i okna okno dialogowe, zaznacz Structure opcję i wprowadź hasło w polu tekstowym, kliknij OK aby pokazać Powtórz hasło okno dialogowe i ponownie wprowadź hasło. Zobacz zrzuty ekranu:

doc-Prevent-inserting-sheet2 -2 doc-Prevent-inserting-sheet3

3. Następnie kliknij OK aby zamknąć okna dialogowe, a teraz po wstawieniu nowego arkusza roboczego do tego skoroszytu funkcja wstawiania arkusza nie będzie dostępna.

Uwaga: Dzięki tej funkcji następujące szare elementy umożliwiają również użycie w tym skoroszycie.

doc-Prevent-inserting-sheet1


strzałka niebieski prawy bąbelek Uniemożliwiaj innym wstawianie arkusza roboczego z kodem VBA

Jeśli chcesz tylko uniemożliwić innym wstawianie arkuszy, ale możesz również wykonywać inne operacje, powyższa metoda ma swoje ograniczenia. Tutaj poniższy kod VBA może wyświadczyć ci przysługę.

1. Otwórz skoroszyt, który chcesz wyłączyć, aby wstawić arkusze.

2. Następnie przytrzymaj ALT + F11 klucze i otwiera plik Okno Microsoft Visual Basic for Applications.

3. Po lewej Projekt VBA okienku, kliknij dwukrotnie Ten zeszyt otworzyć Moduł, a następnie skopiuj i wklej następujący kod.

Kod VBA: uniemożliwiaj innym wstawianie arkusza roboczego

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. Następnie zapisz i zamknij ten kod, wróć do skoroszytu, a teraz, gdy spróbujesz wstawić nowy arkusz do tego skoroszytu, pojawi się okno ostrzegawcze przypominające, że nie możesz wstawiać arkuszy. Zobacz zrzut ekranu:

doc-Prevent-inserting-sheet1


Podobne artykuły:

Jak uniemożliwić użytkownikom drukowanie arkusza roboczego?

Jak wyłączyć klawisz pomocy F1 w programie Excel?

Najlepsze narzędzia biurowe

Popularne funkcje: Znajdź, wyróżnij lub zidentyfikuj duplikaty   |  Usuń puste wiersze   |  Łącz kolumny lub komórki bez utraty danych   |   Okrągły bez wzoru ...
Super wyszukiwanie: Wiele kryteriów VLookup    Wiele wartości VLookup  |   Przeglądanie pionowe na wielu arkuszach   |   Wyszukiwanie rozmyte ....
Zaawansowana lista rozwijana: Szybko twórz listę rozwijaną   |  Zależna lista rozwijana   |  Lista rozwijana wielokrotnego wyboru ....
Menedżer kolumn: Dodaj określoną liczbę kolumn  |  Przesuń kolumny  |  Przełącz stan widoczności ukrytych kolumn  |  Porównaj zakresy i kolumny ...
Polecane funkcje: Fokus siatki   |  Widok projektu   |   Duży pasek formuły    Menedżer skoroszytów i arkuszy   |  Biblioteka zasobów (Automatyczny tekst)   |  Selektor dat   |  Połącz arkusze   |  Szyfruj/odszyfruj komórki    Wysyłaj e-maile według listy   |  Super filtr   |   Specjalny filtr (filtruj pogrubienie/kursywa/przekreślenie...) ...
15 najlepszych zestawów narzędzi12 Tekst Tools (Dodaj tekst, Usuń znaki, ...)   |   50 + Wykres rodzaje (Wykres Gantta, ...)   |   40+ Praktyczne Wzory (Oblicz wiek na podstawie urodzin, ...)   |   19 Wprowadzenie Tools (Wstaw kod QR, Wstaw obraz ze ścieżki, ...)   |   12 Konwersja Tools (Liczby na słowa, Przeliczanie walut, ...)   |   7 Połącz i podziel Tools (Zaawansowane wiersze łączenia, Podział komórki, ...)   |   ... i więcej

Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas.  Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...

karta kte 201905


Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę

  • Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
  • Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
  • Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!

 

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