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

Krađa podataka može se minimizirati onemogućavanjem raznih značajki izbornika i desnom tipkom miša u Excelu. U nastavku ćemo razmotriti kako to učiniti pomoću VBA.

Pretpostavlja se da čitatelj ima prikazanu vrpcu Excel Developer i da je upoznat s VBA uređivačem.

Korisničko sučelje

Napravite radni list s dva gumba i malo podataka. 

Ovaj će list imati prikazanu vrpcu i sve funkcije desnog klika koje Excel nudi.

List je dostupan ovdje.

VBA kod

Postoje razne kontrole naredbene trake koje se mogu onemogućiti. Morat ćete pretražiti Google za ID brojeve ovih kontrola. Za ovu vježbu koristit ćemo ID-ove 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 gumb Restore sub Restore, a gumb Disable sub Auto_open.

Pokrenite Auto_open kod; primijetit ćete da su Cut i Copy onemogućeni na izborniku desnog klika i da je vrpca nestala. Također nećete moći premjestiti list u drugu radnu knjigu s kartice lista.

Uvijek će biti načina da se zaobiđu te mjere opreza, ali cilj je otežati svima osim ozbiljnom hakeru; zaštita proračunske tablice dodatno je sredstvo odvraćanja, kao i osiguranje da se ne može kopirati izravno iz podmape.

Na kraju, zaštitite svoj kod od gledanja ili mijenjanja:  Alati>Svojstva>Zaštita.

Oštećenje Excel datoteke

“Uklonio sam duplikate datoteke; sada doživljavam kvarove u Excelu bez vidljivog razloga. Ipak, očekujem da ću danas biti gotov.”

Hoće li ovo imati sretan završetak ili ne može ovisiti o tome ima li korisnik dostupan učinkovit alat pomoću kojeg popraviti Excel. U ovom slučaju proračunska tablica je imala više od 90,000 redaka.

Uvod za autora:

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