一键加密Excel工作表公式
标签:
it |
一、创建宏
启动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换成自己的密码,以免造成泄露。
file:///C:/Documents%20and%20Settings/Administrator/%E6%A1%8C%E9%9D%A2/%E4%B8%80%E9%94%AE%E5%8A%A0%E5%AF%86Excel%E5%B7%A5%E4%BD%9C%E8%A1%A8%E5%85%AC%E5%BC%8F_360%E5%AE%89%E5%85%A8%E5%85%AC%E5%91%8A_360%E5%AE%89%E5%85%A8%E4%B8%AD%E5%BF%83%20-%20%E5%9B%BD%E5%86%85%E6%9C%80%E5%A4%A7%E7%9A%84%E5%85%8D%E8%B4%B9%E5%AE%89%E5%85%A8%E5%B9%B3%E5%8F%B0%20-%20360%E5%AE%89%E5%85%A8%E5%8D%AB%E5%A3%AB%E5%AE%98%E6%96%B9%E7%BD%91%E7%AB%99%20-%20%E7%BD%91%E7%BB%9C%E5%AE%89%E5%85%A8%E7%94%B5%E8%84%91%E5%AE%89%E5%85%A8%E6%9C%A8%E9%A9%AC%E6%9F%A5%E6%9D%80%E7%97%85%E6%AF%92%E6%9F%A5%E6%9D%80%E6%B5%81%E6%B0%93%E8%BD%AF%E4%BB%B6%E6%9F%A5%E6%9D%80%E6%81%B6%E6%84%8F%E8%BD%AF%E4%BB%B6.files/U74P2DT20090204111846.jpg
图1
二、应用宏
在Excel中打开“工具”菜单中的“自定义”命令,在“命令”选项卡的“类别”中选择“宏”,在“命令”中选择“自定义按钮”,并将其拖放到工具栏上,单击工具栏上的按钮,在弹出的窗口中选择我们创建的宏名并保存设置。
至此,我们要加密时只需单击该按钮,就可以将当前工作表保护起来,并且默认密码为888888,怎么样这样的操作是不是够方便呢。

加载中…