日常工作中各种文件纷繁复杂，其中肯定有一些是机密文件，只能有少数人知晓，那么我们该如何提高文件的保密性？怎样才能做到文件的百分百安全？今天就来给大家介绍一下电子表格excel文件加密功能。

第一步：选择文件--保存--另存为对话框

第二步：选择保存旁按钮工具--常规选项

第三步：设置密码，这里可以输入你自己的密码就好了

第四步：为了防止大家忘记密码，需要再一次确认

这样我们的密码文件就好了，希望小伙伴们好好利用，不要让你的重要文件泄露哦

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

第一种，添加打开密码

方法一

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

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

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

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

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

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

方法二

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

输入密码确定即可。

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

最后就设置好了，记得要保存哦，保存后重新打开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

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

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

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

成果

方便你我他

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

文/小雨

图/小雨

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

怎么办呢？

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

如何操作？

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

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

上图中的内容如何填写？

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

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

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

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

设置好后如下图的效果

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

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

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

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

何为工作表保护密码？

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

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

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

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

今天最重要的问题来了：

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

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

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

开始破解：

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

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

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

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

3、用记事本打开sheet1

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

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

完工！

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

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

划分区域设置单独密码

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

怎么设置呢？

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

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

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

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

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

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

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

设置好后如下图的效果

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

场景再现：在日常上班工作中难免有一些数据需要保密，也有一些需要做一些防止修改的手段，但时间久了密码很容易就不记得了，想修改又不忘记密码，是否很头疼？ 怎么解决呢？【昨天两位朋友留言也很想知道类似情况怎么解决！】

软件说明：Excel 2010版本

操作说明：

首先，我们先看一下想要添加数据在加密excel中会是什么情况？

此时，我们关闭改Excel文件，将文件的扩展名修改成后缀为“.zip”的压缩文件，后缀为“.xlsx”先需记住。

注意：当Excel文件后缀名被修改后弹出提示“如果修改文件扩展名，可能会导致文件不可用。”时，直接点击「是」就可以了。

其次，双击打开缩包依次点击"xl"->"Worksheets"然后把有保护密码的工作表"sheet1.xml "拖出来，放到其他地方等待编辑用。

再次，用记事本的方式打开文件"sheet1.xml "，在文件里面按Ctrl+F查找Protect快速找到保护代码并删除。

删除其中设置密码部分的代码：

最后，把修改过的“sheet1.xml”，拖回压缩文件覆盖，并把后缀名修改成“.xlsx”。

修改完之后打开看看是不是就可以修改了。

希望能够帮助大家，有问题可以留言！

多多转发、支持，更多实用小技巧可以查看往期小视频！

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

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

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

新密码输入框

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

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

4

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

.

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

.

5

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