利用宏命令锁定Excel公式

利用宏命令锁定Excel公式

为了防止Excel里面做好的公式误被他人修改，通常大家会通过设置“保护工作表”的方式来锁定，但锁定后别人点击就会弹出对话框，很麻烦。本文介绍一个通过宏命令来锁定公式的方式，别人根本无法点击锁定后的公式单元格，这样就显得很高大上：）

一、录制宏

打开Excel2010，在视图里面找到宏图标（2003版本在工具菜单里寻找），如果没有找到，请打开文件菜单，底部进“选项”，点最下“信任中心”，进入“信任中心设置”，点击“宏设置”，启用宏，然后回到Excel就能找到宏图标了。

点击“录制宏”

选择保存在个人宏工作簿，确定

然后点击右下角的蓝色方块，停止录制

二、编辑Vb宏命令

按Alt+F11，进入Vb工程界面

选择模块1，双击进入编辑模式

将代码栏中的所有内容全部删除

然后把以下代码复制进去（分割线中间）

------------分割线--------------------

Sub 保护公式()

ActiveSheet.Unprotect ("12345678") '解除对工作表的保护

Cells.Select '选中整个表格

Selection.Locked = False '解除锁定

Selection.SpecialCells(xlCellTypeFormulas, 23).Select '选中包含公式的单元格

Selection.Locked = True '添加锁定

Selection.FormulaHidden = True '添加隐藏

ActiveSheet.Protect ("12345678") '保护工作表，并设置密码ActiveSheet.EnableSelection = xlUnlockedCells '让锁定单元格不能选中End Sub

---------------分割线-----------------

然后，结果如下图，请核对

点击文件菜单，选择“关闭并返回Excel”

三、执行宏

点击“查看宏”

点击“执行”，就可以执行了（提示：无内容的空文档执行时会出错，别担心，打开一个有公式的文档，就可以顺利执行了）

四、建立快捷方式

点击“自定义快速访问工具栏”

从下来菜单中选择宏，这时可以看到保护公式的宏，点“添加”

在最顶上就可以看到宏了，以后打开文档后直接点击该按钮，就会自动执行保护公式的宏了。

温馨提示：代码栏中的“12345678”是保护文档的密码，大家可以自由设置密码，可以替换。其余的代码请不要改变。

如果不想保护公式了，可以通过“取消保护工作表”来实现，密码就是你设置的密码（若未改变则为12345678），然后公式就可以自由修改了。

本文为原创，大家可以自由使用，但谢绝转载。

作者：有风吹过

2014.4.16