本次主要实现2个功能，第一，添加打开密码，第二，锁定工作表但指定区域可编辑。

第一种，添加打开密码

方法一

先新建一个样表，分为4个区域。

选择“文件-另存为-浏览”。

在另存为窗口选择“工具-常规选项”。

在常规选项对话框添加打开权限密码即可，修改权限密码可不设置。

确定保存文件后，再次打开即需要输入密码，下图为打开权限密码。

下图为修改权限密码，不输入可以只读方式打开。

方法二

选择“文件-信息-保护工作簿-用密码进行加密”。

输入密码确定即可。

再次打开和第一种方法设置打开权限密码时一样。

第二种，锁定工作表但指定区域可编辑

先来看看锁定工作表后是什么样子的。选择“审阅-保护工作表”。

在保护工作表对话框设置“取消工作表保护时使用的密码”，确定即可。

我们再双击单元格想要修改数据就会弹出下面的提示。

同理，我们也可设置保护工作簿，设置后这无法增删工作表和修改工作簿结构。

接下来我们看看如何实现指定区域可编辑。选择“审阅-允许用户编辑区域”。

在允许用户编辑区域对话框中选择“新建”。

在新区域对话框中指定引用单元格（可修改区域）为左上角区域，此处不设置密码。

确定后在允许用户编辑区域对话框中选择保护工作表。

这个和审阅下的保护工作表一样，也可以确认后出来设置。

确定后，双击其他区域会弹出下面的提示。

双击左上角区域仍可自由编辑。

