Si të parandaloni zhvendosjen ose kopjimin e librit tuaj të punës në Excel

Vjedhja e të dhënave mund të minimizohet duke çaktivizuar menytë e ndryshme dhe veçoritë e klikimit me të djathtën në Excel. Ne diskutojmë më poshtë se si ta bëjmë këtë duke përdorur VBA.

Supozohet se lexuesi ka të shfaqur shiritin e Zhvilluesit të Excel dhe është i njohur me Redaktorin VBA.

Ndërfaqja e përdoruesit

Ndërtoni një fletë pune me dy butona dhe pak të dhëna. 

Kjo fletë do të shfaqë shiritin e saj dhe të gjithë funksionalitetin e klikimit me të djathtën që ofron Excel.

Fleta është në dispozicion këtu.

Kodi VBA

Ekzistojnë një sërë kontrollesh të shiritit të komandës që mund të çaktivizohen. Do t'ju duhet të kërkoni në Google për numrat e identifikimit të këtyre kontrolleve. Ne do të përdorim ID-të 19 dhe 21 për këtë ushtrim.

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

Cakto butonin Restore në nën Restore dhe butonin Disable në nën Auto_open.

Ekzekutoni kodin Auto_open; do të vini re se Cut dhe Copy janë të çaktivizuara në menunë e klikuar me të djathtën dhe se shiriti është zhdukur. Gjithashtu nuk do të mund ta zhvendosësh fletën në një libër tjetër pune nga skeda e fletës.

Gjithmonë do të ketë mënyra për t'i anashkaluar këto masa paraprake, por qëllimi është që të vështirësohet për të gjithë, përveç hakerëve seriozë; mbrojtja e fletëllogaritjes është një pengesë e mëtejshme, si dhe sigurimi që nuk mund të kopjohet drejtpërdrejt nga një nën-dosje.

Më në fund, mbroni kodin tuaj nga shikimi ose ndryshimi:  Mjetet>Vetitë>Mbrojtja.

Korrupsioni i skedarit Excel

“E kam de-mashtruar dosjen; tani po përjetoj dështime në Excel pa ndonjë arsye të dallueshme. Megjithatë, unë ende pres që të përfundoj sot.”

Nëse kjo ka një fund të lumtur apo jo, mund të varet nga fakti nëse përdoruesi ka në dispozicion një mjet efektiv me të cilin mund të riparimi i Excel. Në rastin në fjalë, tabela kishte më shumë se 90,000 rreshta.

Hyrje e autorit:

Felix Hooker është një ekspert i rikuperimit të të dhënave në DataNumen, Inc., e cila është lider botëror në teknologjitë e rikuperimit të të dhënave, duke përfshirë riparim rar dhe produkte softuerike për rikuperimin sql. Për më shumë informacion vizitoni www.datanumen.com