如何防止移动或复制 Excel 工作簿

通过禁用 Excel 中的各种菜单和右键单击功能，可以最大限度地减少数据盗窃。 我们在下面讨论如何使用 VBA 执行此操作。

假定读者已显示 Excel Developer 功能区，并且熟悉 VBA 编辑器。

用户界面

构建一个包含两个按钮和少量数据的工作表。 

该工作表将显示其功能区，以及 Excel 提供的所有右键单击功能。

该表可用 开始.

VBA代码

有多种可以禁用的命令栏控件。 您需要在 Google 中搜索这些控件的 ID 号。 我们将在本练习中使用 ID 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

将 Restore 按钮分配给子 Restore，将 Disable 按钮分配给子 Auto_open。

运行 Auto_open 代码； 您会注意到右键单击菜单上的剪切和复制被禁用，并且功能区消失了。 您也无法将工作表从工作表选项卡移动到另一个工作簿。

总会有办法绕过这些预防措施，但目的是让除了严肃的黑客之外的所有人都难以应对； 保护电子表格是一种进一步的威慑，并确保它不能直接从子文件夹复制。

最后，保护您的代码不被查看或更改：  工具>属性>保护.

Excel 文件损坏

“我已经删除了文件； 现在我无缘无故地遇到 Excel 故障。 不过，我还是希望今天能完成。”

这是否有一个圆满的结局可能取决于用户是否有一个有效的工具可以用来 修复Excel. 在这个例子中，电子表格有超过 90,000 行。

作者简介：

Felix Hooker 是一位数据恢复专家 DataNumen, Inc.，它是数据恢复技术领域的世界领先者，包括 修复rar 和sql恢复软件产品。 欲了解更多信息，请访问 datanumen.com