本专题从Excel中的一些鲜为人知的技巧入手，领略一下关于Excel的别样风情。 一、让不同类型数据用不同颜色显示 　　在工资表中，如果想让大于等于2000元的工资总额以“红色”显示，大于等于1500元的工资总额以“蓝色”显示，低于1000元的工资总额以“棕色”显示，其它以“黑色”显示，我们可以这样设置。 　　1.打开“工资表”工作簿，选中“工资总额”所在列，执行“格式→条件格式”命令，打开“条件格式”对话框。单击第二个方框右侧的下拉按钮，选中“大于或等于”选项，在后面的方框中输入数值“2000”。单击“格式”按钮，打开“单元格格式”对话框，将“字体”的“颜色”设置为“红色”。　　2.按“添加”按钮，并仿照上面的操作设置好其它条件(大于等于1500，字体设置为“蓝色”；小于1000，字体设置为“棕色”)。 　　3.设置完成后，按下“确定”按钮。 　　看看工资表吧，工资总额的数据是不是按你的要求以不同颜色显示出来了。 二、建立分类下拉列表填充项 　　我们常常要将企业的名称输入到表格中，为了保持名称的一致性，利用“数据有效性”功能建了一个分类下拉列表填充项。 　　1.在Sheet2中，将企业名称按类别(如“工业企业”、“商业企业”、“个体企业”等)分别输入不同列中，建立一个企业名称数据库。 　　2.选中A列(“工业企业”名称所在列)，在“名称”栏内，输入“工业企业”字符后，按“回车”键进行确认。 　　仿照上面的操作，将B、C……列分别命名为“商业企业”、“个体企业”…… 　　3.切换到Sheet1中，选中需要输入“企业类别”的列(如C列)，执行“数据→有效性”命令，打开“数据有效性”对话框。在“设置”标签中，单击“允许”右侧的下拉按钮，选中“序列”选项，在下面的“来源”方框中，输入“工业企业”，“商业企业”，“个体企业”……序列(各元素之间用英文逗号隔开)，确定退出。 　　再选中需要输入企业名称的列(如D列)，再打开“数据有效性”对话框，选中“序列”选项后，在“来源”方框中输入公式：=INDIRECT(C1)，确定退出。 　　4.选中C列任意单元格(如C4)，单击右侧下拉按钮，选择相应的“企业类别”填入单元格中。然后选中该单元格对应的D列单元格(如D4)，单击下拉按钮，即可从相应类别的企业名称列表中选择需要的企业名称填入该单元格中。 　　提示：在以后打印报表时，如果不需要打印“企业类别”列，可以选中该列，右击鼠标，选“隐藏”选项，将该列隐藏起来即可。 　　三、建立“常用文档”新菜单 　　在菜单栏上新建一个“常用文档”菜单，将常用的工作簿文档添加到其中，方便随时调用。 　　1.在工具栏空白处右击鼠标，选“自定义”选项，打开“自定义”对话框。在“命令”标签中，选中“类别”下的“新菜单”项，再将“命令”下面的“新菜单”拖到菜单栏。 　　按“更改所选内容”按钮，在弹出菜单的“命名”框中输入一个名称(如“常用文档”)。 　　2.再在“类别”下面任选一项(如“插入”选项)，在右边“命令”下面任选一项(如“超链接”选项)，将它拖到新菜单(常用文档)中，并仿照上面的操作对它进行命名(如“工资表”等)，建立第一个工作簿文档列表名称。 　　重复上面的操作，多添加几个文档列表名称。 　　3.选中“常用文档”菜单中某个菜单项(如“工资表”等)，右击鼠标，在弹出的快捷菜单中，选“分配超链接→打开”选项，打开“分配超链接”对话框。通过按“查找范围”右侧的下拉按钮，定位到相应的工作簿(如“工资.xls”等)文件夹，并选中该工作簿文档。 　　重复上面的操作，将菜单项和与它对应的工作簿文档超链接起来。 　　4.以后需要打开“常用文档”菜单中的某个工作簿文档时，只要展开“常用文档”菜单，单击其中的相应选项即可。 　　提示：尽管我们将“超链接”选项拖到了“常用文档”菜单中，但并不影响“插入”菜单中“超链接”菜单项和“常用”工具栏上的“插入超链接”按钮的功能。 　　四、制作“专业符号”工具栏 　　在编辑专业表格时，常常需要输入一些特殊的专业符号，为了方便输入，我们可以制作一个属于自己的“专业符号”工具栏。 　　1.执行“工具→宏→录制新宏”命令，打开“录制新宏”对话框，输入宏名?如“fuhao1”?并将宏保存在“个人宏工作簿”中，然后“确定”开始录制。选中“录制宏”工具栏上的“相对引用”按钮，然后将需要的特殊符号输入到某个单元格中，再单击“录制宏”工具栏上的“停止”按钮，完成宏的录制。 　　仿照上面的操作，一一录制好其它特殊符号的输入“宏”。 　　2.打开“自定义”对话框，在“工具栏”标签中，单击“新建”按钮，弹出“新建工具栏”对话框，输入名称——“专业符号”，确定后，即在工作区中出现一个工具条。 　　切换到“命令”标签中，选中“类别”下面的“宏”，将“命令”下面的“自定义按钮”项拖到“专业符号”栏上(有多少个特殊符号就拖多少个按钮)。 　　3.选中其中一个“自定义按钮”，仿照第2个秘技的第1点对它们进行命名。 　　4.右击某个命名后的按钮，在随后弹出的快捷菜单中，选“指定宏”选项，打开“指定宏”对话框，选中相应的宏(如fuhao1等)，确定退出。 　　重复此步操作，将按钮与相应的宏链接起来。 　　5.关闭“自定义”对话框，以后可以像使用普通工具栏一样，使用“专业符号”工具栏，向单元格中快速输入专业符号了。 　　五、用“视面管理器”保存多个打印页面 　　有的工作表，经常需要打印其中不同的区域，用“视面管理器”吧。 　　1.打开需要打印的工作表，用鼠标在不需要打印的行(或列)标上拖拉，选中它们再右击鼠标，在随后出现的快捷菜单中，选“隐藏”选项，将不需要打印的行(或列)隐藏起来。 　　2.执行“视图→视面管理器”命令，打开“视面管理器”对话框，单击“添加”按钮，弹出“添加视面”对话框，输入一个名称(如“上报表”)后，单击“确定”按钮。 　　3.将隐藏的行(或列)显示出来，并重复上述操作，“添加”好其它的打印视面。 　　4.以后需要打印某种表格时，打开“视面管理器”，选中需要打印的表格名称，单击“显示”按钮，工作表即刻按事先设定好的界面显示出来，简单设置、排版一下，按下工具栏上的“打印”按钮，一切就OK了。 　　六、让数据按需排序 　　如果你要将员工按其所在的部门进行排序，这些部门名称既的有关信息不是按拼音顺序，也不是按笔画顺序，怎么办?可采用自定义序列来排序。 　　1.执行“格式→选项”命令，打开“选项”对话框，进入“自定义序列”标签中，在“输入序列”下面的方框中输入部门排序的序列(如“机关,车队,一车间,二车间,三车间”等)，单击“添加”和“确定”按钮退出。 　　2.选中“部门”列中任意一个单元格，执行“数据→排序”命令，打开“排序”对话框，单击“选项”按钮，弹出“排序选项”对话框，按其中的下拉按钮，选中刚才自定义的序列，按两次“确定”按钮返回，所有数据就按要求进行了排序。

