Excel自带的工作表保护功能，想必很多人都曾用过。

为了保护某些单元格区域的数据被不小心误改，我们经常使用工作表的保护功能，将这些区域“锁定”，将其保护起来。

单纯设置一个工作表的保护功能相对简单，但如果工作表有几十个、上百个，该如何处理哪？

其实，批量修改工作表保护属性的操作方法特别简单。

大家只要存下以下代码，并记住操作步骤即可。

1

我们首先演示去除多个工作表保护属性的方法。

〓操作步骤：

1.按ALT+F11打开VBA窗口，然后插入模块。如下图：

2.在模块窗口中，输入或拷贝 去除工作表的保护属性代码

'去除工作表保护属性

Sub UnProtect()

Dim ws As Worksheet

For Each ws In ActiveWorkbook.Worksheets

'原保护密码为 thm123456

ws.UnProtect "thm123456"

Next

End Sub

3.选择上一步中红色部分代码，并按F5执行选择代码

示例说明： 该工作簿中有“目录”工作表和200多个供应商工作表组成（本视频为虚拟数据，只有二十几个工作表），现在要修改多个供应商工作表中的采购日期列格式，将其列宽批量修改为13，并设置为日期格式。

操作视频如下：

2

下面我们演示，设置多个工作表具有保护属性的方法。

〓操作步骤 ：

1.按ALT+F11打开VBA窗口，然后插入模块

2.在模块窗口中，输入或拷贝设置工 作表的保护属性代码 。

'设置工作表保护属性

Sub Protect()

'设置保护密码为 thm123456

ws.Protect "thm123456"

3.选择上一步中红色部分代码，并按F5执行选择代码

操作视频如下：

——END——

在日常工作中，为了避免Excel被他人编辑或查看，需要对Excel进行加密保护，但你会用吗？本期与大家分享一下有关加密保护的用法。

1、对整个工作表的保护

打开需要保护的工作表，然后选择审阅——保护——保护工作表，这时在保护工作表对话框中设置相应的密码以及勾选允许此工作表的所有用户进行的操作，之后点击确定。这样在表格中除了勾选部分表格可操作之外，其他的就不能操作。

具体操作如下：

（由于设置了保护，表格中的插入可以操作，删除是不能操作的）

2、对部分工作表保护

其实在实际工作中，我们并不需要将所有工作表的内容保护起来，我们只要将部分内容保护就好，那这个要怎么实现呢？

首先，选中整张表格，按Ctrl+1打开设置单元格格式，选择保护，然后将锁定的复选框取消，之后再选中要保护的区域锁定，点击审阅——保护——保护工作表即可。

具体操作如下：

（由于右侧表格设置了保护，所以不能直接删除，而左侧表格是可以的）

3、对公式的保护

其实对公式的保护也是属于对部分的保护，但由于时常有人咨询，所以我们单独讲解一下。

首先取消锁定，之后按Ctrl+G定位公式，然后锁定单元格，最后按正常保护思路来处理即可。

具体操作如下：

（由于对公式进行保护，这样就不能直接更改公式）

PS：如果想将公式隐藏，需要先锁定和隐藏单元格，然后继续设置保护工作表才有效。

（设置保护之后，表格中的公式就不能查看了）

4、取消保护

如果不需要保护，直接点击审阅——保护——撤销工作表保护即可。

以上就是有关工作表保护的技巧，希望对大家有所帮助。

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

如果不想让别人查看或更改你的公式，怎么设置呢？

看下图，我们可以看到公式，也可以修改数据。

第一步：选择要保护的单元格区域

第二步：字体选项--选择“保护”--勾选“锁定”和“影藏”--确定

第三步：审阅--保护工作表--勾选“保护工作表及其锁定单元格内容--输入密码----确定”

看效果，如果我们要修改表格内容，会弹出对话框。

第四步：如果我们要想进行修改，就要反过来设置

第一步： 审阅--撤销工作表保护--输入密码--确定

第二步：字体选项--选择“保护”--取消“隐藏”--确定

第三部：试试看能修改吗？

注意：如果进行了保护，千万不要忘记密码，否则就无法进行修改

图片来源于网络

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

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

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

我们点击查看代码

或者点击查看代码

粘贴下面的代码

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工作表的时候，添加了大量的excel工作表，这时候您可以把不用的excel工作表设置隐藏起来，设置隐藏和取消隐藏excel工作表的具体方式如下：

1、选择“隐藏”选项

打开一个excel工作薄，右击需要隐藏的工作表标签，在弹出的快捷菜单中选择“隐藏”选项，如图1所示。

2、隐藏工作表。 此时即可将工作表隐藏，如图2所示。

3、选择“取消隐藏工作表”选项

单击 “开始”选项卡，在 “单元格”组中单击“格式”下拉按钮，在弹出的下拉菜单中选择 “隐藏和取消隐藏”|“取消隐藏工作表”选项。 如图3所示。

4、选择excel工作表

弹出 “取消隐藏”对话框，在“取消隐藏工作表”列表框中选择工作表，单击“确定”按钮，如图4所示。

excel工作表默认是3个，可能我们会因为工作需要添加的更多，excel工作表越多对我们在选择excel工作表的时候不是很方便，这时候我们就可以用上面所说的隐藏excel工作表的方法了。

何为工作表保护密码？

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

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

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

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

今天最重要的问题来了：

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

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

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

开始破解：

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

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

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

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

3、用记事本打开sheet1

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

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

完工！

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

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

（1）保护工作表

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

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

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

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

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

图 全选需要锁定的区域

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

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

图 保护工作表

图 工作表不能被修改

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

（2）保护工作薄

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

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工作表保护密码是一种很弱的保护，使用本文的方法，就可以破解撤销工作表保护密码。亲们可以收藏转发备用，说不定哪天就用上了哦。