Jak wyłączyć możliwość wstawiania wiersza i kolumny w programie Excel?
Zwykle możemy szybko i łatwo wstawiać wiersze i kolumny między istniejącymi danymi, jeśli uniemożliwiasz innym wstawianie kolumn lub wierszy w arkuszu, możesz zabezpieczyć arkusz, aby wyłączyć funkcję wstawiania wierszy lub kolumn. Ale jak można wyłączyć funkcję wstawiania wierszy i kolumn bez ochrony arkusza?
Zapobiegaj wstawianiu wierszy i kolumn przez inne osoby z kodem VBA
Zapobiegaj wstawianiu wierszy i kolumn przez inne osoby z kodem VBA
Poniższy kod VBA może pomóc w wyłączeniu funkcji wstawiania wierszy i kolumn w skoroszycie programu Excel, wykonaj następujące czynności:
1. naciśnij Alt + F11 otworzyć a Microsoft Visual Basic dla aplikacji okno.
2. Kliknij wstawka > Moduł aby otworzyć okno modułu, a następnie skopiuj poniższy VBA do okna.
Kod VBA: zapobiegaj wstawianiu wierszy i kolumn:
Sub NoInsert()
'Updateby Extendoffice
Dim I As Integer
Dim cbStr As String
Dim cbCtrl As CommandBarControl
Application.ScreenUpdating = False
For I = 1 To 2
If I = 1 Then
cbStr = "row"
Else
cbStr = "column"
End If
For Each cbCtrl In Application.CommandBars(cbStr).Controls
If cbCtrl.ID = 3183 Then
cbCtrl.Enabled = False
End If
Next
Next
Application.ScreenUpdating = True
End Sub
3. naciśnij F5 Aby uruchomić ten kod, teraz, gdy klikniesz prawym przyciskiem myszy, aby wstawić wiersze lub kolumny, plik wstawka opcji nie można zastosować w menu kontekstowym. Zobacz zrzut ekranu:
Uwagi:
1. Ten VBA wyłączy funkcję Wstaw w menu kontekstowym we wszystkich skoroszytach, gdy klikniesz prawym przyciskiem myszy, aby wstawić wiersze lub kolumny.
2. Aby przywrócić polecenie Wstaw w menu kontekstowym, zastosuj następujący kod:
Sub NoInsert()
'Updateby Extendoffice
Dim I As Integer
Dim cbStr As String
Dim cbCtrl As CommandBarControl
Application.ScreenUpdating = True
For I = 1 To 2
If I = 1 Then
cbStr = "row"
Else
cbStr = "column"
End If
For Each cbCtrl In Application.CommandBars(cbStr).Controls
If cbCtrl.ID = 3183 Then
cbCtrl.Enabled = True
End If
Next
Next
Application.ScreenUpdating = True
End Sub
Najlepsze narzędzia biurowe
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 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!