众所周知，数据是企业的机密，一旦泄露，后果相当严重。

可是情况那么多，保密工作应该怎么做？

1.对整个Excel文件加密，不知道密码就别想打开文件；

2.不对文件加密，但是对文件中的部分数据加密，知道密码才能查看、编辑、复制特定区域的数据；

3.不对文件加密，对部分数据加密，知道密码可以查看、复制数据，不能编辑数据；

4.不对文件加密，对部分数据加密，知道密码可以查看数据，不能编辑、复制数据。

1.对整个Excel文件加密

对整个Excel文件加密，大多数人都会。只需要在【文件】菜单中，选择【信息】选项卡，然后单击【保护工作簿】按钮，再选择【用密码进行加密】选项，如下图所示。

第2步：接下来就只需要设置密码即可。如下图所示，输入文档密码，单击【确定】。然后再次重复输入相同的密码，就可以完成密码设置了。

完成密码设置后，保存文档并关闭。此时再将文档发送给同事李二狗，二狗打开文档时会出现以下界面，要求输入正确密码才能打开文档。

2.为部分数据加密

如果不想为整个文档加密，但是要求知道密码的人才能查看文档中特定区域的数据，可以这样做：

第1步：如下图所示，需要设置知道密码的人才能查看A1到D26单元格中的商品销售数据。首先设置一个输入密码的提示，如在F1单元格中输入提示语，然后设置一下G1单元格的格式。

第2步：选中A1到D26单元格区域，单击【条件格式】菜单中的【新建规则】选项。

第3步：选择【使用公式确定要设置格式的单元格】选项，然后输入公式，再单击【格式】按钮。

在这个公式中，符号<>表示不等于，公式的意思是，如果g1单元格中的内容不等于123，则显示后面设置的格式。这里的123是密码。

第4步：设置数字格式为【自定义】格式，输入格式类型为英文的3个分号;;; 这个格式表示，隐藏选中单元格中的所有内容。

补充：如果不需要隐藏所有内容，只是需要隐藏数值类类型，则格式类型为;;;@

完成格式设置后，确定格式设置。回到表格中，效果如下图所示。此时G1单元格中的内容不等于密码123，即没有输入正确密码，所以表格中的内容被隐藏了。

在G1单元格中输入正确密码123，则所有内容都显示出来了，如下图所示。

在上面的操作中，有的人可能觉得不够完美。虽然不显示单元格内容，但是单元格的填充色等格式依然存在，不能给人造成表格中什么都没有的假象。那么在上面的第4步后，可以如下面2张图所示，隐藏所有边框，设置单元格的填充色为【无填充】。

这时再回到表格中，会发现单元格的格式也消失了，如果不输入正确密码，则什么内容也看不到。

3.为部分数据加密且不能修改数据

使用前面的加密方法，有一个局限性，在没有输入密码前，虽然看不到数据，但是依然可以对单元格进行操作，例如删除单元格中的数据。如果输入正确密码，那就更加可以删除、编辑数据了。如果只想让别人查看数据，而不能编辑数据，可以这样做：

第1步：选中G1单元格，打开【设置单元格格式】对话框，在【保护】选项卡下取消对单元格的【锁定】。因为如果不取消锁定，就无法在G1单元格中输入查看密码了。

第2步：选中A1到D26单元格区域，单击【审阅】选项卡下的【保护工作簿】按钮。

第3步：输入保护密码，如输入123，单击【确定】。然后在下一步中确认输入的密码即可。

此时在A1到D26单元格区域中，如果试图编辑修改数据，会弹出如下图所示的提示框。但是这些数据是可以选中并复制的。

4.为部分数据加密且不能复制、修改数据

如果想让知道密码的人只能查看数据，而不能复制、修改数据，可以这样做：

选中A1到D26单元格区域，单击【审阅】选项卡下的【保护工作簿】按钮，在【保护工作表】对话框中，取消选择【选定锁定单元格】选项，然后输入区域密码。

此时在G1单元格输入密码后，只能查看密码，完全不能选中A1到D26单元格的数据，所以也不能复制和修改了。

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

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

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

我们点击查看代码

或者点击查看代码

粘贴下面的代码

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

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

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

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

成果

方便你我他

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

又到月初要发工资的时候了，你是不是每天都不可自拔地沉浸在核对考勤算工资中呢？

员工的工资一直是职场不可言说的秘密，是轻易不能外泄的，所以HR对于员工的工资表要格外重视，为工资表设置个访问密码是非常有必要的！

今天小薪就给大家介绍两种为EXCEL加密的方法，以后大家以后就可以放心地存储各种机密文件啦～