七、把数据彻底隐藏起来 工作表部分单元格中的内容不想让浏览者查阅，只好将它隐藏起来了。 　　1.选中需要隐藏内容的单元格(区域)，执行“格式→单元格”命令，打开“单元格格式”对话框，在“数字”标签的“分类”下面选中“自定义”选项，然后在右边“类型”下面的方框中输入“；；；”(三个英文状态下的分号)。 　　2.再切换到“保护”标签下，选中其中的“隐藏”选项，按“确定”按钮退出。 　　3.执行“工具→保护→保护工作表”命令，打开“保护工作表”对话框，设置好密码后，“确定”返回。 　　经过这样的设置以后，上述单元格中的内容不再显示出来，就是使用Excel的透明功能也不能让其现形。 　　提示：在“保护”标签下，请不要清除“锁定”前面复选框中的“∨”号，这样可以防止别人删除你隐藏起来的数据。 　　八、让中、英文输入法智能化地出现 　　在编辑表格时，有的单元格中要输入英文，有的单元格中要输入中文，反复切换输入法实在不方便，何不设置一下，让输入法智能化地调整呢? 　　选中需要输入中文的单元格区域，执行“数据→有效性”命令，打开“数据有效性”对话框，切换到“输入法模式”标签下，按“模式”右侧的下拉按钮，选中“打开”选项后，“确定”退出。 　　以后当选中需要输入中文的单元格区域中任意一个单元格时，中文输入法(输入法列表中的第1个中文输入法)自动打开，当选中其它单元格时，中文输入法自动关闭。 　　九、让“自动更正”输入统一的文本 　　你是不是经常为输入某些固定的文本，如《电脑报》而烦恼呢?那就往下看吧。 　　1.执行“工具→自动更正”命令，打开“自动更正”对话框。 　　2.在“替换”下面的方框中输入“pcw”(也可以是其他字符，“pcw”用小写)，在“替换为”下面的方框中输入“《电脑报》”，再单击“添加”和“确定”按钮。 　　3.以后如果需要输入上述文本时，只要输入“pcw”字符?此时可以不考虑“pcw”的大小写?，然后确认一下就成了。 　　十、在Excel中自定义函数 　　Excel函数虽然丰富，但并不能满足我们的所有需要。我们可以自定义一个函数，来完成一些特定的运算。下面，我们就来自定义一个计算梯形面积的函数： 　　1.执行“工具→宏→Visual Basic编辑器”菜单命令(或按“Alt+F11”快捷键)，打开Visual Basic编辑窗口。 　　2.在窗口中，执行“插入→模块”菜单命令，插入一个新的模块——模块1。 　　3.在右边的“代码窗口”中输入以下代码： 　　Function V(a,b,h)V = h*(a+b)/2End Function 　　4.关闭窗口，自定义函数完成。 　　以后可以像使用内置函数一样使用自定义函数。 　　提示：用上面方法自定义的函数通常只能在相应的工作簿中使用。 　　十一、表头下面衬张图片 　　为工作表添加的背景，是衬在整个工作表下面的，能不能只衬在表头下面呢? 　　1.执行“格式→工作表→背景”命令，打开“工作表背景”对话框，选中需要作为背景的图片后，按下“插入”按钮，将图片衬于整个工作表下面。 　　2.在按住Ctrl键的同时，用鼠标在不需要衬图片的单元格(区域)中拖拉，同时选中这些单元格(区域)。 　　3.按“格式”工具栏上的“填充颜色”右侧的下拉按钮，在随后出现的“调色板”中，选中“白色”。经过这样的设置以后，留下的单元格下面衬上了图片，而上述选中的单元格(区域)下面就没有衬图片了(其实，是图片被“白色”遮盖了)。 　　提示?衬在单元格下面的图片是不支持打印的。 　　十二、用连字符“&”来合并文本 　　如果我们想将多列的内容合并到一列中，不需要利用函数，一个小小的连字符“&”就能将它搞定(此处假定将B、C、D列合并到一列中)。 　　1.在D列后面插入两个空列(E、F列)，然后在D1单元格中输入公式：=B1&C1&D1。 　　2.再次选中D1单元格，用“填充柄”将上述公式复制到D列下面的单元格中，B、C、D列的内容即被合并到E列对应的单元格中。 　　3.选中E列，执行“复制”操作，然后选中F列，执行“编辑→选择性粘贴”命令，打开“选择性粘贴”对话框，选中其中的“数值”选项，按下“确定”按钮，E列的内容(不是公式)即被复制到F列中。 　　4.将B、C、D、E列删除，完成合并工作。 　　提示：完成第1、2步的操作，合并效果已经实现，但此时如果删除B、C、D列，公式会出现错误。故须进行第3步操作，将公式转换为不变的“值”。

