Ako zabrániť tomu, aby bol váš zošit Excel presunutý alebo skopírovaný

Zdieľať teraz:

Krádež dát je možné minimalizovať vypnutím rôznych funkcií ponuky a pravým tlačidlom myši v programe Excel. Ďalej diskutujeme, ako to urobiť pomocou VBA.

Predpokladá sa, že čitateľ má zobrazenú pásku Excel Developer a je oboznámený s editorom VBA.

Užívateľské rozhranie

Vytvorte pracovný hárok s dvoma tlačidlami a malými údajmi.  Vytvorte pracovný hárok s dvoma tlačidlami a malými údajmi

Tento hárok bude mať zobrazenú pásku a všetky funkcie right_click, ktoré program Excel poskytuje.

Hárok je k dispozícii tu.

Kódex VBA

Existuje množstvo ovládacích prvkov príkazového riadku, ktoré je možné zakázať. Budete musieť vyhľadať na Googli identifikačné čísla týchto ovládacích prvkov. Na toto cvičenie 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

Priraďte tlačidlo Obnoviť k obnoveniu a tlačidlo Zakázať k obnoveniu Auto_open.

Spustite kód Auto_open; všimnete si, že Vystrihnúť a Kopírovať sú v ponuke kliknite pravým tlačidlom myši a že páska zmizla. Na karte hárok tiež nebudete môcť presunúť hárok do iného zošita.Priradiť tlačidlo Zakázať k Sub Auto_open

Tieto preventívne opatrenia budú vždy existovať, ale cieľom je sťažiť všetkým okrem vážneho hackera; ochrana tabuľky je ďalším odstrašujúcim prostriedkom a tiež zaistením, že ju nemožno skopírovať priamo z podpriečinka.

Na záver chráňte svoj kód pred prezeraním alebo zmenami:  Nástroje> Vlastnosti> Ochrana.

Poškodenie súborov programu Excel

"Zlikvidoval som spis; teraz zažívam zlyhania programu Excel bez zjavného dôvodu. Stále však očakávam, že dnes skončím. “

Či to bude mať šťastný koniec alebo nie, môže závisieť od toho, či má používateľ k dispozícii alebo nie je k dispozícii efektívny nástroj opraviť Excel. V tomto prípade mala tabuľka viac ako 90,000 XNUMX riadkov.

Úvod autora:

Felix Hooker je expert na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane oprava súboru rar a softvérové ​​produkty na obnovenie sql. Pre viac informácií navštívte www.datanumen. S

Zdieľať teraz:

Komentáre sú uzavreté.