如何使用宏为Excel工作表公式加密

Excel

工作表中很多数据都是由公式计算生成的，那么如何让别人只看到计算的结果，而将使用的公式隐藏起来呢?今天我们就向大家介绍使用宏来解决这一问题。

一、创建宏

启动Excel，依次选择工具宏录制新宏，在打开的窗口中输入宏的名称，并把保存在项设为个人宏工作簿，单击确定按钮进入宏录制模式。此时我们可以在当前窗口中看到宏录制的工具栏，单击停止录制退出宏的录制。

退出后，在Excel中按下Alt+F11键，在打开的VB编辑窗口中选择VBAProject(PERSONAL.XLS)模块模块1，然后将右侧窗口中的内容替换成：

Sub 密码保护() //宏的名称

ActiveSheet.Unprotect (888888) //默认密码

Cells.Select

Selection.Locked = False

Selection.SpecialCells(xlCellTypeFormulas， 23).Select

Selection.Locked = True

Selection.FormulaHidden = True

ActiveSheet.Protect (123456)

ActiveSheet.EnableSelection = xlUnlockedCells

End Sub

做好之后保存设置退出编辑窗口(图1)，在实际的操作过程中需要将默认的888888换成自己的密码，以免造成泄露。

图1

二、应用宏

在Excel中打开工具菜单中的自定义命令，在命令选项卡的类别中选择宏，在命令中选择自定义按钮，并将其拖放到工具栏上，单击工具栏上的按钮，在弹出的窗口中选择我们创建的宏名并保存设置。

至此，我们要加密时只需单击该按钮，就可以将当前工作表保护起来，并且默认密码为888888，怎么样这样的操作是不是够方便呢。