生成绩条 常有朋友问“如何打印成绩条”这样的问题，有不少人采取录制宏或VBA的方法来实现，这对于初学者来说有一定难度。出于此种考虑，我在这里给出一种用函数实现的简便方法。 　　此处假定学生成绩保存在Sheet1工作表的A1至G64单元格区域中，其中第1行为标题，第2行为学科名称。 　　1.切换到Sheet2工作表中，选中A1单元格，输入公式：=IF(MOD(ROW()，3)=0，″″，IF(0MOD?ROW()，3(=1，sheet1！Aū，INDEX(sheet1！$A：$G，INT(((ROW()+4)/3)+1)，COLUMN())))。 　　2.再次选中A1单元格，用“填充柄”将上述公式复制到B1至G1单元格中；然后，再同时选中A1至G1单元格区域，用“填充柄”将上述公式复制到A2至G185单元格中。 　　至此，成绩条基本成型，下面简单修饰一下。 　　3.调整好行高和列宽后，同时选中A1至G2单元格区域(第1位学生的成绩条区域)，按“格式”工具栏“边框”右侧的下拉按钮，在随后出现的边框列表中，选中“所有框线”选项，为选中的区域添加边框(如果不需要边框，可以不进行此步及下面的操作)。 　　4.同时选中A1至G3单元格区域，点击“常用”工具栏上的“格式刷”按钮，然后按住鼠标左键，自A4拖拉至G186单元格区域，为所有的成绩条添加边框。 　　按“打印”按钮，即可将成绩条打印出来。 　　十四、Excel帮你选函数 　　在用函数处理数据时，常常不知道使用什么函数比较合适。Excel的“搜索函数”功能可以帮你缩小范围，挑选出合适的函数。 　　执行“插入→函数�...

Excel表格中有些列需要加密。如下图中，年薪和身份证号只有输入正确的密码才能查看，密码输入正确后，年薪数据和身份证号码就会显示出来。删除密码则会隐藏。

设置方法：

1、插入一工作表mm，用来存放密码，假如设置D列E列密码分别是 126 和 359。

2、选取要加密的列，开始 - 条件格式 - 新建规则

3、在打开的条件格式窗口中

选择规则类型 ：使用公式确定要....

为符合此公式.：=D$2<>mm!D$2

4、点击上图中【格式】按钮，在打开的窗口中 - 数字 - 分类 - 自定义，右侧输入代码：;;; (3个分号)

5、选取输入密码单元格 - Ctrl+1打开单元格设置窗口，去掉锁定前的勾。

目的是在保护工作表后可以输入查看密码。

6、审阅 - 保护工作表 - 去掉“选取锁定单元格” ，防止选取加密的列在编辑栏中看内部的值。最后隐藏mm工作表。

设置完成！

在我们实际工作有些时候需要把敏感的Excel文件设定密码，防止文档流出后别人看到机密的信息，引发不必要的麻烦。比如财务制作的工资表，可能只有少数公司领导才能得到此文档。而且文档还设定了不同权限，没有密码则无法打开文档；提供的查看密码只能查看文档，无法修改文档。提供的修改密码则可以查看和修改文档。下面我们就详情讲解如何设置密码和其权限的。

1、假设下面是一个工资表，我们进行了正常的保存文件

2、点击工具菜单下的 选项

3、弹出的选项对话框中，找到 安全性 选项卡页，在其页面上有打开权限密码和修改权限密码两个对对话框

4、打开权限密码设定后，一旦文件关闭后再次打开，就需要密码才可以打开阅读。修改权限密码则表示设定需要修改密码才能对文件进行修改。 所以我们如果设定这两个密码一定要牢记。

5、我们点击确定，第一次弹出对话框的是需要帮打开密码再输入一次

5、第二次弹出对话框的是需要帮修改密码再输入一次。这时我们确认完成后就设定的打开密码和修改密码。

6、当我们关闭文档再次打开后，第一次弹出的对话框是打开文档对话框。

7、当打开文档密码输入正确后，就出现输入 修改权限的密码 对话框。这时我们可以输入正确的修改密码进去修改，或者不输入修改密码，以只读的方式进去查看文档。 需要注意的是只读方式只能查看文档，不能修改文档。

总结：Excel密码有两个级别，一个是只读的，一个是修改的。可以根据需要进行设置，但要注意的是设定的密码一定要牢记。

本百家号：时代新生分享工作、生活、技能方面的经验，愿和您一起成长。请多多收藏或关注哦！

文/小雨

图/小雨

Hi，大家好，我是小雨。在工作和学习的过程中，我们有时会遇到多人共同编辑同一个电子表格的情况。如果将表格分发给每个人自由编辑的话，可能会存在后面的人将前面编辑好的数据修改或破坏。

怎么办呢？

我们可以给电子表格划分区域，在每个区域设置一个单独的密码。只有在密码匹配的情况下，才能对该区域的内容进行编辑。比如下图所示的表格中，分别为一班、二班和三班所对应颜色的区域设置不同的密码，就可以完成各自班级的成绩录入，互不干涉。

如何操作？

1、打开Excel菜单中的【工具】---【保护】---【允许用户编辑区域】

2、在【允许用户编辑区域】的界面选择【新建】，对一班的区域设置密码。

上图中的内容如何填写？

标题：随意填写，只为区分每个区域，可以填“一班”引用单元格：点右侧红色箭头，拖动选择一班所在的蓝色区域区域密码：编辑这一部分内容时需要输入这里设置的密码才可以

确认以上3项输入正确后点确定，再次确认输入一次密码，即可完成对一班所在区域的内容保护。

↓↓↓设置完成后是这样的↓↓↓

3、重复上一步的动作，分别设置二班和三班的保护区域。需要注意的是，在设置密码的时候，不要和一班的相同，否则就起不到独立保护的效果了。

设置好后如下图的效果

4、点一下【应用】，再点【保护工作表】，并按照提示输入密码。需要注意的是，这一步输入的密码是管理员密码，而之前输入的是区域编辑的密码，所以每个密码都不能相同。

设置好了之后，关闭文档发送给一、二、三班的老师，并告诉对方相应区域的编辑密码就OK了。

当对方打开文档开始在指定区域输入内容时就会提示输入密码，互不干涉，非常方便和安全。

不知道今天分享的这个小技巧对你有帮助吗？欢迎大家留言评论！

如图：这是打开Excel表格的时候出现的输入密码的窗口，只有输入正确的密码才能看到里面的内容。如何做呢？

这里随便找了个表格来练习，如图：

首先点击左上角的文件然后找到箭头所示的权限，如图：

点击后出现红色线框中的选项进行加密，如图：

点击后会出现输入密码的界面，然后再次输入密码，点确定，如图：

最后就设置好了，记得要保存哦，保存后重新打开Excel表格就好啦，如图

其实文件管理在我们工作中尤为重要，比如说一个简单的电子表格如何去加密？如何对工作表加密？如何不让别人动我们的原有数据，只能编辑一些数据？如何能让我们表结构不别人破坏？今天就给大家谈谈excel“保护”的那些事儿吧！

其实excel“保护”的话，大致可以分为保护工作薄（就是整个文档）、保护工作表、允许用户编辑区域这三类。下面我们一一探讨。

一、保护工作表（就是别人打开你发的文件需要密码才能查看，否则无法打开）

①单击文件另存为，打开另存为对话框，在工具下拉菜单中选择“常规选项”

②打开常规选项对话框后，在相应位置输入密码，并单击确定按钮

③在随后出现的确认密码对话框里重新输入密码，单击确定按钮，返回“另存为”对话框，单击保存。至此，设置密码就ok啦！

④密码设置成功后，再次打开该工作薄，则需用到密码。

二、保护工作薄的结构（就是禁止他人增加、删除、隐藏我们的工作表）和窗口（禁止其他人更改工作表的窗口大小或位置）

①在审阅选项卡下，找到保护工作薄按钮，打开保护结构和窗口对话框。在该对话框选择是结构或窗口，并输入密码，单击确定。

②在随后打开的确认密码对话框里，重新输入密码，并单击确定，至此完成对工作薄或窗口的保护。完成后，审阅选项卡下的保护工作薄按钮高亮显示。

③ok

三、保护工作表（就是单元格内容不被别人修改）

①在审阅选项卡下，单击保护工作表按钮，打开保护工作表对话框

②随后打开的确认密码对话框里，重新输入密码，单击确定，完成工作表的保护。

四、允许修改部分单元格

①选择允许修改的单元格区域，（可以按ctrl选择不连续的区域），右击设置单元格格式，

②在单元格格式对话框中，选择保护选项卡，去掉锁定前面的对号，并单击确定。

③随后操作步骤同前，单击审阅选项卡下的保护工作表按钮，输入密码即可。

④完成ok啦，后面还有种情况，大家看后面的示意图

相信通过这次的分享，很多人都知道我们工作表保护的秘密了吧。其实这个在我们工作中用得也很广泛，之前有个人问我如何去不让别人去改变我们的内容和单元格大小。所以给大家总结了此次的excel密码的秘密，希望能帮到大家。

今天通哥来给大家讲一下Excel的协同编辑，互联网时代么，我们有很多需要多人共同编辑同一个电子表格的情况。如果将表格分发给每个人自由编辑的话，经常出现后面的人不小心改掉前面人的情况，今天通哥就给大家讲一下如何操作。

划分区域设置单独密码

首先将电子表格划分区域，在每个区域设置一个单独的密码。只有在密码匹配的情况下，才能对该区域的内容进行编辑。比如我们做表格统计不同编辑的文章数据，分别为兔兔、辣辣和晶晶所对应颜色的区域设置不同的密码，就可以完成各编辑的数据录入，互不干涉。

怎么设置呢？

1、打开Excel菜单中的【审阅】---【允许用户编辑区域】

2、在【允许用户编辑区域】的界面选择【新建】，对通妹兔兔的区域设置密码。

标题：随意填写，自己区分就好

引用单元格：选择要设置的区域

区域密码：编辑这部分内容需要的密码

以上三项设置完成后，再次确认输入一次密码，即可完成对通妹兔兔所在区域的内容保护。

3、重复上一步的动作，分别设置通妹辣辣和通妹晶晶的保护区域。为了独立保护设置不同的密码

设置好后如下图的效果

4、点一下【应用】，再点【保护工作表】，并按照提示输入密码。需要注意的是，这一步输入的密码是管理员密码，而之前输入的是区域编辑的密码，所以每个密码都不能相同。

设置好了之后，关闭文档发送给三位通妹编辑，并告知相应区域的编辑密码就OK了。

当对方打开文档开始在指定区域输入内容时就会提示输入密码，互不干涉，非常方便和安全。

不知道今天分享的这个小技巧对你有帮助吗？

我是通哥，和大家分享提升办公效率的方法、互联网行业知识以及街头巷尾的生活，希望和你成为朋友

工作中有些人为了保护自己的资料不别任何人修改，就需要设置工资表保护密码。只有知道密码的人才可以修改。但是有时候很急需要往里面添加资料。就得需要破解密码。

别人设置的密码只能看不能编辑

点击撤销工资表保护需要密码

我们点击查看代码

或者点击查看代码

粘贴下面的代码

Public Sub AllInternalPasswords()

' Breaks worksheet and workbook structure passwords. Bob McCormick

' probably originator of base code algorithm modified for coverage

' of workbook structure / windows passwords and for multiple passwords

'

' Norman Harker and JE McGimpsey 27-Dec-2002 (Version 1.1)

' Modified 2003-Apr-04 by JEM: All msgs to constants, and

' eliminate one Exit Sub (Version 1.1.1)

' Reveals hashed passwords NOT original passwords

Const DBLSPACE As String = vbNewLine & vbNewLine

Const AUTHORS As String = DBLSPACE & vbNewLine & _

"Adapted from Bob McCormick base code by" & _

"Norman Harker and JE McGimpsey"

Const HEADER As String = "AllInternalPasswords User Message"

Const VERSION As String = DBLSPACE & "Version 1.1.1 2003-Apr-04"

Const REPBACK As String = DBLSPACE & "Please report failure " & _

"to the microsoft.public.excel.programming newsgroup."

Const ALLCLEAR As String = DBLSPACE & "The workbook should " & _

"now be free of all password protection, so make sure you:" & _

DBLSPACE & "SAVE IT NOW!" & DBLSPACE & "and also" & _

DBLSPACE & "BACKUP!, BACKUP!!, BACKUP!!!" & _

DBLSPACE & "Also, remember that the password was " & _

"put there for a reason. Don't stuff up crucial formulas " & _

"or data." & DBLSPACE & "Access and use of some data " & _

"may be an offense. If in doubt, don't."

Const MSGNOPWORDS1 As String = "There were no passwords on " & _

"sheets, or workbook structure or windows." & AUTHORS & VERSION

Const MSGNOPWORDS2 As String = "There was no protection to " & _

"workbook structure or windows." & DBLSPACE & _

"Proceeding to unprotect sheets." & AUTHORS & VERSION

Const MSGTAKETIME As String = "After pressing OK button this " & _

"will take some time." & DBLSPACE & "Amount of time " & _

"depends on how many different passwords, the " & _

"passwords, and your computer's specification." & DBLSPACE & _

"Just be patient! Make me a coffee!" & AUTHORS & VERSION

Const MSGPWORDFOUND1 As String = "You had a Worksheet " & _

"Structure or Windows Password set." & DBLSPACE & _

"The password found was: " & DBLSPACE & "$$" & DBLSPACE & _

"Note it down for potential future use in other workbooks by " & _

"the same person who set this password." & DBLSPACE & _

"Now to check and clear other passwords." & AUTHORS & VERSION

Const MSGPWORDFOUND2 As String = "You had a Worksheet " & _

"password set." & DBLSPACE & "The password found was: " & _

DBLSPACE & "$$" & DBLSPACE & "Note it down for potential " & _

"future use in other workbooks by same person who " & _

"set this password." & DBLSPACE & "Now to check and clear " & _

"other passwords." & AUTHORS & VERSION

Const MSGONLYONE As String = "Only structure / windows " & _

"protected with the password that was just found." & _

ALLCLEAR & AUTHORS & VERSION & REPBACK

Dim w1 As Worksheet, w2 As Worksheet

Dim i As Integer, j As Integer, k As Integer, l As Integer

Dim m As Integer, n As Integer, i1 As Integer, i2 As Integer

Dim i3 As Integer, i4 As Integer, i5 As Integer, i6 As Integer

Dim PWord1 As String

Dim ShTag As Boolean, WinTag As Boolean

Application.ScreenUpdating = False

With ActiveWorkbook

WinTag = .ProtectStructure Or .ProtectWindows

End With

ShTag = False

For Each w1 In Worksheets

ShTag = ShTag Or w1.ProtectContents

Next w1

If Not ShTag And Not WinTag Then

MsgBox MSGNOPWORDS1, vbInformation, HEADER

Exit Sub

End If

MsgBox MSGTAKETIME, vbInformation, HEADER

If Not WinTag Then

MsgBox MSGNOPWORDS2, vbInformation, HEADER

Else

On Error Resume Next

Do 'dummy do loop

For i = 65 To 66: For j = 65 To 66: For k = 65 To 66

For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66

For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66

For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126

With ActiveWorkbook

.Unprotect Chr(i) & Chr(j) & Chr(k) & _

Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _

Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)

