第一篇：破解EXCEL工作表保護密碼的簡單方法

破解EXCEL工作表保護密碼的簡單方法

你是否給excel文件設(shè)置了保護工作表密碼，現(xiàn)在要撤消工作表保護，但密碼卻忘了，自己把鎖在了門外，真尷尬呀！怎么辦？下面的方法將輕松解決： 本人親測，完全可以成功，但是本方法只用于解決自己的文件忘記密碼，請勿進行違法行為，一切后果本人不負責任

1.打開你的受保護的文件

2.工具---宏----錄制新宏---輸入名字如:aa

3.停止錄制(這樣得到一個空宏)

4.工具---宏----宏,選aa,點編輯按鈕

5.刪除窗口中的所有字符,替換為下面的內(nèi)容:(復制吧)

6.關(guān)閉編輯窗口

7.工具---宏-----宏,選AllInternalPasswords,運行,確定兩次,等2分鐘,再確定.OK,沒有密碼了！

內(nèi)容如下：

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編制的報表、表格、程序等，在單元格中設(shè)置了公式、函數(shù)等，為了防止其他人修改您的設(shè)置或者防止您自己無意中修改，您可能會使用Excel的工作表保護功能，但時間久了保護密碼容易忘記，這該怎么辦？有時您從網(wǎng)上下載的Excel格式的小程序，您想修改，但是作者加了工作表保護密碼，怎么辦？您只要按照以下步驟操作，Excel工作表保護密碼瞬間即破！

1、打開您需要破解保護密碼的Excel文件；

2、依次點擊菜單欄上的工具---宏----錄制新宏，輸入宏名字如:aa；

3、停止錄制(這樣得到一個空宏)；

4、依次點擊菜單欄上的工具---宏----宏,選aa,點編輯按鈕；

5、刪除窗口中的所有字符(只有幾個),替換為下面的內(nèi)容；

從橫線下開始復制

----------------------------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、關(guān)閉編輯窗口；

7、依次點擊菜單欄上的工具---宏-----宏,選AllInternalPasswords,運行,確定兩次；

等一會,就會出現(xiàn)以下對話框：這就是Excel密碼對應(yīng)的原始密碼(此密碼和原先設(shè)置的密碼都能打開此文檔。如果是別人的文檔，你又想恢復密碼設(shè)置，就可以用此密碼進行保護，他就能用他設(shè)置的密碼打開，你可以試試，很有趣的。字母一定要大寫)：

第三篇：破解幸福密碼

《破解幸福密碼》讀后感

幸福是多么溫馨、美麗的字眼，每一個人都在追求自己的幸福，可是我們很多時候真的不知道自己的幸福是什么？畢淑敏的《破解幸福密碼》一書，猶如一道心靈雞湯，字字句句能夠走進我們的內(nèi)心，讓我們豁然開朗，明了今后的生活中、工作中能朝著自己的目標而努力，去追尋屬于自己的幸福！

幸福是什么？幸福是人人心中的渴望，但每個人對幸福的理解和感受并不相同。從古到今，人類對于幸福的追求從來沒有停止過。毫無疑問我們生活的目的就是獲得幸福。那么，到底什么是幸福呢？

幸福不是金錢，幸福也不是高科技，幸福并不是單純的生理反應(yīng)，而是一種快樂和意義的結(jié)合體。的高速增長，讓我們的物質(zhì)生活大大地豐富了，但我們的幸福感卻沒有大大地豐富。作為一位資深心理學醫(yī)師，畢淑敏多了一份作家的社會敏感。她從心理學、醫(yī)學、人文科學角度，通過案例為我們詳細解答如何破解心靈鎖鏈——自卑、抑郁、焦慮、悲傷、死亡恐懼等這些潛藏在意識深層的創(chuàng)傷，思考與探索和諧平衡的心靈藝術(shù)。很多新穎的觀點首次出現(xiàn)在書中。全書共六章，分別是《有意義的快樂就是幸福》、《放下包袱，持花而行》、《從自卑走向幸福》、《封印悲傷，再建自我》、《適當應(yīng)激，緩解焦慮》、《幸福不是奢侈品》。作品以清新的文筆、溫暖的哲思，書寫幸福與冷暖，始終關(guān)注生命與死亡。畢淑敏說：“一個人如果心理不健康，是無法理會到幸福的。”她查了很多資料，給“幸福”下了一個定義：有意義加上長久的快樂。隨著物質(zhì)生活的日益豐富，人們心靈上卻越發(fā)空虛、浮躁、急功近利。問題的根源在哪里？現(xiàn)代人普遍的幸福感缺失是為什么？對此，畢淑敏說，在溫飽沒有解決的時候，人們首先要解決溫飽，不然就無以生存。當溫飽向小康轉(zhuǎn)變的時候，就是說吃東西這件事已經(jīng)不會給你帶來更多的幸福感的時候，你的快樂和幸福到哪里去找？最基本的途徑就是要通過自我完成、自我創(chuàng)造的精神體驗來提供源源不斷的幸福，換個說法就是要找自己的人生目標。如果你不去解決這些，將無從談到你的幸福與快樂。不是你吃飽了就一定幸福，也不是擁有萬貫家財和功名成就就幸福。美國一項調(diào)查表明，乞丐和百萬富翁幸福感的比例差不多。幸福是靈魂的工作，是靈魂的成就，而不是名利的成就，它是一種持續(xù)的、我們精神的追索。“人為什么活著？”這是一個我們看起來是那么宏大、虛無縹緲的問題，而實際上是那么扎扎實實、點點滴滴落實到我們?nèi)松拿恳惶飚斨小Ｂ?lián)系我們的工作，相比之下還不錯，按道理人人都應(yīng)該滿足、應(yīng)該幸福了，應(yīng)該努力工作了。然而，又有幾個人能夠感到工作幸福，在工作中體會到快樂呢？擺在我們面前的當務(wù)之急。我想，至少要做到要加強學習教育。有一句話叫“知識改變命運、教育引領(lǐng)未來”。要科學合理地進行政治業(yè)務(wù)教育，要常抓常新。引導大家由“讓我學”變“我要學”，在系統(tǒng)內(nèi)形成濃厚的學習氛圍，從而提高業(yè)務(wù)素質(zhì)，提升精神境界。

