Andmete vargusi saab minimeerida, kui keelate Excelis erinevad menüü- ja paremklõpsufunktsioonid. Allpool arutame, kuidas seda VBA abil teha.
Eeldatakse, et lugejal on kuvatud Exceli arendaja lint ja ta tunneb VBA redaktorit.
Kasutajaliides
Koostage kahe nupu ja väikese teabega tööleht. 
Sellel lehel kuvatakse oma lint ja kõik Exceli pakutavad paremklõpsamisfunktsioonid.
Leht on saadaval siin.
VBA kood
Käsuriba juhtnuppe saab keelata. Peate otsima Google'ist nende juhtelementide ID-numbreid. Selle harjutuse jaoks kasutame ID-d 19 ja 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
Määrake nupp Taasta alam Taasta ja nupp Keela alamfunktsioonile Auto_open.
Käivitage kood Auto_open; märkate, et Lõika ja Kopeeri on paremklõpsu menüüs keelatud ja lint on kadunud. Samuti ei saa te lehte lehe vahekaardilt teise töövihikusse teisaldada.
Neid ettevaatusabinõusid leidub alati, kuid eesmärk on muuta see raskeks kõigile peale tõsiste häkkerite; arvutustabeli kaitsmine on veel üks hoiatav tegur, aga ka selle tagamine, et seda ei saa otse alamkaustast kopeerida.
Lõpuks kaitske oma koodi vaatamise või muutmise eest. Tööriistad>Atribuudid>Kaitse.
Exceli faili rikkumine
„Olen failist dubleeritud; Nüüd kogen Exceli tõrkeid ilma märgatava põhjuseta. Siiski loodan, et saan täna valmis."
See, kas sellel on õnnelik lõpp või mitte, võib sõltuda sellest, kas kasutajal on olemas tõhus tööriist, millega Exceli parandamine. Antud juhul oli arvutustabelis üle 90,000 XNUMX rea.
Autori sissejuhatus:
Felix Hooker on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas remont rar ja SQL-i taastamise tarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom