Datu zādzību var samazināt, programmā Excel atspējojot dažādas izvēlnes un ar peles labo pogu noklikšķiniet. Tālāk mēs apspriedīsim, kā to izdarīt, izmantojot VBA.
Tiek pieņemts, ka lasītājam ir parādīta Excel izstrādātāja lente un viņš ir pazīstams ar VBA redaktoru.
Lietotāja saskarne
Izveidojiet darblapu ar divām pogām un nelielu datu daudzumu. 
Šai lapai būs redzama lente un visa pareizā_klikšķa funkcionalitāte, ko nodrošina programma Excel.
Lapa ir pieejama šeit.
VBA kodekss
Ir dažādas komandjoslas vadīklas, kuras var atspējot. Jums būs jāmeklē Google, lai atrastu šo vadīklu ID numurus. Šim vingrinājumam izmantosim 19. un 21. ID.
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
Piešķiriet pogu Atjaunot apakšatjaunot un pogu Atspējot, lai apakšnodaļu Automātiski atvērtu.
Palaidiet kodu Auto_open; jūs ievērosiet, ka izvēlnē Labais klikšķis ir atspējota izgriešana un kopēšana un lente ir pazudusi. Jūs arī nevarēsit pārvietot lapu uz citu darbgrāmatu no lapas cilnes.
Šiem piesardzības pasākumiem vienmēr būs iespējas, taču mērķis ir apgrūtināt visus, izņemot nopietno hakeri; izklājlapas aizsardzība ir vēl viens preventīvs līdzeklis, kā arī nodrošina, ka to nevar kopēt tieši no apakšmapes.
Visbeidzot, pasargājiet savu kodu no skatīšanas vai mainīšanas: Rīki> Rekvizīti> Aizsardzība.
Excel failu korupcija
“Esmu atcēlis failu; tagad es piedzīvoju Excel kļūmes bez redzama iemesla. Tomēr es joprojām ceru, ka būšu pabeigts šodien. ”
Tas, vai tam ir laimīgas beigas, var būt atkarīgs no tā, vai lietotājam ir pieejams efektīvs rīks labot Excel. Šajā gadījumā izklājlapā bija vairāk nekā 90,000 XNUMX rindu.
Autora ievads:
Fēlikss Hukers ir datu atkopšanas eksperts DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp remonts rar un SQL atkopšanas programmatūras produkti. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar