一键加密Excel工作表公式.doc

一键加密Excel工作表公式

一键加密Excel工作表公式 工作表中很多数据都是由公式计算生成的，那么如何让别人只看到计算的结 果，而将使用的公式隐藏起来呢？今天我们就向大家介绍使用宏来解决这一问 题。
　　
一、创建宏 　　启动Excel，依次选择“工具”“宏” “录制新宏”，在打开的窗口中输入宏的名称，并把“保存在”项设为“个人宏工作簿 ”，单击“确定”按钮进入宏录制模式。
此时我们可以在当前窗口中看到宏录制的 工具栏，单击“停止录制”退出宏的录制。
　　 退出后，在Excel中按下“Alt+F11”键，在打开的VB编辑窗口中选择“VBAProject(P ERSONAL.XLS)”“模块”“模块1”，然后将右侧窗口中的内容替换成： 　　Sub密码保护()//宏的名称 　　ActiveSheet.Unprotect("")//默认密码 　　Cells.Select　　Selection.Locked=False 　　Selection.SpecialCells(xlCellTypeFormulas,23).Select 　　Selection.Locked=True 　　Selection.FormulaHidden=True 　　ActiveSheet.Protect("123456") 　　ActiveSheet.EnableSelection=xlUnlockedCells 　　EndSub 　　 做好之后保存设置退出编辑窗口(图1)，在实际的操作过程中需要将默认的88 8换成自己的密码，以免造成泄露。
图1 　　
二、应用宏 　　 在Excel中打开“工具”菜单中的“自定义”命令，在“命令”选项卡的“类别”中选择“ 宏”，在“命令”中选择“自定义按钮”，并将其拖放到工具栏上，单击工具栏上的按 钮，在弹出的窗口中选择我们创建的宏名并保存设置。
　　 至此，我们要加密时只需单击该按钮，就可以将当前工作表保护起来，并且默认 密码为，怎么样这样的操作是不是够方便呢。