Excel İş Kitabınızın köçürülməsinin və ya kopyalanmasının qarşısını necə almaq olar

Excel-də müxtəlif menyu və sağ klik funksiyalarını söndürməklə məlumat oğurluğunu minimuma endirmək olar. VBA istifadə edərək bunu necə edəcəyimizi aşağıda müzakirə edirik.

Oxucunun Excel Developer lentinin göstərildiyi və VBA Redaktoru ilə tanış olduğu güman edilir.

İstifadəçi interfeysi

İki düymə və bir az məlumat ilə iş vərəqi yaradın. 

Bu vərəqdə öz lenti və Excel-in verdiyi bütün sağ klik funksiyaları göstəriləcək.

Vərəq mövcuddur burada.

VBA kodu

Qeyri-aktiv edilə bilən müxtəlif əmrlər paneli nəzarətləri var. Bu nəzarət vasitələrinin ID nömrələrini Google-da axtarmalı olacaqsınız. Bu məşq üçün 19 və 21 ID-lərdən istifadə edəcəyik.

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

Bərpa düyməsini alt Bərpa üçün, Disable düyməsini isə Auto_open üçün təyin edin.

Auto_open kodunu işə salın; Siz qeyd edəcəksiniz ki, Kəs və Kopyala sağ klik menyusunda deaktiv edilib və lent itib. Siz həmçinin vərəqi vərəq nişanından başqa iş kitabına köçürə bilməyəcəksiniz.

Bu ehtiyat tədbirlərinin ətrafında həmişə yollar olacaq, lakin məqsəd ciddi hakerdən başqa hamı üçün çətinləşdirməkdir; elektron cədvəlin qorunması daha bir maneədir, eləcə də onun birbaşa alt qovluqdan kopyalanmasının qarşısını almaqdır.

Nəhayət, kodunuzu baxılmaqdan və ya dəyişdirilməkdən qoruyun:  Alətlər > Xüsusiyyətlər > Qoruma.

Excel faylının korlanması

“Mən faylı sındırdım; indi heç bir aydın səbəb olmadan Excel-də uğursuzluqlar yaşayıram. Bununla belə, mən hələ də bu gün bitirməyi gözləyirəm”.

Bunun xoşbəxt sonluq olub-olmaması istifadəçinin istifadə edə biləcəyi effektiv alətin olub-olmamasından asılı ola bilər. Excel təmiri. Mövcud vəziyyətdə, elektron cədvəldə 90,000-dən çox sətir var idi.

Müəllif Giriş:

Feliks Hooker məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc rar təmiri və sql bərpa proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com