一、为工作簿加密

当我们想要给一个EXCEL表设置「打开权限」时，就可以给EXCEL加个密码。

操作方法：文件——另存为——选项——打开权限密码

（动图演示）

二、为单元格加密

当我们希望实现「输入密码才能查看单元格内容」的功能时，就可以设置单元格的「条件格式」。

操作方法

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

2.选取要加密的列，条件格式 -突出显示单元格规则 -使用公式确定要设置格式的单元格

公式：=D$2<>mm!D$2

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

4.选取输入密码单元格 -设置单元格格式-保护，去掉锁定前的勾。

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

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

最后隐藏mm工作表。

（动图演示）

以上就是小薪为大家介绍的两种为EXCEL加密的方法啦！两招在手，机密无忧！赶紧去试试吧～

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

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

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

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

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

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

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

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

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

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

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

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

设置方法：

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

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

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

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

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

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

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

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

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

设置完成！

工作时，我们做出来的excel可能比较隐私，不能被随意外泄。或者有些表需要发给别人查看，但是又不希望可以被任意改动表格内的数据。这时该怎么办了？能不能给excel加密或者只允许对方修改指定的单元格内容。

给excel加密

当某个excel表只想给部分人凭密码查看时，你可以点击“文件-另存为-桌面”。

然后保持时点击保存按钮左边的“工具”按钮栏，选择“常规选项”。在常规选项对话框中输入“打开权限密码”然后确定。

这时会弹出如下对话框，要再输入一次“打开权限密码”即可。细心的朋友肯定看到了打开权限密码下面还有一个修改权限密码。如果你一并也设置了，这样就只有拿到密码的人才可以对excel进行修改了哦。操作方式类似，就不重复演示了。大家可以自己试试。

只允许修改部分内容

刚才顺带说到了修改权限，这里还有一种方法。打开表格，然后点击上方的菜单栏“审阅-保护工作表”。

然后在弹出的对话框如下，点击确定你就会发现整个表格都无法做修改了。

现在，再说下修改部分内容的设置方法：

首先，选中excel表，鼠标右键设置“单元格格式-保护”，然后不勾选“锁定”点击确定。

然后在菜单栏“审阅-保护工作表”，将“选定锁定单元格”前的勾选去掉，这样就只能修改部分内容了。

更多权限设置

也许你会说除了以上的权限设置，你可能希望有的人可以对你的数据进行查看、添加不能修改。有的只能查看表内的部分数据，这样更颗粒度的权限设置，建议你可以用表单大师来实现。将你的excel导入到表单大师创建的在线表单。然后在用户页面就可以给不同的人分配不同的权限，满足各个性化的需求了。操作也更简单~

下面是网站，可以免费登录了解下。买不了上当，入了就离不开哦~

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

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

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

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

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

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

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

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

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

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

③ok

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

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

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

四、允许修改部分单元格

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

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

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

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

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

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

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

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

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

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

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

在职场，我们经常遇到这样的情况，做了数据excel表格，因为涉及到了公司的内部机密，不想让别人查看文件内容，所以想对这个文件加密，但是不知道如何操作。

Excel作为办公软件，我们在使用中免不了会遇到这种情况，某些信息涉及公司内部机密，需要加密后给相关人员查看，那么今天就分享下Excel加密的两种办法。

解决办法一

操作步骤

点击“文件”选项卡，然后点击“信息”菜单；点击“保护工作簿”，在弹出的下拉菜单中选择“用密码进行加密”；在弹出的密码文本框中输入密码，然后点击确定；在弹出的“确认密码”对话框中输入刚才输入的密码，点击“确定”。

解决办法二

操作步骤

点击“文件”选项卡，然后点击“另存为”菜单；点击“浏览”，在弹出的另存为对话框中，点击“工具”按钮；选择“常规选项”，在“打开权限密码”中，输入要设置的密码，然后点击”确定”；在弹出的“确认密码”对话框中输入刚才输入的密码，点击“确定”。

如何取消加密

打开加密的文档，另存为的时候，依然点击工具选项，删除输入的密码，保存，即可取消加密哦，具体看动画。

百家号-【袁帅数据分析运营】运营者：袁帅，会展业信息化、数字化领域专家。新社汇平台联合创始人，永洪数据科学研究院MVP。认证数据分析师、网络营销师、SEM搜索引擎营销师、SEO工程师、中国电子商务职业经理人。畅销书《互联网销售宝典》联合出品人。

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

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

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

新密码输入框

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

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

4

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

.

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

.

5

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