一键加密Excel工作表公式

一键加密Excel工作表公式（通用2篇）

一键加密Excel工作表公式 篇1

工作表中很多数据都是由公式计算生成的，那么如何让别人只看到计算的结果，而将使用的公式隐藏起来呢?今天我们就向大家介绍使用宏来解决这一问题，

一、创建宏

启动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

做好之后保存设置退出编辑窗口，IT八哥网(www.it8g.com)提醒大家，在实际的操作过程中需要将默认的888888换成自己的密码，以免造成泄露，

二、应用宏

在Excel中打开“工具”菜单中的“自定义”命令，在“命令”选项卡的“类别”中选择“宏”，在“命令”中选择“自定义按钮”，并将其拖放到工具栏上，单击工具栏上的按钮，在弹出的窗口中选择我们创建的宏名并保存设置。

至此，我们要加密时只需单击该按钮，就可以将当前工作表保护起来，并且默认密码为888888，怎么样这样的操作是不是够方便呢。

热门推荐：公式与结果切换给Word公式找个好搭档

点击阅读更多学院相关文章>>

分享到

一键加密Excel工作表公式 篇2

为了构建 学生的自 信心 , 每个学期 都会设立 “三好学生”、“学习进步奖”等各类奖项, 尤其是“学习进步奖”这个奖项, 要求学习成绩名次上的进步幅度名列前五, 当名次相同时, 德育量化等级高者优先获得此项殊荣。

如何遴选出符合以上条件的学生, 需要做哪些工作, 让人们先从结果入手, 倒推出人们的任务, 逐个分解, 依次完成。如图1所示即为进步奖评选审批表和需要提供的信息。

由此分析, 人们需要逐步完成以下任务。

1 汇总各科成绩到“成绩汇总表”

考虑到整个学期过程中有学生转入 、转出等 特殊情况 ,而每位科任老师的成绩册名单会因更新及时与否而不尽相同,这样在汇总的时候容易出现错位等差错, 如何快速有效解决这个问题?

首先要有一个正确统一的标准, 那就是以班主任手里的“学生学籍信息表”为准 , 如表1所示 , 这张表格里的信息应确保是更新最及时的信息表。

将学籍表中的学号复制到“成绩汇 总表”中 的学号栏 ,在粘贴时选择“粘贴链接”, 或者在“成绩汇总表”A2单元格内输入“=”, 然后单击“学籍表”中的A2单元格, 回车结束引用, 并向下一直拖动至相同的行号, 保持数据一致。源文件打开时为相对地址为“= [0学生信息表.xls] Sheet1'! A2”,源文件关闭时为绝对地址“='F:witty2014-2015I 教学 素材 [学生信息表.xls] Sheet1'! A2”。同样“姓名” 一栏的信息也可以如此获得。

打开“ASP.NET.xls”单科成绩表。如表2所示。

经观察发现已退学同学的学号仍在, 只是所在行无成绩,这时无需将其一一删除, 而是将光标定位在“成绩汇 总表”的C2单元格 , 输入公式 “ =VLOOKUP ( A2,'F:witty2014 -2015I 教学 素材 各科成绩 [ASP.NET.xls] 成绩录入 '! A1:I10,9,0)”

或执行命令“插入———函数———VLOOKUP”, 设置其中的参数。

VLOOKUP函数的功能 : 在表格或数值数组的首列查找指定的数值, 并由此返回表格或数组中该数值所在行中指定列处的数值。数组的“首列”, 就是这个区域的第一纵列, 此列右边依次为第2列、3列……。假定某数组区域为“A2:I10”,那么, A2:A10为第1列、B2:B10为第2列……依此类推, 如图2所示。

语法: VLOOKUP (查找值, 区域, 列序号, 逻辑值)

“查找值”: 为需要在数组第一列中查找的数值 , 它可以是数值、引用或文字符串。

“区域”: 数组所在的区域 , 如“A1:I10”, 也可以使用对区域或区域名称的引用, 例如数据库或数据清单。

