Kako spriječiti premještanje ili kopiranje vaše Excel radne sveske

Krađa podataka se može svesti na minimum onemogućavanjem raznih menija i funkcija desnog klika u Excelu. U nastavku ćemo raspravljati o tome kako to učiniti koristeći VBA.

Pretpostavlja se da čitač ima prikazanu Excel Developer traku i da je upoznat sa VBA Editorom.

Korisnički interfejs

Napravite radni list sa dva dugmeta i malo podataka. 

Ovaj list će imati prikazanu traku i sve funkcije desnog klika koje Excel pruža.

List je dostupan OVDJE.

VBA kod

Postoji niz kontrola komandne trake koje se mogu onemogućiti. Morat ćete pretražiti Google za ID brojeve ovih kontrola. Za ovu vježbu koristit ćemo ID 19 i 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

Dodijelite dugme Restore za pod-Vraćanje, a dugme Disable za pod-Auto_open.

Pokrenite Auto_open kod; primijetit ćete da su Cut i Copy onemogućeni u meniju desnog klika i da je traka nestala. Takođe nećete moći da premestite list u drugu radnu svesku sa kartice lista.

Uvek će postojati načini da se zaobiđu ove mere predostrožnosti, ali cilj je otežati svima osim ozbiljnom hakeru; zaštita proračunske tablice dodatno je odvraćanje, kao i osiguranje da se ne može kopirati direktno iz podfasika.

Konačno, zaštitite svoj kod od pregleda ili promjene:  Alati>Svojstva>Zaštita.

Oštećenje Excel datoteke

„Otkrio sam dosije; sada doživljavam greške u Excelu bez vidljivog razloga. Ipak, očekujem da ću danas biti gotov.”

Da li će ovo imati sretan kraj ili ne, može zavisiti od toga da li korisnik ima na raspolaganju efikasan alat sa kojim može popraviti Excel. U konkretnom slučaju, tabela je imala više od 90,000 redova.

Uvod za autora:

Felix Hooker je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući popravak rar-a i sql softverski proizvodi za oporavak. Za više informacija posjetite www.datanumen.com