我们在工作当中经常需要下发一些表格模板，以便收集我们需要的数据，但是经常下发去的表格回来的时候经常被改的面目全非，小编今天就和大家一起学习，让他们乖乖的把表格按照我们下发的表格再发回来~

选中任意一列，点击鼠标右键，单击设置单元格格式，弹出【设置单元格格式】对话框，切换到【保护】选项卡，取消勾选的【锁定】按钮，点击【确定】返回表格中。

切换到【审阅】选项卡，在【更改】组中，单击【保护工作表】，弹出【保护工作表】对话框，输入密码后，点击【确定】按钮，系统会提醒再次输入密码，点击【确定】后返回表格中。此时【排序和筛选】功能变成灰色，其他人将不能再次进行排序啦，也就无法再更改顺序啦。同时，除了被取消锁定的那一列能够更改信息，其他的单元格都不再允许修改。

但是，有一些人对于表格比较熟悉，可以直接全选复制粘贴，形成新的表格，这种情况我们也可以将它避免。在【保护工作表】对话框中，取消勾选【选定锁定单元格】。其他列将不再有选中的权力，自然就不能够再进行复制和粘贴了。我们可以看到还有其他的权限，根据需要可以自行选定。

以上

希望大家在阅读之余，多加练习办公软件Office的使用，提高我们的工作效率，成为职场高效率的一员。我将在每周都进行内容更新，大家一起学习，共同进步。

插件地址，方便大家下载，链接: https://pan.baidu/s/1A6W1zlG2-VMFbW0ctdvNLQ

提取码: m1vm

双击打开名称为“vba6chs.msi”的文件，就开始安装。

安装完成就会出现“Install has completed successfully”的文字提示，表示安装已经成功完成，点击“OK”就可以了，安装窗口就关闭了。

1.打开文件

2.开发工具——录制新宏——宏名：随便输入如:aa——确定

3.停止录制

4.开发工具——宏——选aa——点编辑

5.删除窗口中所有东西——替换为下面的内容——复制

Option Explicit

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

6.粘贴上去后，不用保存直接关闭编辑窗口 （这一步不用复制）

7.工具——宏——宏——选AllInternalPasswords——运行——确定两次——OK——密码没了。

转载自百家号作者：灰姐说事

数据录入之后，美化表格是一个关键的部分，但如何做才能让你的表格更加美观呢？今天教大家5招。

1、快速对齐

数据对齐可以让表格更加的美观，在一般情况下，奉行的原则是：汉字字母列左对齐、数值列右对齐，对齐的方式比较简单，选中相应的区域，之后点击开始——对齐方式——左/右对齐。

小技巧推荐：

名字对齐

在工作中，你会遇到有的名字是两个的，有的是三个甚至四个，这时该如何对齐姓名？

选中姓名列，之后按Ctrl+1打开设置单元格格式对话框，点击对齐——水平对齐——分散对齐。

PS：名字排版对齐不是很美观，所以最简便的方式就是设置为左对齐。

表头居中

将表头设置为居中位置，一般情况下会先合并区域，之后再将文本内容设置居中，这样往往会影响后期表格的处理，其实可以直接选中区域内容，点击开始——对齐方式——跨列居中，这样就不会影响后期处理。

2、行列调整

一般我们会将一些编号和日期放在首列，如果遇到不是在首列的情况下，可以拖动调整。

选中列，之后鼠标变为是十字架后按住Shift键不放就可以移动位置。

3、边框设置

如果觉得Excel自带的网格线不是你想要的，这时可以通过视图，取消网格线，之后再次选中区域，点击开始——边框——其他边框，在相应的对话框中设置好后相应的直线样式和颜色，最后点击确定即可。

4、表格聚焦

在大量数据中容易看走眼，希望点击某个单元格，数据就会自动高亮，那要如何设置呢？

点击工作表标签，之后右击查看代码，然后输入如下代码即可。

Private Sub Worksheet_SelectionChange(ByValTarget As Range)Dim Rng As RangeSet Rng = Target.Range("a1") '选中目标单元格A1Cells.Interior.ColorIndex = 0 '清除所有背景色Rng.EntireColumn.Interior.ColorIndex = 37 '设置当前列颜色Rng.EntireRow.Interior.ColorIndex = 37 '设置当前行颜色End Sub

PS：这个代码会清除掉原先的单元格的颜色。

5、条形图用法

为了更好的查看数据，可以在表格中制作一个小图表，这时可以选中数据点击开始——条件格式——条形图。

怎么样，今天的技巧，你学会了吗？

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

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

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

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

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

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

（本文内容由百度知道网友shihoumacili贡献）

1、就以以下空白表格为例，现在来去掉这里的单元格线；

2、点击“视图”，会发现“网络线”选项已经被勾选了；

3、去掉“网络线”选项之前的勾选，网络线也就自然去掉了；

4、现在我们来查看表格时候已经一片空白找不到网络线了；

当然，在不该表原来网络线样式的前提下，全选sheet后底色设为白色，也可达到去除网络线的效果。

（本文内容由百度知道网友qznalzc贡献）

点击上方"高顿财税学院"订阅

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

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

开始工作：

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

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

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

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

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

来源：Excel精英培训

由高顿财税学院（ID：gaoduncaishui）整理发布

引用或转载，请注明以上信息

一份高质量的excel报表，不仅仅是他的实用性、便捷性，美观也是非常重要的一部分。

几个老外做的Excel表格，非常的漂亮：

再看看我们最常见的表格，难看的瞬间爆表

小编对老外表格好看的原因进行了归纳，下面我们按老外的思路改造我们的表格。

第1步：更换和弱化表格线，突出显示数据。

去掉表格背景网络线

除表头和表尾外，数据部分用浅灰色表格线。

第2步：设置隔行背景色，可以选浅灰或浅蓝色填充

填允一行后，用格式刷向下刷

稍增加行高

第3步：修改字体类型。

标题用黑体

数字用Arial

汉字用微软雅黑

合计行字体加粗

第4步：用条形图增加的年合计的可视性。

选取G5:G11 - 条件格式 - 数据条

完工！

如果表格不需要打印，我们还可以换另外一种风格：

表头深色背景，白色字体

中间用浅色填充，表格线用白色细线

表尾灰色背景

或

另：老外还有3个常用法宝（这里不再一一展示）

填充色用同一个色系，让数据和背景一体。

控件的使用方便筛选数据，又增强了商务感。

小图片的装饰。

02

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

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

开始工作：

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

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

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

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

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

来源：excel精英培训

　　撤销工作表保护即可，工作表保护状态下合并并居中按钮灰色。

　　以Excel2003为例，撤销工作表保护如下：

　　第一步，打开受保护的Excel2003表格文档（下图中的合并居中按钮是灰色的）；

　　第二步，点击“工具”→“保护”→“撤销工作表保护”，出现如下对话框：

　　第三步，输入密码，点击“确定”。

　　此时工作表保护已经取消，再次查看“合并居中按钮”时已经不是灰色的了，如下图所示：

注：

　　Excel2010取消工作表保护的方法是：“审阅”→“撤销工作表保护”，输入密码，点击“确定”。

（本文内容由百度知道网友yzwb我爱我家贡献）

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

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

开始工作：

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

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

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

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

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

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

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

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

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

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

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

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

‍

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