第一篇：破解EXCEL工作表保护密码的简单方法
破解EXCEL工作表保护密码的简单方法
你是否给excel文件设置了保护工作表密码，现在要撤消工作表保护，但密码却忘了，自己把锁在了门外，真尴尬呀！怎么办？下面的方法将轻松解决： 本人亲测，完全可以成功，但是本方法只用于解决自己的文件忘记密码，请勿进行违法行为，一切后果本人不负责任
1.打开你的受保护的文件
2.工具---宏----录制新宏---输入名字如:aa
3.停止录制(这样得到一个空宏)
4.工具---宏----宏,选aa,点编辑按钮
5.删除窗口中的所有字符,替换为下面的内容:(复制吧)
6.关闭编辑窗口
7.工具---宏-----宏,选AllInternalPasswords,运行,确定两次,等2分钟,再确定.OK,没有密码了！
内容如下：
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)
MsgBoxApplication.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
IfWinTag 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)
MsgBoxApplication.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文件；
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,运行,确定两次；
等一会,就会出现以下对话框：这就是Excel密码对应的原始密码(此密码和原先设置的密码都能打开此文档。如果是别人的文档，你又想恢复密码设置，就可以用此密码进行保护，他就能用他设置的密码打开，你可以试试，很有趣的。字母一定要大写)：
第三篇：破解幸福密码
《破解幸福密码》读后感
幸福是多么温馨、美丽的字眼，每一个人都在追求自己的幸福，可是我们很多时候真的不知道自己的幸福是什么？毕淑敏的《破解幸福密码》一书，犹如一道心灵鸡汤，字字句句能够走进我们的内心，让我们豁然开朗，明了今后的生活中、工作中能朝着自己的目标而努力，去追寻属于自己的幸福！
幸福是什么？幸福是人人心中的渴望，但每个人对幸福的理解和感受并不相同。从古到今，人类对于幸福的追求从来没有停止过。毫无疑问我们生活的目的就是获得幸福。那么，到底什么是幸福呢？
幸福不是金钱，幸福也不是高科技，幸福并不是单纯的生理反应，而是一种快乐和意义的结合体。的高速增长，让我们的物质生活大大地丰富了，但我们的幸福感却没有大大地丰富。作为一位资深心理学医师，毕淑敏多了一份作家的社会敏感。她从心理学、医学、人文科学角度，通过案例为我们详细解答如何破解心灵锁链——自卑、抑郁、焦虑、悲伤、死亡恐惧等这些潜藏在意识深层的创伤，思考与探索和谐平衡的心灵艺术。很多新颖的观点首次出现在书中。全书共六章，分别是《有意义的快乐就是幸福》、《放下包袱，持花而行》、《从自卑走向幸福》、《封印悲伤，再建自我》、《适当应激，缓解焦虑》、《幸福不是奢侈品》。作品以清新的文笔、温暖的哲思，书写幸福与冷暖，始终关注生命与死亡。毕淑敏说：“一个人如果心理不健康，是无法理会到幸福的。”她查了很多资料，给“幸福”下了一个定义：有意义加上长久的快乐。随着物质生活的日益丰富，人们心灵上却越发空虚、浮躁、急功近利。问题的根源在哪里？现代人普遍的幸福感缺失是为什么？对此，毕淑敏说，在温饱没有解决的时候，人们首先要解决温饱，不然就无以生存。当温饱向小康转变的时候，就是说吃东西这件事已经不会给你带来更多的幸福感的时候，你的快乐和幸福到哪里去找？最基本的途径就是要通过自我完成、自我创造的精神体验来提供源源不断的幸福，换个说法就是要找自己的人生目标。如果你不去解决这些，将无从谈到你的幸福与快乐。不是你吃饱了就一定幸福，也不是拥有万贯家财和功名成就就幸福。美国一项调查表明，乞丐和百万富翁幸福感的比例差不多。幸福是灵魂的工作，是灵魂的成就，而不是名利的成就，它是一种持续的、我们精神的追索。“人为什么活着？”这是一个我们看起来是那么宏大、虚无缥缈的问题，而实际上是那么扎扎实实、点点滴滴落实到我们人生的每一天当中。联系我们的工作，相比之下还不错，按道理人人都应该满足、应该幸福了，应该努力工作了。然而，又有几个人能够感到工作幸福，在工作中体会到快乐呢？摆在我们面前的当务之急。我想，至少要做到要加强学习教育。有一句话叫“知识改变命运、教育引领未来”。要科学合理地进行政治业务教育，要常抓常新。引导大家由“让我学”变“我要学”，在系统内形成浓厚的学习氛围，从而提高业务素质，提升精神境界。
我想，一个单位，如果人人都能体会到工作是一种幸福、忙碌是一种幸福，那么，这个单位一定是风清气正，充满生机和活力，各项工作定会风生水起，高歌猛进。
第四篇：Excel 2007中忘记保护工作表密码的解决方法
Excel 2007中忘记保护工作表密码的解决
作为一名该亚中国的网站编辑，我有责任向大家推荐一种Excel中忘记保护密码的解决办法，有了这个办法，也许能在你的工作中省去很多烦恼。
一个最近比较杯具的客户今天又出了一个比较杯具的问题，为了防止别人修改他的表格，在Excel中设置了保护工作表，之后又戏剧性地忘记了，求解决方案。
值得庆幸的是他使用了Office 2007，众所周知Office 2007的全新文档类型是基于XML的，所有的docx、xlsx、pptx等都是标准的zip文件；针对上面这个问题，可以采用如下方式解决：
1.将设置保护工作表密码的xlsx扩展名更改为zip。
2.直接在7z或者RAR中双击打开，找到xlworksheets文件夹下，找到设置保护工作表的工作表名，如Sheet1.3.将该XML文件单独解压，使用记事本打开，Ctrl+F找到"SheetProtection”字段，将
4.4.将保存后的XML添加到zip文件原始位置。
5.将ZIP文件改回xlsx，即可去除设置密码的工作表保护。
6.当你看了前面5点，应该已经豁然开朗，那赶快关注一下我们该亚中国吧，在这里，能让你只用鼠标，就畅游本地，
第五篇：《破解幸福密码》读后感
宫文
“我知道与生俱来的渺小和孤独感，将伴随每个人的一生。为了对抗这种孤独，人们聚集成群，发明了语言和文字，分享感受与心得。在茫茫空虚中与另外的心灵对接，以精神之水，相濡以沫。在天的尽头，人容易忧郁。在语言的尽头，人有希望重生。”这是毕淑敏的《破解幸福密码》一书中自序部分的一段文字。从读序开始就深深的吸引了我。这段文字使我找到了困惑已久的答案——一直以来，我常常会感到自己内心深处的自卑感。原来这种感觉是与生俱来的。
幸福是温馨、美丽的字眼，幸福是人人心中的渴望，“幸福有盲点，失去过的人才知其可贵”。“幸福感来源于目标感，有意义的快乐便是幸福。”这是这本书给幸福的注解。书中注重的是心理方面的感知，强调我们如何寻找幸福。书中写到的学会用荷尔蒙去寻找幸福，是最有趣的一部分，似乎是在谈论医学，但此医学非彼医学，它紧紧的与幸福联系在一起。“内啡肽这一强大的内分泌系统，就是我们得以感知幸福的物质基础。”
境由心造，烦恼是自己找的，幸福需要自己寻找，需要自己用心体会。古人云“知足者常乐”。要学会享受当下，着眼未来，做乐观的人。要刻苦学习，从学习中收获成长的幸福；要努力工作，在工作中享受职业幸福；要真诚待人，从交往中感受和谐幸福的人际关系。其实生活中相敬如宾、举案齐眉的温暖，执子之手、与子偕老的温馨，一方有难、八方支援的感动，无一不蕴藏着幸福的元素。学会“慢慢走，欣赏啊！”因为幸福并不是爬到了山顶的那一刻，而是贯穿在攀登的全过程。
其实教师原本就是是幸福的职业，因为这职业能够做到像毕淑敏说的“对他人有所帮助”，因此教师是一种距离“幸福”很近的职业。精心认真地备课，反复磨课的过程是很辛苦的，但是，当我们在课堂上感受到学生的喜爱与认同的时候，我们就不再感觉到劳累，而会感觉到幸福了。试想，一个单位，如果人人都能体会到工作是一种幸福、忙碌是一种幸福，那么，它一定是风清气正，充满生机和活力，各项工作定会风生水起，高歌猛进。
人常说，读一本好书就如同与道德高尚的人进行对话。读毕淑敏的《破解幸福密码》，如同饮用一道心灵鸡汤，字字句句渗入内心，让人豁然开朗，明了今后的生活中、工作中要朝着自己的目标而努力，去追寻属于自己的幸福！
点击咨询 