在Excel中出于保密需要通常不希望使用者查看和修改公式你可以利用Excel锁定、隐藏和保护工作表功能把公式隐藏和锁定起来但如果按照常规思路方法设置会比较麻烦而利用Excel宏在工具栏上添加个“保护公式”按钮需要隐藏和锁定公式时只要轻轻按即可完成保护

　　制作宏

　　为了使此宏对所有工作簿有效需要将其保存到“个人宏工作簿”中

　　第步:执行“工具→宏→录制新宏”命令打开“录制新宏”对话框见图1所示 　　第 2步:单击右侧“保存在”下拉按钮在随后出现下拉列表中选择“个人宏工作簿”选项确定进入录制状态

　　第 3步:单击“停止录制”工具栏上“停止录制”按钮退出录制状态

　　注意:前面操作是为了在Excel中添加“个人宏工作簿”

　　第 4步:按下Alt＋F11组合键进入VBA编辑状态(见图2)在左侧依次展开“VBAProject(PERSONAL.XLS)”、“模块”选项双击下面“模块1”

　　第 5步:用下面代码替换右侧编辑区域中代码:

　　Sub 保护公式
ActiveSheet.Unprotect ("123456") '解除对工作表保护
Cells.Select　'选中整个表格
Selection.Locked = False　'解除锁定
Selection.SpecialCells(xlCellTypeFormulas, 23).Select '选中包含公式单元格
Selection.Locked = True '添加锁定
Selection.FormulaHidden = True　'添加隐藏
ActiveSheet.Protect ("123456")　'保护工作表并设置密码
ActiveSheet.EnableSelection = xlUnlockedCells '让锁定单元格不能选中
'以下代码用于保存文件
If Left(ActiveWorkbook.Name, 4) = "Book" Then
y = InputBox("请输入保存文件名称:")
z = InputBox("请输入文件保存路径:")
ChDir z
ActiveWorkbook.SaveAs Filename:=z & "\" & y & ".xls"
Else
ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.Path & "\" & ActiveWorkbook.Name
End If
End Sub

　　输入完成后关闭VBA编辑窗口返回

　　小提示

　　★上述代码中“保护公式”为宏名称在实际输入时可以更换为其他名称

　　★代码中英文单引号及其后面是对代码解释在实际输入时可以不输入

　　★代码中密码(“123456”)请根据实际需要修改(需要保持前后致)

　　添加按钮

　　在工具栏上添加个宏按钮方便随时

　　第步:执行“工具→自定义”命令打开“自定义”对话框见图3所示

　　第 2步:切换到“命令”标签下在“类别”下面选中“宏”选项然后将右侧“命令”下面“自定义按钮”选项拖到工具栏上合适位置上

　　第 3步:右击刚才添加按钮在随后弹出快捷菜单中,选择“总是只用文字”选项并将“命名”后面修改为“保护公式”(见图4)

　　第 4步:再次右击上述按钮在随后弹出快捷菜单中选择“指定宏”选项打开“指定宏”对话框(见图5)选中刚才制作宏“保护公式”确定返回并关闭“自定义”对话框

　　以后工作表中公式编辑完成后单击下工具栏上“保护公式”按钮包含公式单元格全部被锁定不能进行选中、编辑和查看等操作安全可靠