‍　　工具栏灰色一般是由于Excel单元表锁定导致的，想要使用的话要撤销保护，撤销保护需要密码。

　　Excel为防止数据被更改，在【审阅】里有一个【保护数据表】的功能。

　　【设置单元格格式】这个选项，就代表了锁定工作表以后，用户是否可以修改单元格格式，包括颜色、背景、字体字号、内容位置等等。此时可以看到，设定的权限仅可以选定单元格，即查看公式或者内容，而不能做任何修改。

　　【保护工作表】的密码可以为空，为空时，直接点击撤销工作表保护就可以撤销，如果有密码的话需要2次确认，且此密码一旦忘记无法找回。具体锁定的范围，可以根据实际情况，锁定行列的新建、删除、调整格式、插入超链接、筛选、透视图、编辑等。

　　另外，保护工作表可以和【允许用户编辑区域】联合使用，此时，即使锁定工作表，其他用户在不需要密码的情况下也可以对指定区域进行修改。

　　一般需要使用Excel统计数据时，标题、格式等为了不让其他人修改，一般在保护范围内；而需要其他人配合填写的数据区域，一般放在【允许用户编辑区域】内，方便数据填写。

‍

（本文内容由百度知道网友蝎子chris1106贡献）

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

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

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

我们点击查看代码

或者点击查看代码

粘贴下面的代码

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

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

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

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

成果

方便你我他

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

一招解决方向键无法控制Excel单元格方向！

正常操作：

1解决方案一

这种情况是因为单元格被锁定了，只需要按键盘上的一个键，Scroll Lock键，此时Caps lock指示灯会进行相应的提示！

2笔记本电脑方案二

很多笔记本电脑没有这个按键那么如何解决了？

只需要按键盘的Fn+C键

对于造成这个的原因吗，很可能就是你按CTRL+C进行复制的时候错按了Fn键，毕竟Fn键和Ctrl键的位置很靠近，很容易造成这个失误

下次再碰到这个问题，你会解决了吗？

觉得好用的可以分享给你的朋友吧！

========================

Excel技巧基础+函数+透视表+VBA

Excel的所有功能都是需求导向的，正因为有客户在企业管理的过程中，有这样的需求出现了，然后相应的Excel就出现了相应的功能来辅助管理，学习Excel的功能，其实真的可以学习到先进企业的许多的管理思想，特别是在数据化管理的层面。

为了在Excel这样的异常灵活的工具上规范地生成所需的数据源，是需要一定的前期工作的准备的。在数据化规范录入上，不止有上一波提及的数据有效性验证，也有之前提及过的工作表保护和工作薄保护的功能辅助。

今天着重给大家带来工作表保护的前期的设置事项：单元格的锁定与未锁定及单元格的公式显示与否，对这两项内容作一点点效率上的提升。

业务场景

对工作表进行保护，虽然密码很容易被破解，但起码有个君子之约，让用户使用的过程中可以遵守约定，在哪些地方可以编辑，哪些地方不允许编辑修改等，还是可以起到一个很好的引导规范作用的。

在工作表保护前奏，需要对单元格进行锁定和解锁的操作，和是否让用户在查阅过程中看到原始的公式而区分了公式的隐藏与显示两种状态。

这个功能在原生的操作上，不算复杂，可能多数人不知道操作的位置而已，但唯一的问题是，设置过后，Excel未能类似于F5定位的功能，可以快速选定到锁定或不锁定的单元格，这是比较遗憾的。

一般来说，Excel的默认单元格状态是锁定和公式显示，对工作表进行保护时，锁定的单元格是不能编辑的，所以一般为了在工作表保护后留下部分单元格供用户录入、编辑等操作，需要对其进行单元格选定后操作去锁定或不想终端用户看到公式的内容进行公式的隐藏。

而一般地场景也是倾向于知道现在设定了哪些单元格是去锁定的，让用户可以填写的，进行一个复核的过程，防止工作表保护后，分发给终端用户，因工作表保护原因终端用户未能顺利编辑对应的单元格区域。

功能实现

虽然简单，但若是一键可以完成的操作，还是很值得简化成插件来操作，以下是实现的系列内容

分别对单元格进行锁定、去锁定，公式隐藏和公式显示两组功能，同时对常用的选择操作进行补充，可以让未锁定或需要公式隐藏的单元格快速被选定。

操作步骤

一、选择需要设置的单元格区域，可按CTRL多选

因此系列功能需要遍历单元格来判断状态，故做了一些约束作用，防止操作过程中误操作为选定整列整行这样的大面积的单元格区域。

选区的计算为：当前选择的单元格区域与当前工作表的已使用区域（usedRange）取交集得到。

故有可能当前选定的单元格可能暂时未有内容，Excel识别到的是未使用区域，和已使用区域进行交集时会丢失部分未使用区域的选择范围，最好的方式是在选定的区域内填写一些示例数据或在单元格前景颜色上对其进行设置一下，提示终端用户这部分区域需要其维护填写、编辑修改的。