If .ProtectStructure = False And _

.ProtectWindows = False Then

PWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _

Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _

Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)

MsgBox Application.Substitute(MSGPWORDFOUND1, _

"$$", PWord1), vbInformation, HEADER

Exit Do 'Bypass all for...nexts

End If

End With

Next: Next: Next: Next: Next: Next

Next: Next: Next: Next: Next: Next

Loop Until True

On Error GoTo 0

End If

If WinTag And Not ShTag Then

MsgBox MSGONLYONE, vbInformation, HEADER

Exit Sub

End If

On Error Resume Next

For Each w1 In Worksheets

'Attempt clearance with PWord1

w1.Unprotect PWord1

Next w1

On Error GoTo 0

ShTag = False

For Each w1 In Worksheets

'Checks for all clear ShTag triggered to 1 if not.

ShTag = ShTag Or w1.ProtectContents

Next w1

If ShTag Then

For Each w1 In Worksheets

With w1

If .ProtectContents Then

On Error Resume Next

Do 'Dummy do loop

For i = 65 To 66: For j = 65 To 66: For k = 65 To 66

For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66

For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66

For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126

.Unprotect Chr(i) & Chr(j) & Chr(k) & _

Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _

Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)

If Not .ProtectContents Then

PWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _

Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _

Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)

MsgBox Application.Substitute(MSGPWORDFOUND2, _

"$$", PWord1), vbInformation, HEADER

