Jak zabránit odstranění řádků nebo sloupců ve sdíleném nechráněném sešitu?

Když sdílíte sešit s ostatními, jak můžete ostatním zabránit v odstranění sloupců nebo řádků ze sdíleného sešitu bez ochrany sešitu? Zde najdu kód VBA, který může ostatním zabránit ve smazání sloupců a řádků ve sdíleném sešitu.

Zabraňte odstranění řádků nebo sloupců ve sdíleném sešitu pomocí VBA

Zabraňte odstranění řádků nebo sloupců ve sdíleném sešitu pomocí VBA

1. lis Alt + F11 otevřít a Microsoft Visual Basic pro aplikaci okno.

2. cvaknutí Vložit > Modul otevřete okno modulu a do okna zkopírujte následující VBA.

VBA: Zabraňte odstranění řádků nebo sloupců.

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. cvaknutí Běh nebo F5 klávesu pro spuštění tohoto kódu.

Když pak ostatní kliknou pravým tlačítkem myši a odstraní vybrané sloupce nebo řádky, nelze v kontextové nabídce použít možnost Odstranit. Viz screenshot:

Také to brání uživatelům používat klávesovou zkratku Ctrl + - k odstranění řádků nebo sloupců.

Poznámka:

(1) Pokud jste sešit sdíleli s přezkoumání > Sdílet sešit, již nemůžete přidávat žádná makra VBA. Proto raději přidejte VBA před sdílením sešitu.

(2) Tento VBA zakáže Vymazat v kontextové nabídce ve všech sešitech, když kliknete pravým tlačítkem na vybrané sloupce nebo řádky.

(3) Chcete-li obnovit Vymazat v místní nabídce nahraďte obě Falešný s Pravdivý ve VBA výše a spusťte VBA znovu.