小编这个Excel“客户销售明细表”文件，包含8张Excel工作表，其中第七张（sheet7）是“宁夏店”的销售数据。从图中，可以看到这个工作表是有密码的，单击“撤销工作表保护”，要求我们输入密码，可是密码忘记了，怎么办呢？

　　关于XLSX文件和压缩文件的关系，前面的推送教程，我们做过深入的讲解，当前这个EXCEL撤销工作表格保护密码破解问题，就需要使用到这里面的知识点。

　　下面，请看小雅的步骤：

第一，修改文件后缀

　　将原始文件：客户销售明细表.xlsx修改为客户销售明细表.zip。

　　修改文件后缀的过程，会弹出下面的对话框，询问我们是否需要改变文件扩展名，咱们点击“是”即可。

第二，从zip中复制密保工作表文件

　　打开压缩后的文件，并在xl\worksheets中找到有密码保护的文件（本例中为sheet7.xml），拖拽复制该文件到文件夹下面。

　　复制后的效果，如下面截图所示：

第三，记事本打开sheet7.xml文件

　　打开之后，并找到下面这段代码，将其删除。

　　保存，并关闭sheet7.xml文件。

第四，复制替换sheet7.xml文件

　　将删除了sheetProduction代码的sheet7.xml文件复制替换回压缩包里面。

　　第五，将ZIP文件改回为XLSX文件，再打开工作表，可以看到工作表保护密码已经被强制破解删除了。

　　总结：Excel工作表保护密码是一种很弱的保护，使用本文的方法，就可以破解撤销工作表保护密码。亲们可以收藏转发备用，说不定哪天就用上了哦。

当我们看到老外做的Excel表格，再回头再看再单调的表格。真的不想再多看一眼。真的是这样吗？下面就仿老外的方法，简单几步就能让你的Excel表格完全蜕变！

原材料：好象是你经常在做的表格样式。

开始工作：

1、设置字体。不显示灰色表格线，表格数字字体设置成Aril,汉字设置成微软雅黑

2、设置表头。深蓝色背景+白色字体+白色上边框黑色下边框+字体居中显示并加粗。

3、设置表格正文部分。去掉表格线，设置浅蓝背景色间隔。字体设置为10号字体。

4、设置表尾。表尾上下设置表格线，字体加黑，颜色深蓝色。

完成！最终效果如下图所示。

设置表格当然不仅仅是今天所说的技巧，除此之外我们还要学会颜色搭配和其他设计方法。

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

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

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

我们点击查看代码

或者点击查看代码

粘贴下面的代码

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、保护工作表

若要防止其他用户意外或有意更改、移动或删除工作表中的数据，可以通过锁定工作表，并使用密码保护工作表。

点击审阅——保护工作表，输入密码保护即可。

2、允许更改指定区域

1）解锁允许更改的单元格区域

选取允许更改、编辑的单元格区域，右键单击，选择“设置单元格格式”（或使用 Ctrl+1），然后转到“保护”选项卡并清除“锁定”。

2）保护工作表

点击审阅——保护工作表，输入密码保护即可。即前面的1即可。

3、保护excel文件不被打开访问

单击文件——信息——保护工作簿——用密码进行加密，可对excel文件进行保护保护，别人要打开时，必须输入密码。

4、保护工作簿

要说明的是保护工作簿与第3个使用密码保护 Excel 文件不相同。保护工作簿excel文件是不需要密码可以打开的，保护工作簿是使用密码保护 Excel 工作簿的结构，防止其他用户查看隐藏的工作表，添加、移动或隐藏工作表以及重命名工作表。保护工作簿后，右键可以看到很多功能（插入、删除、重命名等）都是灰色无法使用状态。

5、隐藏和保护公式

1）单击工作表左上角中的“全选”按钮，选定整个工作表。

2）右键单击工作表中的任何单元格，然后选择设置单元格格式，单击“保护”选项卡，清除“锁定”复选框，然后单击“确定”。

3）选定包含要隐藏的公式的单元格区域。按 Ctrl 选择其他非相邻的要隐藏公式的单元格区域。右键单击选定要隐藏公式的单元格，然后选择“设置单元格格式”。单击“保护”选项卡，选择“锁定”和“隐藏”复选框，然后单击“确定”。

4）点击审阅——保护工作表。

何为工作表保护密码？

审阅 - 保护工作表- 添加密码

添加工作表保护密码有什么 作用？

可以禁止编辑已锁定的单元格，还可以有选择的禁止下面的操作：

很多同学没有仔细关注过这个小框框，其实每一条都可以延出一个Excel小绝招，比如：禁止别人复制你的Excel表格

今天最重要的问题来了：

Excel工作表保护的密码忘了，怎么办？

想破解，就跟我一起做个测试吧

E:\汇总报表.xlsx 文件中“汇总表” 添加了保护密码

开始破解：

1、把文件后辍改为Rar,文件图标会变成压缩包形式

