Excel'de çeşitli menü ve sağ tıklama özellikleri devre dışı bırakılarak veri hırsızlığı en aza indirilebilir. Bunu VBA kullanarak nasıl yapacağımızı aşağıda tartışacağız.
Okuyucunun görüntülenen Excel Geliştirici şeridine sahip olduğu ve VBA Düzenleyicisine aşina olduğu varsayılmaktadır.
Kullanıcı Arayüzü
İki düğme ve biraz veri içeren bir çalışma sayfası oluşturun. 
Bu sayfanın şeridi görüntülenir ve Excel'in sağladığı tüm right_click işlevleri bulunur.
sayfa mevcut okuyun.
VBA Kodu
Devre dışı bırakılabilen çeşitli komut çubuğu denetimleri vardır. Bu kontrollerin kimlik numaralarını Google'da aramanız gerekecek. Bu alıştırma için kimlik 19 ve 21'i kullanacağız.
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
Geri Yükle düğmesini alt Geri Yükleme'ye ve Devre Dışı Bırak düğmesini alt Otomatik_Aç'a atayın.
Auto_open kodunu çalıştırın; sağ tıklama menüsünde Kes ve Kopyala'nın devre dışı bırakıldığını ve şeridin kaybolduğunu fark edeceksiniz. Sayfa sekmesinden sayfayı başka bir çalışma kitabına da taşıyamazsınız.
Bu önlemleri aşmanın her zaman bir yolu olacaktır, ancak amaç ciddi bilgisayar korsanları dışında herkesin işini zorlaştırmaktır; elektronik tabloyu korumak ve doğrudan bir alt klasörden kopyalanamamasını sağlamak da caydırıcıdır.
Son olarak, kodunuzu görüntülenmeye veya değiştirilmeye karşı koruyun: Araçlar>Özellikler>Koruma.
Excel Dosya Bozulması
“Dosyayı kopyaladım; şimdi fark edilebilir bir sebep olmadan Excel hataları yaşıyorum. Ancak yine de bugün bitirmeyi umuyorum.”
Bunun mutlu bir sonla bitip bitmediği, kullanıcının mutlu bir sonla bitip bitmeyeceğine bağlı olabilir. Excel'i onar. Söz konusu durumda, elektronik tabloda 90,000'den fazla satır vardı.
Yazar Tanıtımı:
Felix Hooker, veri kurtarma uzmanıdır. DataNumendahil olmak üzere veri kurtarma teknolojilerinde dünya lideri olan , Inc. onarım rar ve sql kurtarma yazılımı ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com