当前位置: 电脑软硬件应用网 > 电脑学院 > 办公软件 > Excel > 正文 |
|
|||
为Excel加装快捷的公式保护器 | |||
2005-12-30 20:27:20 文/45IT收集 出处:电脑软硬件应用网 | |||
在Excel中出于保密需要,通常不希望使用者查看和修改公式。你可以利用Excel锁定、隐藏和保护工作表的功能,把公式隐藏和锁定起来。但如果按照常规方法设置会比较麻烦,而利用Excel的宏,在工具栏上添加一个“保护公式”的按钮,需要隐藏和锁定公式时,只要轻轻一按即可完成保护。 为了使此宏对所有工作簿有效,需要将其保存到“个人宏工作簿”中。 第一步:执行“工具→宏→录制新宏”命令,打开“录制新宏”对话框,见图1所示。 第二步:单击右侧“保存在”下拉按钮,在随后出现的下拉列表中,选择“个人宏工作簿”选项,确定进入录制状态。 第三步:单击“停止录制”工具栏上的“停止录制”按钮,退出录制状态。 注意:前面的操作是为了在Excel中添加“个人宏工作簿”。 第四步:按下Alt+F11组合键进入VBA编辑状态(见图2),在左侧依次展开“VBAProject(PERSONAL.XLS)”、“模块”选项,双击下面的“模块1”。 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”)请根据实际需要修改(需要保持前后的一致)。 添加按钮 在工具栏上添加一个宏按钮,方便随时调用。 第二步:切换到“命令”标签下,在“类别”下面选中“宏”选项,然后将右侧“命令”下面的“自定义按钮”选项拖到工具栏上合适位置上。 第四步:再次右击上述按钮,在随后弹出的快捷菜单中,选择“指定宏”选项,打开“指定宏”对话框(见图5),选中刚才制作的宏“保护公式”,确定返回,并关闭“自定义”对话框。 以后,工作表中的公式编辑完成后,单击一下工具栏上的“保护公式”按钮,包含公式的单元格全部被锁定,不能进行选中、编辑和查看等操作,安全可靠。 |
|||
最新热点 | 最新推荐 | 相关文章 | ||
常出现的Office EXcel数值显示错误的… 无法找到所要的Office命令怎么办? Excel考试辅导:分类汇总表的建立和… Excel超级实用技巧12则 EXCEL中随机提取不重复的不含0数据 Excel单元格为何文字显示不全 在Excel中为中文添加拼音 Excel技巧系列之Excel提速12招 为Excel的工具栏添加计算器功能按钮 在Excel表格中鲜为人知的照相机功能 |
关于45IT | About 45IT | 联系方式 | 版权声明 | 网站导航 | |
Copyright © 2003-2011 45IT. All Rights Reserved 浙ICP备09049068号 |