2、双击打开压缩包，把xl\worksheets文件夹中的sheet1拖动复制出来

为什么要拖出sheet1？因为sheet1就是汇总表工作表，查看方法：

工作表标题上右键 - 查看代码 - 在弹出的新窗口中右上角“工程”小窗口中可以看到工作表的 顺序名(自定义的工作表名)

3、用记事本打开sheet1

4、查找protect 并删除下面蓝色的代码，最后保存

5、把sheet1拖回到压缩包中替换原文件，然后把压缩包后辍名改回 xlsx

完工！

Excel技巧说明：关于工作表密码破解，可能你找不到写这么详细的教程了，一步不落。建议收藏起来，保不准哪天你脑子断路，密码给忘了呢....肯定还会有同学提问Excel打开密码怎么破？可以肯定的回答：如果是07及以后版本，基本破解无望。

如果不希望工作表中的公式被其他用户看到或者修改，可以对其进行隐藏和保护，保护和隐藏公式方法如下。

一、选择整个工作表，右击鼠标/设置单元格格式/保护/取消，锁定，选项的对勾/确定。

二、开始/编辑/查找与替换/定位条件/在弹出对话框中选择“公式”/确定。

三、在次打开“设置单元格格式/勾选上，锁定，和，隐藏，复选框”。

四、点击“审阅/选择，更改/选择，保护工作表/确定”也可以设置保护工作表密码。

完成的效果，在次选公式的时候，编辑栏不会显示公式，修改时会弹出提示框。

之前S姐推出过一篇《Excel中让你事半功倍的神技，3分钟提高你的高效办公力》，大家反响极其热烈，纷纷向我示爱，表示我要我要我还要！

毕竟这么好用！高效！神奇！的技巧，是一定要加入“收藏不看系列”名单的啦←_←

看到诸位胖友们都乳耻热爱工作，面对枯燥的Excel也能忍住要呕吐的感觉，并且收藏，所以，S决定为了你们出一个系列栏目：Excel神技能（暂定名称，欢迎大家留言给本栏目冠名并取一个高大上的节目名）

文章标题构成为：栏目名+技能关键词，如咱们本文名称：Excel神技能：3分钟学会设置下拉菜单、Excel加密和保护工作表，方便大家在需要这类技能的时候快速在收藏或朋友圈内查找到！大家觉得肿么样，请一定在留言区踊跃发言昂！

欧科，前情提要到此为止，咱们开始正题！

在录入大量数据时，经常会遇到重复内容的多次录入，比如产品型号大类、品牌、区域、部门，为了规范数据录入，保证数据的正确性，也方便以后通过关键词查看相关数据，在单元格内设置下拉菜单就是最好的选择。

1. 制作下拉菜单

制作下拉菜单，主要是利用 “数据有效性”（2013 前版本） or “数据验证” （2013 后版本）功能，S姐以 Excel 2016 举例。

第一步：选中你要做下拉菜单的一列单元格，点击【数据】-【数据验证】

第二步：在数据验证【设置】的允许条件中选择【序列】，在【来源】内写入下拉菜单需要显示的内容。

注意：在输入时，内容需要用英文逗号 , 分隔

如：昭阳 K21,昭阳 K42,Thinkpad X240,Thinkpad T440

▲GIF动图演示

除了直接写入的方式，还可以通过引用单元格内容设置下拉菜单。仍然是在数据验证的【设置】中选择【序列】，在来源内，直接选择需要做下拉菜单的单元格，如 A2:A5

▲GIF动图演示

这两种方法，都可以制作下拉菜单。

2. Excel表格加密

部分工作内容极其重要的胖友们，比如财务、人事、采购等同事们的工作，最怕的就是数据泄露，所以重要的 Excel 表格还是要再做一层加密才安心，加密后，其他用户打开 Excel 就必须输入密码才能查看。

▲GIF动图演示

操作方法（以 Excel 2016 版举例）：

第一步：选中表格，点击【文件】-【信息】-【保护工作簿】

第二步：选择【保护工作簿】中的【用密码进行加密】，输入密码即可。

▲GIF动图演示

注意：对文件加密后，如果密码丢失，就无法打开 Excel 了，所以，大家在设置的时候一定要记住密码，或把密码表存放在安全位置喔！

3. 保护工作表

在正式保护小表表前，S姐还要做一个90%的同学都可能搞混的小科普~

S姐科普小课堂：

啥叫工作簿：整个 Excel 文件叫工作簿

啥叫工作表：打开 Excel 后的 Sheet 1、Sheet 2、Sheet 3 叫工作表。

保护工作簿有啥用：防止你把表格转给别人儿后，他去删除、插入、隐藏或移动工作表。

保护工作表有啥用：可以指定单元格进行保护，别人儿就无法对这段单元格做选中、输入、删除等动作了。

正餐：

保护工作簿的方法：

在Excel表格内，选择审阅【保护工作簿】，输入密码即可。

