Як запобігти переміщенню чи копіюванню книги Excel

Поділитися зараз:

Крадіжку даних можна мінімізувати, вимкнувши різні функції меню та клацання правою кнопкою миші в Excel. Нижче ми обговоримо, як це зробити за допомогою VBA.

Передбачається, що читач має відображену стрічку Excel Developer і знайомий із редактором VBA.

Інтерфейс користувача

Створіть робочий аркуш із двома кнопками та невеликою кількістю даних.  Створіть робочий аркуш із двома кнопками та невеликою кількістю даних

На цьому аркуші відображатиметься його стрічка та всі функції клацання правою кнопкою миші, які надає Excel.

Простирадло в наявності тут.

Кодекс VBA

Існують різноманітні елементи керування панелі команд, які можна вимкнути. Вам потрібно буде пошукати в Google ідентифікаційні номери цих елементів керування. Для цієї вправи ми використаємо ідентифікатори 19 і 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

Призначте кнопку «Відновити» для вкладки «Відновити», а кнопку «Вимкнути» — для вкладки «Auto_open».

Запустіть код Auto_open; ви помітите, що функції «Вирізати» та «Копіювати» вимкнено в меню, яке відкривається правою кнопкою миші, а стрічка зникла. Ви також не зможете перемістити аркуш до іншої книги з вкладки аркуша.Призначте кнопку «Вимкнути» для Sub Auto_open

Завжди знайдуться способи обійти ці запобіжні заходи, але мета полягає в тому, щоб ускладнити це для всіх, крім серйозних хакерів; захист електронної таблиці є додатковим стримуючим фактором, а також забезпечення того, що її неможливо скопіювати безпосередньо з підтеки.

Нарешті, захистіть свій код від перегляду або зміни:  Інструменти> Властивості> Захист.

Пошкодження файлів Excel

«Я дедупірував файл; тепер я відчуваю збої в Excel без видимої причини. Проте я все ще очікую, що сьогодні закінчу».

Щасливий кінець може залежати від того, чи є у користувача ефективний інструмент, за допомогою якого можна ремонт Excel. У цьому випадку електронна таблиця мала понад 90,000 XNUMX рядків.

Вступ автора:

Фелікс Хукер - фахівець з відновлення даних у DataNumen, Inc., яка є світовим лідером у галузі технологій відновлення даних, в тому числі ремонт rar-файлів та програмні продукти для відновлення sql. Для отримання додаткової інформації відвідайте WWW.datanumen.com

Поділитися зараз:

Коментарі закриті.