Jak zabránit přesunutí nebo kopírování sešitu aplikace Excel

Krádež dat lze minimalizovat deaktivací různých funkcí nabídky a kliknutí pravým tlačítkem v aplikaci Excel. Níže diskutujeme, jak to udělat pomocí VBA.

Předpokládá se, že čtenář má zobrazenou pásku aplikace Excel Developer a je obeznámen s editorem VBA.

Uživatelské rozhraní

Vytvořte list se dvěma tlačítky a trochou dat. 

V tomto listu se zobrazí jeho pás karet a všechny funkce right_click, které Excel poskytuje.

List je k dispozici zde.

Kodex VBA

Existuje řada ovládacích prvků příkazového řádku, které lze deaktivovat. Pro tyto ovládací prvky budete muset na Googlu vyhledat identifikační čísla. Pro toto cvičení použijeme ID 19 a 21.

Sub Auto_Open()    ‘Auto_open runs automatically when the workbook is opened
    Dim Control As Office.CommandBarControl

    Application.CommandBars("ply").Enabled = False     'disables right-Click on sheet tab

    For Each Control In Application.CommandBars.FindControls(ID:=21)    'disables CUT
        Control.Enabled = False
    Next Control

    For Each Control In Application.CommandBars.FindControls(ID:=19)     'disables COPY
        Control.Enabled = False
    Next Control
    Application.CellDragAndDrop = False
 
    Application.ExecuteExcel4Macro "Show.ToolBar(""Ribbon"", False)"     'Hides ribbon
End Sub

Sub Restore()
    Application.CommandBars("ply").Enabled = True     'enables right-click on sheet tab

    Dim Control As Office.CommandBarControl

    For Each Control In Application.CommandBars.FindControls(ID:=21)     'enables CUT
        Control.Enabled = True
    Next Control

    For Each Control In Application.CommandBars.FindControls(ID:=19)     'enables COPY
        Control.Enabled = True
    Next Control
    Application.CellDragAndDrop = True

    Application.ExecuteExcel4Macro "Show.ToolBar(""Ribbon"", True)"     'shows ribbon
End Sub

Sub Auto_close()    
    Call Restore    ‘Ensure other workbooks work properly
End Sub

Přiřaďte tlačítko Obnovit sub Obnovit a tlačítko Zakázat sub Auto_open.

Spusťte kód Auto_open; všimnete si, že Vyjmutí a kopírování jsou v nabídce pravého tlačítka zakázány a pás karet zmizel. Ze záložky list také nebudete moci přesunout list do jiného sešitu.

Tato preventivní opatření budou vždy existovat, ale cílem je zkomplikovat to všem kromě vážného hackera; ochrana tabulky je dalším odrazujícím prvkem a také zajišťuje, že ji nelze zkopírovat přímo z podsložky.

Nakonec ochraňte svůj kód před zobrazením nebo změnou:  Nástroje> Vlastnosti> Ochrana.

Poškození souboru Excel

"Soubor jsem duplikoval; nyní zažívám selhání aplikace Excel bez zjevného důvodu. Stále však očekávám, že budu dnes hotový. “

Zda to má šťastný konec nebo ne, může záviset na tom, zda má uživatel k dispozici efektivní nástroj, se kterým může opravit Excel. V tomto případě měla tabulka přes 90,000 XNUMX řádků.

Úvod autora:

Felix Hooker je odborník na obnovu dat v oboru DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně opravit rar a SQL softwarové produkty pro obnovu. Pro více informací navštivte www.datanumen.com