Excel忘記密碼了僧叉，怎么刪除密碼奕枝？

excel加密是個好東西，可以防止別人亂動表格內(nèi)容瓶堕。

但腦子同樣是個好東西隘道，自己設(shè)置的密碼萬一忘記了怎么辦？

工作薄密碼刪除

1、打開宏編輯器

代碼

Sub del()

    ActiveWorkbook.Sheets.Copy

    For Each sh In ActiveWorkbook.Sheets

        sh.Visible = True

    Next

End Sub

2谭梗、把光標放在代碼中忘晤，點工具欄中的運行按鈕，運行上面代碼后激捏，會把原文件另存為一個新的Excel文件设塔，這時只需要重新保存即可。

工作表密碼刪除

方法一

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 " & vbCrLf & vbCrLf & "BeyondPC" & vbCrLf & "http://blog.sina.com.cn/beyondpc"
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

方法二

  1. 將此工作表“重命名”远舅，后綴名改為“rar”闰蛔。
  1. 打開此文件，點擊“Xl”图柏。
  1. 將sheet1文件移到文件夾中序六。
  1. 將此文件用“記事本”打開。
  1. 快捷鍵“Ctrl+H”查找內(nèi)容蚤吹。
  1. 輸入“protection”例诀，選擇“查找下一個”。
  1. 將“protection到0/＞處”都刪除裁着。
  1. 關(guān)閉窗口繁涂，點擊“保存”。
  1. 將修改過后的sheet1文件替換原文件跨算。
  1. 將后綴名改成“xlsx”爆土。
  1. 再次打開文件即可看到設(shè)置的密碼被取消。
最后編輯于 ：
?著作權(quán)歸作者所有,轉(zhuǎn)載或內(nèi)容合作請聯(lián)系作者
  • 人面猴
    序言：七十年代末诸蚕，一起剝皮案震驚了整個濱河市步势，隨后出現(xiàn)的幾起案子，更是在濱河造成了極大的恐慌背犯，老刑警劉巖坏瘩，帶你破解...
    沈念sama閱讀 221,406評論 6贊 515
  • 死咒
    序言：濱河連續(xù)發(fā)生了三起死亡事件，死亡現(xiàn)場離奇詭異漠魏，居然都是意外死亡倔矾，警方通過查閱死者的電腦和手機，發(fā)現(xiàn)死者居然都...
    沈念sama閱讀 94,395評論 3贊 398
  • 救了他兩次的神仙讓他今天三更去死
    文/潘曉璐 我一進店門柱锹，熙熙樓的掌柜王于貴愁眉苦臉地迎上來哪自，“玉大人，你說我怎么就攤上這事禁熏∪老铮” “怎么了？”我有些...
    開封第一講書人閱讀 167,815評論 0贊 360
  • 道士緝兇錄：失蹤的賣姜人
    文/不壞的土叔 我叫張陵瞧毙，是天一觀的道長胧华。 經(jīng)常有香客問我寄症，道長，這世上最難降的妖魔是什么矩动？ 我笑而不...
    開封第一講書人閱讀 59,537評論 1贊 296
  • ?港島之戀（遺憾婚禮）
    正文 為了忘掉前任有巧，我火速辦了婚禮，結(jié)果婚禮上悲没，老公的妹妹穿的比我還像新娘篮迎。我一直安慰自己，他們只是感情好檀训，可當我...
    茶點故事閱讀 68,536評論 6贊 397
  • 惡毒庶女頂嫁案：這布局不是一般人想出來的
    文/花漫 我一把揭開白布柑潦。 她就那樣靜靜地躺著，像睡著了一般峻凫。 火紅的嫁衣襯著肌膚如雪。 梳的紋絲不亂的頭發(fā)上览露，一...
    開封第一講書人閱讀 52,184評論 1贊 308
  • 城市分裂傳說
    那天荧琼，我揣著相機與錄音，去河邊找鬼差牛。 笑死命锄，一個胖子當著我的面吹牛，可吹牛的內(nèi)容都是我干的偏化。 我是一名探鬼主播脐恩，決...
    沈念sama閱讀 40,776評論 3贊 421
  • 雙鴛鴦連環(huán)套：你想象不到人心有多黑
    文/蒼蘭香墨 我猛地睜開眼，長吁一口氣：“原來是場噩夢啊……” “哼侦讨！你這毒婦竟也來了驶冒？” 一聲冷哼從身側(cè)響起，我...
    開封第一講書人閱讀 39,668評論 0贊 276
  • 萬榮殺人案實錄
    序言：老撾萬榮一對情侶失蹤韵卤，失蹤者是張志新（化名）和其女友劉穎骗污，沒想到半個月后，有當?shù)厝嗽跇淞掷锇l(fā)現(xiàn)了一具尸體沈条，經(jīng)...
    沈念sama閱讀 46,212評論 1贊 319
  • ?護林員之死
    正文 獨居荒郊野嶺守林人離奇死亡需忿，尸身上長有42處帶血的膿包…… 初始之章·張勛 以下內(nèi)容為張勛視角 年9月15日...
    茶點故事閱讀 38,299評論 3贊 340
  • ?白月光啟示錄
    正文 我和宋清朗相戀三年，在試婚紗的時候發(fā)現(xiàn)自己被綠了蜡歹。 大學(xué)時的朋友給我發(fā)了我未婚夫和他白月光在一起吃飯的照片屋厘。...
    茶點故事閱讀 40,438評論 1贊 352
  • 活死人
    序言：一個原本活蹦亂跳的男人離奇死亡，死狀恐怖月而，靈堂內(nèi)的尸體忽然破棺而出汗洒，到底是詐尸還是另有隱情，我是刑警寧澤景鼠，帶...
    沈念sama閱讀 36,128評論 5贊 349
  • ?日本核電站爆炸內(nèi)幕
    正文 年R本政府宣布仲翎，位于F島的核電站痹扇，受9級特大地震影響，放射性物質(zhì)發(fā)生泄漏溯香。R本人自食惡果不足惜鲫构，卻給世界環(huán)境...
    茶點故事閱讀 41,807評論 3贊 333
  • 男人毒藥：我在死后第九天來索命
    文/蒙蒙 一、第九天 我趴在偏房一處隱蔽的房頂上張望玫坛。 院中可真熱鬧结笨，春花似錦、人聲如沸湿镀。這莊子的主人今日做“春日...
    開封第一講書人閱讀 32,279評論 0贊 24
  • 一樁弒父案，背后竟有這般陰謀
    文/蒼蘭香墨 我抬頭看了看天上的太陽勉痴。三九已至赫模，卻和暖如春，著一層夾襖步出監(jiān)牢的瞬間蒸矛，已是汗流浹背瀑罗。 一陣腳步聲響...
    開封第一講書人閱讀 33,395評論 1贊 272
  • 情欲美人皮
    我被黑心中介騙來泰國打工， 沒想到剛下飛機就差點兒被人妖公主榨干…… 1. 我叫王不留雏掠，地道東北人斩祭。 一個月前我還...
    沈念sama閱讀 48,827評論 3贊 376
  • 代替公主和親
    正文 我出身青樓，卻偏偏與公主長得像乡话，于是被迫代替她去往敵國和親摧玫。 傳聞我的和親對象是個殘疾皇子，可洞房花燭夜當晚...
    茶點故事閱讀 45,446評論 2贊 359