第一篇：撤銷工作表保護(hù)密碼[本站推薦]

撤銷工作表保護(hù)密碼”的破解并獲取原始密碼

在日常工作中，您是否遇到過這樣的情況：您用Excel編制的報(bào)表、表格、程序等，在單元格中設(shè)置了公式、函數(shù)等，為了防止其他人修改您的設(shè)置或者防止您自己無意中修改，您可能會(huì)使用Excel的工作表保護(hù)功能，但時(shí)間久了保護(hù)密碼容易忘記，這該怎么辦？有時(shí)您從網(wǎng)上下載的Excel格式的小程序，您想修改，但是作者加了工作表保護(hù)密碼，怎么辦？您只要按照以下步驟操作，Excel工作表保護(hù)密碼瞬間即破！

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

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

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

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

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

從橫線下開始復(fù)制

----------------------------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---------------------------復(fù)制到橫線以上

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

7、依次點(diǎn)擊菜單欄上的工具---宏-----宏,選AllInternalPasswords,運(yùn)行,確定兩次；

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

第二篇：破解EXCEL工作表保護(hù)密碼的簡(jiǎn)單方法

破解EXCEL工作表保護(hù)密碼的簡(jiǎn)單方法

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

1.打開你的受保護(hù)的文件

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

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

4.工具---宏----宏,選aa,點(diǎn)編輯按鈕

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

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

7.工具---宏-----宏,選AllInternalPasswords,運(yùn)行,確定兩次,等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 2007中忘記保護(hù)工作表密碼的解決方法

Excel 2007中忘記保護(hù)工作表密碼的解決

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

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

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

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

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

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

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

6.當(dāng)你看了前面5點(diǎn)，應(yīng)該已經(jīng)豁然開朗，那趕快關(guān)注一下我們?cè)搧喼袊?guó)吧，在這里，能讓你只用鼠標(biāo)，就暢游本地，

第四篇：刪除EXCEL工作表密碼的宏代碼

Public Sub 刪除工作表密碼()

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

第五篇：機(jī)要密碼工作演講稿

機(jī)要密碼工作演講稿-忠誠(chéng)的隊(duì)伍 光輝的歷程

在血雨腥風(fēng)的戰(zhàn)爭(zhēng)年代，在風(fēng)和日麗的和平時(shí)光，在黃沙飛舞的大漠深處，在霓虹閃爍的繁華都市，在黨和政府的核心機(jī)構(gòu)，在人民生活的尋常地帶，有一支隊(duì)伍，一支神秘而忠誠(chéng)的隊(duì)伍，為了責(zé)任，為了使命，為了祖國(guó)的前行，默默奉獻(xiàn)著、孜孜追求著、屹屹堅(jiān)持著，這就是我們光榮而忠貞的密碼工作者。

這里不是戰(zhàn)場(chǎng)，卻始終處于硝煙彌漫的中心，這里沒有血戰(zhàn)，卻始終進(jìn)行著充滿智慧的較量，這里看似平靜，卻始終跳動(dòng)著歷史前行的脈搏。

xx年來，密碼工作從無到有，從草創(chuàng)到科學(xué)從傳統(tǒng)到現(xiàn)代，走出了一條中國(guó)特色的發(fā)展道路。在革命斗爭(zhēng)中，在政權(quán)建設(shè)中，在改革開放中，在社會(huì)發(fā)展中，作出了不可替代的特殊貢獻(xiàn)，建立了彪炳史冊(cè)的卓著功勛。

xx年來，密碼工作從早期的無線電臺(tái)到電話機(jī)、傳真機(jī)、計(jì)算機(jī)、網(wǎng)絡(luò)通訊，經(jīng)歷了手工、機(jī)械化、電子化、網(wǎng)絡(luò)化的發(fā)展階段，適應(yīng)了不同時(shí)代、不同領(lǐng)域、不同對(duì)象的應(yīng)用需求，形成了新的密碼科技發(fā)展戰(zhàn)略布局。