'leverage finding Pword by trying on other sheets

For Each w2 In Worksheets

w2.Unprotect PWord1

Next w2

Exit Do 'Bypass all for...nexts

End If

Next: Next: Next: Next: Next: Next

Next: Next: Next: Next: Next: Next

Loop Until True

On Error GoTo 0

End If

End With

Next w1

End If

MsgBox ALLCLEAR & AUTHORS & VERSION & REPBACK, vbInformation, HEADER

End Sub

把这段代码粘贴到代码框里面。等待一到两分钟。期间会弹出几个对话框。

运行期间会有几个对话框点确定就好

关掉代码窗口。保存会出现这样提示点击是

成果

方便你我他

喜欢就收藏备用，谢谢大家多多关注啊！

1打开表格，比如你突然收到这样的一个你中500万的表格，点击就能体现，那么你想要加密的话，跟着往下看！

2点击 左上方的【文件】按钮，显示 文件按钮的子文件夹，第一个就是 【保护工作簿】

3点开后会有价格选项，选择第二个选项【用密码进行加密】，然后弹出

新密码输入框

输入密码后，需要二次输入验证；

等 设置完成后，这个工作簿就算是加密了；

4

然后文件夹选项会提示你，【打开此工作簿需要密码】！

.

先关闭在打开，就会提示【需要输入密码才能打开】；

.

5

然后输入设置的密码，打开工作簿；这样你的工作簿就会处于密码保护状态谁都不能随便打开你的表格了！