“列序号”: 即希望区域 ( 数组 ) 中待返回的匹配值的列序号, 为1时, 返回第一列中的数值, 为2时, 返回第二列中的数值, 以此类推;

匹配条件: 0为精确查找, 1为模糊查找。

在本例中, 整个参数设置的含义为: 以不会出现重复现象的学号“A2”为依据, 到成绩表“ASP.NET.xls”中的整个数据区域 '! A1:I10' 内进行精确查找匹配, 返回表中的第9列“总评成绩”。然后向下拖动复制函数 , 直至所有在校同学的ASP.NET总评成绩都出现。

其他科目的成绩可以依此获得。也可以在不打开工作表的状态下进行。复制C2单元格的公式至D2单元格, 此时发现数据是错误提示“#REF!”, 说明有引用有错误, 只需进行一些修改即可。将“=VLOOKUP (B2,'F:witty2014-2015I 教学 素材 各科成绩 [ASP.NET.xls] 成绩录入 '! B1:J10,9,0)”改为“=VLOOKUP ($A2,'F:witty2014-2015I 教学 素材 各科成绩 [ASP.NET.xls] 成绩录入 '! $A$1:$I$10,9,0)”。其中,将引用地址B2改为$A2, 这样将确保一直以A列学号为标准去查找匹配。然后将“ASP.NET”改为“大专英语”, 意为查找大专英语成绩表中的成绩, $A$1:$I$10亦是为了将查询区域固定。这样即可避免随公式变换的查询地址区域中没有学号, 无法匹配, 从而导致无法反馈回正确数据。

汇总成绩, 比较进退。有了各科成绩后, 便可以由SUM函数汇总 总成绩 , 并由RANK函数得出 本学期排 名 ,“=RANK (H2,$H$2:$H$10)”, 再由VLOOKUP函数 , 根据学号查找匹配显 示出上个 学期的名 次 ,“=VLOOKUP (A2,'F:wit-ty2014-2015I 教学 素材 [ 上学期总 成绩排名 .xls] 评优用'! $A$2:$I$10,9,0) ” , 用减法公 式由上学 期名次减 去本学期名次即是进步的名次, 且以进步名次为关键字进行降序进行排列。

2 德育量化考核评定

根据学生德育量化成绩评定其操行等级。打开“德育量化成绩表”, 制定标准, 69及以下的是合格, 70~79为中等,80~89为良好 , 90及以上为优秀。根据以往所学知识可以由IF函数嵌套实现 ,“=IF (G2<=69," 合格 " ,IF (G2<=79," 中等" ,IF (G2<=89," 良好" ," 优秀")))”。除此之外, 还可以用HLOOKUP函数实现 , 前提是需要先把标准做成两行两列的数据, 如表3所示。

然后将光标定位在评定等级的单元格内, 执行命令“插入———函数———HLOOKUP”, 如图3所示。

其中, G2既标准中“60”所在单元格的地址, 数据表为固定区域, 因此用绝对地址表示, 因为是横向查找, 因此返回的是第二行的值, 由于一些数据是小数而非整数, 因此需要模糊查找, 故匹配条件是“1”。拖动公式柄, 可快速得到所有学生的评定等级。

3 其他评优项至成绩汇总表

在成绩汇总表的后面几列, 依旧使用VLOOKUP函数以学号为标准, 查找匹配得到德育量化成绩中的“等级”, 学籍信息表中的“政治面貌”、“职务”等信息。在此不在赘述。

4 批量制作评审表

如何快速将Excel中的数据转换到Word中, 这就用到了邮件合并。先在成绩汇总表中, 以“进步名次”为主关键字,降序, 以“等级”为次关键字, 降序, 排序, 这样可以保障相同名次 时 , 德育为优 秀的学生 排在前面 。在WPS中执行“引用———邮件”, 导入数据源, 执行“邮件合并”。

5 根据评审表制作奖状