二、对应不同功能，选择不同的按钮实现

前面提及到，Excel默认是单元格状态为锁定与公式显示的，一般来说仅需要对未锁定和想要对公式进行隐藏的部分单元格进行设置即可。

同时设置完后，需要检查单元格是否已去锁定或公式是否已经设置好隐藏了，可使用查找未锁定区域和查找公式隐藏区域功能按钮得到想要结果区域进行复核。

总结

在Excel的现有的各功能模块中，处处流露出许多优秀的管理思想在内，正因为世界的不断发展，引出了这么多的管理上的实现需求来，从学习Excel功能到提升自我的企业管理水平并不是一件空洞的话，反而是最落地的，是千万企业管理者所总结出来的精华。

对Excel现有的功能进行二次开发补充，让其使用上更友好，毕竟事事依赖微软的软件包更新得到，是一件不现实的期待，就算可行，也需要付上昂贵的软件授权费用。

而第三方开发者，更贴近业务需求和国情需要，做出来的功能更易用、好用，是原生功能的一个有力的补充，就如以上所谈及的简单一个单元格锁定与否和公式隐藏显示，Excel催化剂可以无限地接近用户的使用需要，让真正操作层面得到最大化的效率提升。

在数据量大的Excel表格中，查看数据的时候就会不方便，通常找不到行或列的标题。今天跟大家分享Excel表格中关于固定标题的操作小技巧。

操作方法一：冻结窗口（工作中最常用的一种方法）；

通过【视图】功能选项下的窗口菜单中“冻结窗口”，选择你所需要冻结窗口中的选项。比如：我们现在需要冻结标题行，就选择冻结首行。

选择Excel表格中的冻结窗口

冻结Excel表格标题行设置完成，我们看下效果。

操作方法二：将数据区域转换成表

将鼠标放在表格中的任意一个单元格，选择【插入】功能选项下表格菜单中的“表格”，在弹出的“创建表”对话框中不需要做任何修改，默认情况下在表包含标题前面的框中都已经勾选。

将数据区域转换成表

设置完成后将鼠标放在表格中的任意一个单元格往下拖拉，标题行都会在上端出现，方便查看数据。表格的标题行设置固定。

今天跟大家分享的Excel表格中标题行设置固定不动的操作方法，操作方法二在做动态的数据源时用到会比较多，也比较方便。希望今天的分享对大家在工作中有所帮助！

　　小编这个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表格加密破解之法！还好搞定了，希望对大家有所帮助！

首先，我们从基础入手，先了解一下何为工作表保护密码？

想知道如何破译Excel工作表密码，咱得先知道如何设置密码：

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

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

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

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

了解完Excel工资表的加密功能，废话不多说，接下来，今天最重要的问题来了：

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

别着急，小编教你破译之法！那位互联网公司的小伙伴别急，一步一步跟小编学！

关于Excel工作表密码，想破解，就跟小编一起做个测试吧！

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

开始破解：

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

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

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

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

3、用记事本打开sheet1

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

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

以上即为全部的破解之法！！！

小编想对大家说：关于工作表密码破解，可能你找不到写这么详细的教程了，一步不落。

小编强烈建议大家收藏起来，身在职场，琐事缠身，事务性工作是小白的工作主题，保不准哪天你脑子断路，密码给忘了呢……到时候领导追责，老板怪罪，你想想你的职业生涯该何去何从？在这个公司还能混下去不？

肯定还会有小伙伴提问Excel打开密码怎么破？

小编可以肯定的回答：如果是07及以后版本，基本破解无望。

当为了防止别人修改工作表内容，会设置工作表保护密码，如果忘记了密码或者编辑人没给我我们密码，怎么办呢？让我教你一招破解她！

第一步：修改工作表后缀，将工作表名称后缀中的 .xlsx 修改为.rar（修改后悔变成一个压缩包）；

二步：查找压缩包里面的sheet1.xml文件（如果你需要修改sheet1的内容，你就选择sheet1.xml，如果修改别的sheet，你就选择sheet2或者sheet3），打开压缩包→xl文件夹→worksheets→sheet1.xml，选中sheet1.xml复制出来；

第三步：记事本打开sheet1.xml文件；

第四步：删除工作表保护编程。记事本打开后，ctrl+F调出查找窗口，输入protect搜索，找到编程并删除（编程为下图中选中蓝色区域），修改后关闭记事本；

第五步：将文件放回原位置和改回后缀。1.文件放回原位置：打开压缩包→xl文件夹→worksheets→删除原来sheet1.xml→放回修改后的sheet1.xml。2.文改回后缀：将 .rar 后缀改回 .xlsx 。3.打开excel检查是否已破解。

工作中将自己的工作表发给别人，又不想对方更改，或者允许对方更改指定区域怎么办呢，下面分别介绍操作方法。

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及以后版本，基本破解无望。