Excel“工程工不可查看”及VBA工程密碼破解

1、Excel“工程不可查看”及VBA工程密碼破解。Excel“工程不可查看”及VBA工程密碼破解。PAGE5Excel“工程不可查看”及VBA工程密碼破解。一、Excel“工程不可查看”兩種實(shí)現(xiàn)方法及破解關(guān)于Excel宏編程中，要用到一些技巧，如破解Excel宏加密。 今天我對一個(gè)Excel宏編程中進(jìn)行日期限制進(jìn)行了破解。方法一（共用級(jí)鎖定）1、先對excel檔進(jìn)行一般的vbaproject”工程密碼保護(hù)。2、打開要保護(hù)的檔，選擇工具保護(hù)保護(hù)并共用活頁簿以追蹤修訂方式共用-輸入密碼-保存檔。 完成後，當(dāng)你打開“vbaproject”工程屬性時(shí)，就將會(huì)提示“工程不可看！”方法二（推薦，破壞型鎖定）

2、用16進(jìn)制編輯工具，如winhex、ultraedit-32（可到此下載）等，再歷害點(diǎn)的人完全可以用debug命令來做用以上軟體打開excel檔，查找定位以下地方id=00000000-0000-0000-00000 注實(shí)際顯示不會(huì)全部為0此時(shí)，你只要將其中的位元組隨便修改一下即可。保存再打開，就會(huì)發(fā)現(xiàn)大功告成！當(dāng)然，在修改前最好做好你的文檔備份。至於恢復(fù)只要將改動(dòng)過的地方還原即可（只要你記住了呵呵）。破解方面,有網(wǎng)友說將CMG=，DPB=和GC=后的=替換為.也可以的，我已測試過的確可以，這樣更省事點(diǎn)。用16進(jìn)制編輯工具，如winhex、ultraedit-32打開文件，查找ID=, 或到文

3、件尾查看，找到即可。改其中的任意一位,存盤就可達(dá)到目的，注意：留有備份文件二、EXCEL宏保護(hù)密碼破解-VBA工程密碼破解在辦公中我們?？吹皆S多用宏(VBA)編寫的EXCEL表格,而這些表格就如同一個(gè)數(shù)據(jù)庫,我們可以選取或查詢很多的數(shù)據(jù),一般的這些數(shù)據(jù)是存放在一個(gè)隱藏的工作表中的,那么要如何顯示這個(gè)隱藏的工作表呢?我們可以打開宏編輯器(ALT+F11),再安CTRL+R打開專案,這時(shí)彈出窗會(huì)有所有的這個(gè)EXCEL的工用表,這時(shí)你就可以看看那些是被隱藏的了,很多時(shí)候打開是需要密碼的,用以下方法解密后,再將解密后文件打開,依同樣方法在工作表標(biāo)簽中右鍵檢視程式碼復(fù)制以下代碼按F8執(zhí)行Private

4、Sub CommandButton1_Click()Worksheets(這里為你要顯示的工作表名稱).Visible = TrueEnd Sub關(guān)于破解EXCEL VBA工程密碼的方法,以下代碼非常有效,首先建一新EXCEL文件,在工作表標(biāo)簽處右點(diǎn)檢視程式碼復(fù)制以下代碼按F8執(zhí)行 在彈出窗中選你要你破解工程密碼的EXCEL文件 再按F5執(zhí)行即可.Private Sub VBAPassword()你要解保護(hù)的Excel文件路徑Filename = (Excel文件（*.xls & *.xla & *.xlt）,*.xls;*.xla;*.xlt, , VBA破解)If Dir(Filename

5、) = ThenMsgBox 沒找到相關(guān)文件,清重新設(shè)置。Exit SubElseFileCopy Filename, Filename & .bak 備份文件。End IfDim GetData As String * 5Open Filename For Binary As #1Dim CMGs As LongDim DPBo As LongFor i = 1 To LOF(1)Get #1, i, GetDataIf GetData = CMG= Then CMGs = iIf GetData = Host Then DPBo = i - 2: Exit ForNextIf CMGs =

6、 0 ThenMsgBox 請先對VBA編碼設(shè)置一個(gè)保護(hù)密碼., 32, 提示Exit SubEnd IfIf Protect = False ThenDim St As String * 2Dim s20 As String * 1取得一個(gè)0D0A十六進(jìn)制字串Get #1, CMGs - 2, St取得一個(gè)20十六制字串Get #1, DPBo + 16, s20替換加密部份機(jī)碼For i = CMGs To DPBo Step 2Put #1, i, StNext加入不配對符號(hào)If (DPBo - CMGs) Mod 2 0 ThenPut #1, DPBo + 1, s20End IfM

7、sgBox 文件解密成功, 32, 提示End IfClose #1End Sub如果上面代碼不能運(yùn)行或出錯(cuò),請用以下代碼重試.Private Sub VBAPassword()你要解保護(hù)的Excel文件路徑Filename = (Excel文件（*.xls & *.xla & *.xlt）,*.xls;*.xla;*.xlt, , VBA破解)If Dir(Filename) = ThenMsgBox 沒找到相關(guān)文件,清重新設(shè)置。Exit SubElseFileCopy Filename, Filename & .bak 備份文件。End IfDim GetData As String *

8、5Open Filename For Binary As #1Dim CMGs As LongDim DPBo As LongFor i = 1 To LOF(1)Get #1, i, GetDataIf GetData = CMG= Then CMGs = iIf GetData = Host Then DPBo = i - 2: Exit ForNextIf CMGs = 0 ThenMsgBox 請先對VBA編碼設(shè)置一個(gè)保護(hù)密碼., 32, 提示Exit SubEnd IfDim St As String * 2Dim s20 As String * 1取得一個(gè)0D0A十六進(jìn)制字串Get #1, CMGs - 2, St取得一個(gè)20十六制字串Get #1, DPBo + 16, s20替換加密部份機(jī)碼For i = CMGs