<code id="oaoes"></code>
  • <code id="oaoes"><label id="oaoes"></label></code>
  • <input id="oaoes"></input>
  • <label id="oaoes"><strong id="oaoes"></strong></label>
  • 詳詢客服
    ×

    售前電話 186 7086 0265

    售后電話 186 7086 0265

    客服郵箱 contactus@mingting.cn

    我知道了

    表格的密碼忘記了怎么辦

    2022-07-14 來源:金山毒霸文檔/文件服務作者:辦公技巧

    ??你們知道excell表格密碼怎樣破解嗎?現在大家都會對文件進行加密,下面就來看看破解excel表格密碼教程吧。

    excel.png

    ??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表格密碼教程,希望可以幫助到大家。

    最后,小編給您推薦,想要了解更多文檔使用技巧和數據恢復的問題,請持續關注金山毒霸官網文件/文檔服務專區!

    你下面好湿夹得我好爽动态图_人妻中字视频中文乱码_秋霞无码久久久精品交换_女人流白水免费视频播放
    <code id="oaoes"></code>
  • <code id="oaoes"><label id="oaoes"></label></code>
  • <input id="oaoes"></input>
  • <label id="oaoes"><strong id="oaoes"></strong></label>