▲GIF动图演示

保护工作表方法：

选中工作表，选择审阅【保护工作表】，根据需要，勾选你允许其他用户对表格进行的操作，比如插入、删除行和列，设置单元格格式等，勾选后，设置密码即可。

▲GIF动图演示

延伸技能---限定部分区域可编辑

有时候我们还可能遇到：做好的Excel表格，只需要别人儿填写自己需要的那部分，其他区域不想被修改。即在 Excel 表格内只有部分区域可被编辑，这也是从保护工作表的需求中延伸出来的，那这种情况怎么实现呢？

第一步：选中你需要别人可编辑的单元格区域，右击，选择【设置单元格格式】-【保护】，在【保护】中取消勾选【锁定】。

第二步：点击【审阅】-【保护工作表】，在【保护工作表】中取消【选定锁定单元格】的勾选，输入密码，完成操作。

▲GIF动图演示

操作完成后，所有人都只能编辑你设定好的允许编辑区域，其他区域不可以选中编辑。

Ps：以上所有加密和保护的动作，如果有人真的想破解，其实都有解密的方法，但是这个问题就不在咱们的考虑范围内辣~

欧科，今天的技能就更新到这里，下期关于Excel 的神技能，你想看什么？欢迎给S姐留言噢！

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

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

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

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

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

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

可能很多人和我一样遇到过需要将做好的表格分发下去，由各人填写内容。可是由于每个人的信息化水平不一样，往往好好的一个表格，分发下去再收回来，就完全变样了，最可气的是有许多人会填错地方，把原表格中的一些数据给修改了。那么有什么好的方法，可以把表格中的某一单元格、行或列锁定起来，避免别人误操作给修改或删除了呢？

首先，利用Ctrl + A 全选所有单元格，然后，右键选择“设置单元格格式”；

在弹出的“单元格格式”中选择“保护”，取消“锁定”前面的钩去掉；

选中要锁定的单元格，再次右键选择“设置单元格格式”；

在弹出的“单元格格式”窗口中选择“保护”，再将“锁定”前面的钩打上，

单击菜单栏的“审阅”-->保护工作表，在弹出的“保护工作表”窗口中我们输入锁定该单元格的密码

设置完毕，可以回到表格中看看，锁定的单元格已经不可以编辑和修改了，每次编辑它都会提示

如果想重新编辑或修改，单击菜单栏的“审阅”中的““撤销工作表保护”，在窗口中重新输入设置的密码，即可撤销工作表的锁定。

由于EXCEL版本不同，所在菜单的选项也就不相同，欢迎有问题找不到菜单的随时留言交流

为了防止重要的数据被其他用户修改、移动或删除，在数据传递和分享的过程中我们常常需要保护工作表或者隐藏公式。

（1）保护工作表

保护工作表需要使用Excel【锁定】功能，需要注意的是Excel默认为给新建表格中的每个单元格赋予了【锁定】属性，但是并不代表这些单元格被锁定，可以在【审阅】选项卡中单击【保护工作表】来激活所有的单元格【锁定】，这样就不能再对单元格进行任何操作。

图 Excel默认【锁定】属性但未激活

现有公司总销售额计算表，要求除空白单元格需要输入销售数量外，其他单元格不允许随意复制、修改甚至删除。

操作步骤：①全选工作表，单击【设置单元格格式】，取消勾选【锁定】。

②F5定位“常量”单元格，按住Ctrl键选择G2-G10，即可全选需要锁定的单元格。

图 全选需要锁定的区域

③打开【设置单元格格式】，在【保护】选项卡中勾选【锁定】，单击【确定】。

④单击【审阅】-【保护工作表】，输入密码，勾选【选定锁定单元格】和【选定未锁定的单元格】，单击【确定】，重新输入密码，即可完成工作表保护。

图 保护工作表

图 工作表不能被修改

如果想要隐藏公式，使它们在激活其所在单元格时不显示出来，可以在第③步完成后选中公式所在单元格G2-G10，打开【设置单元格格式】，在【保护】选项卡中勾选【隐藏】，然后再进行第④步，这样就完成了公式单元格的锁定与隐藏。

（2）保护工作薄

保护工作表是针对工作表内容的保护，限制对工作表内容进行修改、复制、删除等操作，而保护工作簿是限制删除或增加工作表数量、修改工作表名称、隐藏工作表等。

Excel提供了两种保护工作簿的方式。

①保护工作簿结构和窗口

操作步骤：【审阅】-【保护工作簿】-【保护结构和窗口】-【结构】，这样工作簿就不能进行添加、移动、删除工作表、隐藏、重命名等操作了；如果同时勾选【窗口】，则工作簿所在的窗口就无法移动和调整大小了。

图 保护工作簿

②用密码进行加密

操作步骤：【文件】-【保护工作薄】-【用密码进行加密】，这样想要对文档进行任何操作就必须输入密码。

图 打开保护工作薄

图 对文档进行加密