思與王喬。乘云游八極。思與王喬。乘云游八極。凌厲五岳。忽行萬億。授我神藥。自生羽翼。呼吸太和。煉形易色。歌以言之。思行游八極。

----嵇康《代秋胡歌詩 其六》

在我們平時(shí)工作中，經(jīng)常會(huì)遇到有的Excel工作簿是設(shè)有密碼的，當(dāng)我們想修改里面的內(nèi)容的時(shí)候，是沒辦法修改的，這時(shí)候我們可能對(duì)這個(gè)表格就束手無策了。

尤其有時(shí)候比較郁悶的是，這個(gè)表格是自己設(shè)置的密碼，然后想不起來了，這時(shí)候就更尷尬了。。。

比如如下我們對(duì)Excel設(shè)置了保護(hù)密碼，可以看到Excel是不允許修改的了。

那遇到這樣的情況，我們要怎么做呢？

今天就教大家2種方法，教你破解Excel設(shè)置的密碼~~

方法一、 使用壓縮包的方法

1、首先我們對(duì)設(shè)置密碼的Excel名稱進(jìn)行重命名，把后綴名的.xlsx，改成RAR。

有的小伙伴講，我這個(gè)怎么看不到后綴名怎么辦呢？

這時(shí)我們只要打開【我的電腦】-【文件夾選項(xiàng)】-【查看】，把里面的【隱藏已知文件類型的擴(kuò)展名】前面的√取消掉，即可顯示了所有文件的后綴名了。

2、直接雙擊打開這個(gè).rar文件，可以看到如下的圖示

3、我們找到【xl】文件夾，即上圖的第3個(gè)文件夾，我們打開它，并找到worksheets文件夾，然后點(diǎn)開，可以看到幾個(gè)sheet名稱。

4、這時(shí)確認(rèn)好，設(shè)置密碼保護(hù)的工作表是哪個(gè)，然后雙擊打開它。

我們上面設(shè)置密碼的工作表是sheet1，所以我們打開sheet1，可以看到很多字符。

不用管它，我們只需要按Ctrl+F查找，查找內(nèi)容為：Protect，然后選中包含protect內(nèi)容的兩個(gè)符號(hào)（包含這兩個(gè)符號(hào)）之間的內(nèi)容，全部點(diǎn)擊delete刪除即可，如下圖所示。

5、刪除后，關(guān)閉文檔，這時(shí)會(huì)提示我們是否更新，我們選擇【是】。

6、更新完成后，關(guān)閉壓縮包，最后再把文件的后綴名，由.RAR格式更改為.xlsx格式，然后我們?cè)俅蜷_工作簿，即可以正常編輯了。

7、最后再給大家看下，整體的操作演示。

最后在給大家分享下原理：

在office 2007及以上版本中，Excel的后綴名變?yōu)?xlsx，其本質(zhì)是一個(gè)壓縮包，構(gòu)成Excel的所有源代碼都在這個(gè)壓縮包中，所以我們可以通過將其后綴更改為.rar，以壓縮包的形式提取出里面的代碼內(nèi)容，并加以修改。

如果是07版本以前的.xls文件，我們只要用office 2007版或以上版本，打開此Excel表格，并另存為.xlsx文件，再使用如上操作即可

注意：如果是你的Excel打開密碼，忘記了，基本破解無望了，所以大家一定要記好自己的Excel打開密碼。

方法二、 借用VBA實(shí)現(xiàn)

用上面的方法做的時(shí)候，大家應(yīng)該發(fā)現(xiàn)了，我們需要找到設(shè)置密碼保護(hù)的工作表，然后再把此工作表內(nèi)的protect內(nèi)容刪除，如果只有一個(gè)那還好操作，如果一個(gè)工作簿內(nèi)有多個(gè)工作表，那我們?cè)僖粋€(gè)個(gè)的去解除密碼保護(hù)就非常慢了。

那有沒有更好的方法呢？

這時(shí)就需要用到VBA了，簡(jiǎn)單兩步即解除所有工作表的密碼保護(hù)。

1、點(diǎn)擊菜單欄中的【開發(fā)工具】-【Visual Basic】,會(huì)彈出如下界面

2、再點(diǎn)擊VBA編輯框上面的【插入】-【模塊】，然后在插入的模塊內(nèi)輸入如下代碼：

Sub 密碼破解()Dim pj As WorksheetFor Each pj In Worksheetspj.Protect AllowFiltering:=Truepj.UnprotectNextEnd Sub

然后再點(diǎn)擊上的綠色三角符號(hào)，運(yùn)行按鈕，這樣就把所有工作表的密碼去除完畢了。

代碼的含義就是遍尋每個(gè)工作表，并對(duì)每個(gè)工作表取消保護(hù)。

知識(shí)拓展：

上面給大家分享的都是工作表設(shè)置保護(hù)密碼的破解，那如果是整個(gè)工作簿設(shè)置密碼保護(hù)，沒辦法插入或者刪除工作表，要怎么破解呢？

還是給大家分享個(gè)小代碼，代碼的輸入方法和上面類似：

Sub 工作簿密碼破解() ActiveWorkbook.Sheets.Copy For Each sh In ActiveWorkbook.Sheets sh.Visible = True NextEnd Sub

大家實(shí)際去試用下吧。

以上就是今天給大家分享的關(guān)于工作表，工作簿密碼破解的方法了，如果你遇到類似的問題，就正好可以試驗(yàn)下啦。

如果覺得文章對(duì)你有幫助的話，希望大家?guī)兔c(diǎn)贊加分享哦~，謝謝

本文由彩虹Excel原創(chuàng)，歡迎關(guān)注，帶你一起長(zhǎng)知識(shí)！

最后再說個(gè)題外話，支付寶集5福開始了，每年都要參加的幾個(gè)億的大項(xiàng)目，你參加了嗎？