Jak zapobiec usuwaniu wierszy lub kolumn w udostępnionym niezabezpieczonym skoroszycie?
Gdy udostępniasz skoroszyt innym osobom, jak możesz uniemożliwić innym usuwanie kolumn lub wierszy udostępnionego skoroszytu bez ochrony skoroszytu? Tutaj znajduję kod VBA, który może uniemożliwić innym usuwanie kolumn i wierszy w udostępnionym skoroszycie.
Zapobiegaj usuwaniu wierszy lub kolumn we współdzielonym skoroszycie za pomocą VBA
Zapobiegaj usuwaniu wierszy lub kolumn we współdzielonym skoroszycie za pomocą VBA
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.
VBA: Zapobiegaj usuwaniu wierszy lub kolumn.
Sub StopDeleteRowCols()
'Updateby20221221
Dim xBarControl As CommandBarControl
Application.OnKey "^{-}", ""
For Each xBarControl In Application.CommandBars.FindControls(ID:=293)
xBarControl.Enabled = False
Next
For Each xBarControl In Application.CommandBars.FindControls(ID:=294)
xBarControl.Enabled = False
Next
End Sub
3. kliknij run przycisk lub F5 na klawiaturze, aby uruchomić ten kod.
Następnie, gdy inni klikną prawym przyciskiem myszy, aby usunąć wybrane kolumny lub wiersze, opcji Usuń nie można zastosować w menu kontekstowym. Zobacz zrzut ekranu:
Ponadto uniemożliwia użytkownikom używanie skrótu klawiszowego Ctrl + - do usuwania wierszy lub kolumn.
Uwaga:
(1) Jeśli udostępniłeś skoroszyt Review > Udostępnij skoroszyt, nie możesz już dodawać żadnych makr VBA. Dlatego lepiej dodaj VBA przed udostępnieniem skoroszytu.
(2) Ten VBA wyłączy Usuń w menu kontekstowym we wszystkich skoroszytach po kliknięciu prawym przyciskiem myszy wybranych kolumn lub wierszy.
(3) Aby przywrócić plik Usuń w menu kontekstowym zamień oba Fałszywy w Prawdziwy w powyższym języku VBA i ponownie uruchom VBA.
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!