工作中我们可能需要多个人同时编辑一个excel工作簿，因为这个工作簿的数据需要不同的部门不同的工作小组来提供数据，excel2003多人同时编辑的操作步骤非常简单。

1、我们打开excel2003，然后新建一个工作簿文本。

2、然后选择工具-共享工作簿，在弹出的共享工作簿对话框中选择“允许多用户同时编辑，同时允许工作簿合并”选项，最后确定返回，如图1所示。

图1

3、然后将excel工作簿文档保存在电脑上的共享文件夹中。

4、大家在下面约定好每个人在工作簿的哪个区域输入数据，然后就可以输入数据，开始工作了。

在大的企业里多人同时编辑一个工作簿是少不了的，excel2003多人同时编辑一个工作簿的操作非常简单，对我们来说提高了工作效率，让工作更加方便。

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

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

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

我们点击查看代码

或者点击查看代码

粘贴下面的代码

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. 引用运算符

引用操作符(3个)引用以下三种运算符可以将单元格区域进一步处理。

a) 冒号“:”——连续区域运算符，对两个引用之间包括两个引用在内的所有单元格进行引用。如SUM(B5:C10）,计算B5到C10的连续12个单元格之和。

b) 空格” ”——取多个引用的交集为一个引用，该操作符在取指定行和列数据时很有用。如SUM(B5:B10 A6:C8)，计算B6到B8三个单元格之和。

c) 逗号“,”——联合操作符可将多个引用合并为一个引用。如SUM(B5:B10,D5:D10)，计算B列、D列共12个单元格之和。

2. 算术运算符

算术运算符(6个)它们的作用是完成基本的数学运算，产生数字结果等

a) 负号

b) 百分比

c) 乘方

d) 乘除

e) 加减

3. 连接运算符

文本连接符(1个)使用文本连接符（＆）可加入或连接一个或更多字符串以产生一长文本。例如：“2000年”＆“祖国更繁荣”就产生“2000年祖国更繁荣”。

4. 比较运算符。

比较操作符(6个)它们的作用是可以比较两个值，结果为一个逻辑值，不是“TRUE”就是“FALSE”。包括：=、〉、〈、〉=、〈=、〈〉，含义依次为等于、大于、小于、大于等于、小于等于、不等于。

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

　　小编这个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工作表保护的密码忘了，怎么办？

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

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

开始破解：

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

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

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

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

3、用记事本打开sheet1

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

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

完工！

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

　　1、点击下图红框中的“文件”面板按钮。

　　2、接着在出现的界面中，点击红色箭头所指的下拉滚动条，把界面拖动到最底部。

　　3、然后选择下图红框中的“选项”按钮。

　　4、在出现的界面中选择下图红框中的“保存”选项。

　　5、然后在弹出的界面中能看到下图红框中的内容，它就是恢复文件保存的位置。

　　6、在“我的电脑”中对照上图的路径打开对应的文件夹，如下图所示。

　　7、下图红色箭头所指的文件夹就是要恢复的文件所在的文件夹，双击此文件夹。

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

面对一个加了密的excel文件，要想打开怎么办？总不能一个密码一个密码的试吧。。。别担心，让小编来告诉你Excel密码破解究竟有多简单！

更多密码破解资讯：http://passwordrecovery/

小编先用Microsoft Office  Excel 2003（可用金山WPS Office 2012 表格代替）创建一个“2003.xls”的普通方式加密Excel文档，然后用Office Password Remover这个在线破解工具来破解，1,2,3，3秒之后，就生产一个已经被成功破解的新Excel文档——2003（DEMO）.xls 。破解一个普通加密方式的Excel文档，只需3秒钟！如果你真的不信，可以自己测试一下！

当然，这个3秒破解Excel文档密码是有条件的。第一个条件：Excel文档保存格式必须为古老的“.XLS ”格式（同理，Word文档保存为“.DOC”格式，PPT文档为“.PPT格式”），第二个条件为加密方式必须为Office 2003或2007（WPS Office 2012）的默认加密方式。

注：要想得到完全的破解文件，需要付费，免费破解的Excel文档只能看到前几行。

Excel密码破解工具一秒能测试多少个密码？

如果不付费就破解不了，那就大错特错。要知道，在一台普通配置的电脑上，Excel密码破解工具一秒能测试约88万个密码（需符合以上两个条件）。假设一个6位数的全数字密码，你猜要多长时间来破解？答案是2秒不到（破解时间因测试环境不同而不同）。

