1. 首頁 > 生活百科 > >

Excel有密碼怎么破解？Excel密碼破解方法介紹

小知識

Excel密碼破解方法有很多，最常見的便是使用密碼字典去解讀，解讀成功即為破解，而本次使用的是宏命令，若是你還在一籌莫展，可以看看下文中的方法，因為涉及Excel重要文件，若是別人的東西，請獲取授權！
Excel密碼破解方法介紹：
1、進入加密的 Excel 用快捷命令Alt+F8 打開宏命令 窗口 。

Excel有密碼怎么破解？Excel密碼破解方法介紹

文章插圖

2、在宏名一欄中 輸入宏的名字 隨意健入即可 。
Excel有密碼怎么破解？Excel密碼破解方法介紹

文章插圖

3、輸入完宏名后 創建的按鈕就亮了 點擊創建 我們就可以來到 新的界面了 。
Excel有密碼怎么破解？Excel密碼破解方法介紹

文章插圖

4、將編輯框內的Sub knife( )End Sub刪除 將下列代碼 復制 上去 。
    01Option Explicit
    02Public Sub AllInternalPasswords()
    03' Breaks worksheet and workbook structure passwords. Bob McCormiCK
    04' probably originator of base code algorithm modified for coverage
    05' of workbook structure / Windows passwords and for multiple passwords
    06'
    07' Norman Harker and JE McGimpsey 27-Dec-2002 (Version 1.1)
    08' Modified 2003-Apr-04 by JEM: All msgs to constants, and
    09' eliminate one Exit Sub (Version 1.1.1)
    10' Reveals hashed passwords NOT original passwords
    11Const DBLSPACE As String = vbNewLine & vbNewLine
    12Const AUTHORS As String = DBLSPACE & vbNewLine & _
    13"Adapted from Bob McCormick base code by" & _
    14"Norman Harker and JE McGimpsey"
    15Const HEADER As String = "AllInternalPasswords User Message"
    16Const VERSION As String = DBLSPACE & "Version 1.1.1 2003-Apr-04"
    17Const REPBACK As String = DBLSPACE & "Please report failure " & _
    18"to the microsoft.public.excel.programming newsgroup."
    19Const ALLCLEAR As String = DBLSPACE & "The workbook should " & _
    20"now be free of all password protection, so make sure you:" & _
    21DBLSPACE & "SAVE IT NOW!" & DBLSPACE & "and also" & _
    22DBLSPACE & "BACKUP!, BACKUP!!, BACKUP!!!" & _
    23DBLSPACE & "Also, remember that the password was " & _
    24"put there for a reason. Don't stuff up crucial formulas " & _
    25"or data." & DBLSPACE & "Access and use of some data " & _
    26"may be an offense. If in doubt, don't."
    27Const MSGNOPWORDS1 As String = "There were no passwords on " & _
    28"sheets, or workbook structure or windows." & AUTHORS & VERSION
    29Const MSGNOPWORDS2 As String = "There was no protection to " & _
    30"workbook structure or windows." & DBLSPACE & _
    31"Proceeding to unprotect sheets." & AUTHORS & VERSION
    32Const MSGTAKETIME As String = "After pressing OK button this " & _
    33"will take some time." & DBLSPACE & "Amount of time " & _
    34"depends on how many different passwords, the " & _
    35"passwords, and your computer's specification." & DBLSPACE & _
    36"Just be patient! Make me a coffee!" & AUTHORS & VERSION
    37Const MSGPWORDFOUND1 As String = "You had a Worksheet " & _
    38"Structure or Windows Password set." & DBLSPACE & _
    39"The password found was: " & DBLSPACE & "$$" & DBLSPACE & _
    40"Note it down for potential future use in other workbooks by " & _
    41"the same person who set this password." & DBLSPACE & _
    42"Now to check and clear other passwords." & AUTHORS & VERSION
    43Const MSGPWORDFOUND2 As String = "You had a Worksheet " & _
    44"password set." & DBLSPACE & "The password found was: " & _
    45DBLSPACE & "$$" & DBLSPACE & "Note it down for potential " & _
    46"future use in other workbooks by same person who " & _
    47"set this password." & DBLSPACE & "Now to check and clear " & _
    48"other passwords." & AUTHORS & VERSION
    49Const MSGONLYONE As String = "Only structure / windows " & _
    50"protected with the password that was just found." & _
    51ALLCLEAR & AUTHORS & VERSION & REPBACK

    推薦閱讀