Hoe u kunt voorkomen dat uw Excel-werkmap wordt verplaatst of gekopieerd

Gegevensdiefstal kan worden geminimaliseerd door verschillende menu- en rechtermuisknopfuncties in Excel uit te schakelen. Hieronder bespreken we hoe u dit kunt doen met VBA.

Er wordt aangenomen dat de lezer het Excel Developer-lint heeft weergegeven en bekend is met de VBA-editor.

De gebruikersinterface

Bouw een werkblad met twee knoppen en een beetje gegevens.  Bouw een werkblad met twee knoppen en een beetje gegevens

Op dit blad wordt het lint weergegeven en alle rechtsklikfunctionaliteit die Excel biedt.

Het blad is beschikbaar hier.

De VBA-code

Er zijn verschillende opdrachtbalkbedieningen die kunnen worden uitgeschakeld. U moet op Google zoeken naar ID-nummers van deze bedieningselementen. Voor deze oefening gebruiken we de ID's 19 en 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

Wijs de knop Herstellen toe aan sub Herstellen en de knop Uitschakelen aan sub Auto_open.

Voer de Auto_open-code uit; u zult merken dat Knippen en Kopiëren zijn uitgeschakeld in het rechtermuisknopmenu en dat het lint is verdwenen. U kunt het blad ook niet vanaf het bladtabblad naar een andere werkmap verplaatsen.Wijs de knop Uitschakelen toe aan Sub Auto_open

Er zullen altijd manieren zijn om deze voorzorgsmaatregelen te omzeilen, maar het doel is om het voor iedereen behalve de serieuze hacker moeilijk te maken; het beschermen van de spreadsheet is een verder afschrikmiddel en zorgt er ook voor dat deze niet rechtstreeks vanuit een submap kan worden gekopieerd.

Bescherm tot slot uw code zodat deze niet kan worden bekeken of gewijzigd:  Extra> Eigenschappen> Bescherming.

Corruptie van Excel-bestanden

“Ik heb het bestand gededupliceerd; nu ervaar ik Excel-fouten zonder aanwijsbare reden. Toch verwacht ik nog steeds dat ik vandaag klaar ben.”

Of dit een happy end heeft of niet, kan afhangen van het feit of de gebruiker al dan niet over een effectief hulpmiddel beschikt waarmee hij dit kan doen reparatie Excel. In dit geval telde de spreadsheet meer dan 90,000 rijen.

Auteur Introductie:

Felix Hooker is een expert op het gebied van gegevensherstel DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder reparatie zeldzaam en sql-herstelsoftwareproducten. Voor meer informatie bezoek www.datanumen.com

Reacties zijn gesloten.