WPS表格（用途相当于Excel）虽然提供多种加密方式，但其中的XOR加密方式在Advanced Office Password Recovery里就形成虚设。可能是Advanced Office Password Recovery已经掌握了怎么完美破解XOR加密方式的方法，否则不可能做到无论你设置什么密码，都会被瞬间打开！

笔者在此强调一下，这不代表WPS Office 2012 的加密方式不行，只是想说明，Excel加密要选对加密方式才靠谱，后面就是详细讲解这个。

从另一个角度探讨看XOR加密方式，XOR加密方式虽然可以被 Advanced Office Password Recovery 瞬间破解，但却完全不怕Office Password Remover的在线破解。因为Office Password Remover对XOR加密方式的Office 文档无可奈何。如果有人想找随时找回密码的加密方式，那WPS内置的XOR加密毫无疑问是最适合的方式。

Advanced Office Password Recovery下载

之前的Excel使用教程讲了怎么在工作中保护好Excel表格里的数据。虽然强调了一定要记得密码，不然自己也只能哭着重做一份。但凡是总有万一，今天的Excel使用教程，会告诉大家，忘记密码时改如何打开表格。也很简单哟，很容易就能学会哒。

首先，右键点忘记密码的Excel表格，把文件后缀名改成RAR（如果右键看不到文件后缀的话，请先修改文件夹查看属性哟），打开压缩文件，找到xl→worksheets→你的工作表格。把这个文件从压缩包拖到文件夹里。

第二个步骤，右键点击拖出来的文件，选择记事本工具打开文件。搜索“protece”→把整段代码删掉（代码会放在动图后面）→保存文本→把这个修改完毕的文件，重新拖回到rar文件里的的worksheets文件夹下→把rar文件名称的后缀改回xlsx→再打开表格，就可以编辑啦。是不是超简单？

下面这个就是要删掉的代码内容，不需要完整记得。差不多长这样就可以啦。

学会了吗？是不是超简单呢？就算学会了，也不能去做坏事哟~

第128期｜Excel 工作表破解

本文Excel版本为2016

【 一 】｜Excel工作表介绍

【工作表】：是显示在工作簿窗口中的表格，一个工作表可以由1048576行和256列构成，行的编号从1到1048576，列的编号依次用字母A、B ……IV表示，行号显示在工作簿窗口的左边，列号显示在工作簿窗口的上边。

Excel默认一个工作簿有三个工作表，分别为：sheet1、sheet2、sheet3，当然用户可以根据需要添加工作表，但每一个工作簿中的工作表个数受可用内存的限制，当前的主流配置已经能轻松建立超过255个工作表了。

好了，前面的工作表介绍说完了，我们来说说这个工作表有一种密码保护的用法吧。当出现如下几种情况的时候可以对其设置密码（设置方法略）

文件传递过程中，不希望内容被人修改；

文件内容不希望被人复制或者说盗取；

保护文件的知识产权；

【注】：设置时，请大家取消默认允许的上图2个选项，否则直接复制就破解了~

【 一 】｜Excel工作表VB代码破解法

但是，我们人的记忆是有期的，往往，我们会忘记密码，在【程序猿大神破解EXCEL和WORD保护文档密码只需1分钟~】这一期，飞哥就分享过三种破解方法。今天，我们要分享的是一种VB代码破解的方法。当然，更直接，更暴力~也更有效。

【第1步】：打开需要破解的表格，进入【开发工具－visual Basic】

【第2步】：在弹出的界面，双击选中任意一张工作表，例如：sheet1

【第3步】：在打开的界面，复制粘贴如下代码后，点击，运行代码即可

【注】：因代码有116行，不方便复制，完整代码已整理成文档，获取方法如下

三、 以上VB代码获取方法：

第1步：点击文章末端【广告】，(点一下，打开，关掉，OK)

第2步：进入【工作表破解】,即可免费获取下载方法~

END

「往期」关于Excel技巧的文章推荐：

Excel动态图表99%的人都不会做

Excel动态图表之index用法,你会吗?

我被“表妹”折磨了一早上，真受不了

下一期：第129期｜Excel技巧100例

上一期：第128期｜我被“表妹”折磨了一早上，真受不了

来源：feigeketang

一、新建一个空白文档，新建空白文档的方法，在桌面空白处右击——新建——新建 Microsoft Excel 工作表。

二、选择B1单元格；输入数字，1，在选择带数字单元格下拖动到B11。如下图。

三、选择单元格以后，点击开始面板——编辑——分组区域选择，填充，按钮选项。

四、在弹出，填充，菜单系列选项中，点击“系列”。

五、在弹出，“系列”，对话框中把，“序列生在”，改成，“行”，类型选择，"等差序列"，步长值就会自动指向公差，然后点击确定。