我想，一個單位，如果人人都能體會到工作是一種幸福、忙碌是一種幸福，那么，這個單位一定是風清氣正，充滿生機和活力，各項工作定會風生水起，高歌猛進。

第四篇：Excel 2007中忘記保護工作表密碼的解決方法

Excel 2007中忘記保護工作表密碼的解決

作為一名該亞中國的網(wǎng)站編輯，我有責任向大家推薦一種Excel中忘記保護密碼的解決辦法，有了這個辦法，也許能在你的工作中省去很多煩惱。

一個最近比較杯具的客戶今天又出了一個比較杯具的問題，為了防止別人修改他的表格，在Excel中設(shè)置了保護工作表，之后又戲劇性地忘記了，求解決方案。

值得慶幸的是他使用了Office 2007，眾所周知Office 2007的全新文檔類型是基于XML的，所有的docx、xlsx、pptx等都是標準的zip文件；針對上面這個問題，可以采用如下方式解決：

1.將設(shè)置保護工作表密碼的xlsx擴展名更改為zip。

2.直接在7z或者RAR中雙擊打開，找到xlworksheets文件夾下，找到設(shè)置保護工作表的工作表名，如Sheet1.3.將該XML文件單獨解壓，使用記事本打開，Ctrl+F找到"SheetProtection”字段，將中所有內(nèi)容刪除，保存。

4.4.將保存后的XML添加到zip文件原始位置。

5.將ZIP文件改回xlsx，即可去除設(shè)置密碼的工作表保護。

6.當你看了前面5點，應(yīng)該已經(jīng)豁然開朗，那趕快關(guān)注一下我們該亞中國吧，在這里，能讓你只用鼠標，就暢游本地，

第五篇：《破解幸福密碼》讀后感

宮文

“我知道與生俱來的渺小和孤獨感，將伴隨每個人的一生。為了對抗這種孤獨，人們聚集成群，發(fā)明了語言和文字，分享感受與心得。在茫茫空虛中與另外的心靈對接，以精神之水，相濡以沫。在天的盡頭，人容易憂郁。在語言的盡頭，人有希望重生。”這是畢淑敏的《破解幸福密碼》一書中自序部分的一段文字。從讀序開始就深深的吸引了我。這段文字使我找到了困惑已久的答案——一直以來，我常常會感到自己內(nèi)心深處的自卑感。原來這種感覺是與生俱來的。

幸福是溫馨、美麗的字眼，幸福是人人心中的渴望，“幸福有盲點，失去過的人才知其可貴”。“幸福感來源于目標感，有意義的快樂便是幸福。”這是這本書給幸福的注解。書中注重的是心理方面的感知，強調(diào)我們?nèi)绾螌ふ倚腋！袑懙降膶W會用荷爾蒙去尋找幸福，是最有趣的一部分，似乎是在談?wù)撫t(yī)學，但此醫(yī)學非彼醫(yī)學，它緊緊的與幸福聯(lián)系在一起。“內(nèi)啡肽這一強大的內(nèi)分泌系統(tǒng)，就是我們得以感知幸福的物質(zhì)基礎(chǔ)。”

境由心造，煩惱是自己找的，幸福需要自己尋找，需要自己用心體會。古人云“知足者常樂”。要學會享受當下，著眼未來，做樂觀的人。要刻苦學習，從學習中收獲成長的幸福；要努力工作，在工作中享受職業(yè)幸福；要真誠待人，從交往中感受和諧幸福的人際關(guān)系。其實生活中相敬如賓、舉案齊眉的溫暖，執(zhí)子之手、與子偕老的溫馨，一方有難、八方支援的感動，無一不蘊藏著幸福的元素。學會“慢慢走，欣賞啊！”因為幸福并不是爬到了山頂?shù)哪且豢蹋秦灤┰谂实堑娜^程。

其實教師原本就是是幸福的職業(yè)，因為這職業(yè)能夠做到像畢淑敏說的“對他人有所幫助”，因此教師是一種距離“幸福”很近的職業(yè)。精心認真地備課，反復磨課的過程是很辛苦的，但是，當我們在課堂上感受到學生的喜愛與認同的時候，我們就不再感覺到勞累，而會感覺到幸福了。試想，一個單位，如果人人都能體會到工作是一種幸福、忙碌是一種幸福，那么，它一定是風清氣正，充滿生機和活力，各項工作定會風生水起，高歌猛進。

人常說，讀一本好書就如同與道德高尚的人進行對話。讀畢淑敏的《破解幸福密碼》，如同飲用一道心靈雞湯，字字句句滲入內(nèi)心，讓人豁然開朗，明了今后的生活中、工作中要朝著自己的目標而努力，去追尋屬于自己的幸福！