2. 程式人生 > >Excel 2013 工作表保護密碼破解

Excel 2013 工作表保護密碼破解

阿新 • • 發佈：2019-01-10

溫馨提示： 此方法不適用於 一開啟就要輸入密碼 才能檢視的表格

之前整理了下 Excel 2013 的工作表保護密碼破解辦法

今天無意中又用到了，就分享出來吧

Tips：如果你想徹底加密你的工作表，把它壓縮到RAR/7z壓縮包裡，設個16位的密碼，就基本破解不了了。

QQ截圖20150407222247.png

今天我叫baojun弄了個遊戲物品價格表發給我，

[遲來的愚人節]：不知怎麼他給我弄加密了，還叫我破解密碼= =

那好吧，反正有空，咱們就來破解下 233

QQ截圖20150407222729.png

1.對著工具欄空白的地方右鍵，選“自定義功能區(R)...” 

QQ截圖20150407222804.png

2.找到“開發工具”勾選並確定

QQ截圖20150407222831.png

3.你會發現工具欄就多了欄“開發工具”，進去找到“錄製巨集”

QQ截圖20150407222844.png

4.記得把它建立在“個人巨集工作簿”=-=

QQ截圖20150407222858.png

5.建立好後什麼都不用動，直接“停止錄製”

QQ截圖20150407222912.png

6.點選 “Visual Basic”

QQ截圖20150407223110.png

7.在左邊導航欄找到“模組一”，並雙擊開啟

QQ截圖20150407223250.png

8.刪掉裡面所有內容，把破解程式碼（結尾給出）替換進去，並儲存（切記）

QQ截圖20150407223312.png

9.關掉剛剛的“Visual Basic”視窗，點選“巨集”

QQ截圖20150407223341.png

10.點選剛剛匯入的破解巨集，並執行（打開了多個工作簿可在位置選擇需要的）

QQ截圖20150407223353.png

11.開始破解，“確定”

QQ截圖20150407223400.png

12.表一密碼已破解

QQ截圖20150407223414.png

13.表二密碼已破解

QQ截圖20150407223422.png

14.至此，密碼已經全部破解完成

QQ截圖20150407223514.png

內容已經可以正常編輯了，教程結束

Tips：破解中會卡段時間（Excel 無響應）此屬正常現象，稍等一下即可

附：Excel 工作表保護密碼破解巨集 原始碼

BASIC 
Public Sub 工作表保護密碼破解()
Const DBLSPACE As String = vbNewLine & vbNewLine
Const AUTHORS As String = DBLSPACE & vbNewLine & _
"作者:McCormick   JE McGimpsey "
Const HEADER As String = "工作表保護密碼破解"
Const VERSION As String
 
 = DBLSPACE & "版本 Version 1.1.1"
Const REPBACK As String = DBLSPACE & ""
Const ZHENGLI As String = DBLSPACE & "                        FGHRSH 整理"
Const ALLCLEAR As String = DBLSPACE & "該工作簿中的工作表密碼保護已全部解除!!" & DBLSPACE & "請記得另儲存" _
& DBLSPACE & "注意：不要用在不當地方，要尊重他人的勞動成果！"
Const MSGNOPWORDS1 As String = "該檔案工作表中沒有加密"
Const MSGNOPWORDS2 As String = "該檔案工作表中沒有加密2"
Const MSGTAKETIME As String = "解密需花費一定時間,請耐心等候!" & DBLSPACE & "按確定開始破解!"
Const MSGPWORDFOUND1 As String = "密碼重新組合為:" & DBLSPACE & "$$" & DBLSPACE & _
"如果該檔案工作表有不同密碼,將搜尋下一組密碼並修改清除"
Const MSGPWORDFOUND2 As String = "密碼重新組合為:" & DBLSPACE & "$$" & DBLSPACE & _
"如果該檔案工作表有不同密碼,將搜尋下一組密碼並解除"
Const MSGONLYONE As String = "確保為唯一的?"
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
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 
            
  

           

              
              

            

            
相關推薦

			   
            
            
            
 

    


    
    
Excel 2013 工作表保護密碼破解

     
 
                

溫馨提示： 此方法不適用於 一開啟就要輸入密碼 才能檢視的表格


之前整理了下 Excel 2013 的工作表保護密碼破解辦法

今天無意中又用到了，就分享出來吧

Tips：如果你想徹底加密你的工作表，把它壓縮到RAR/7z壓縮包裡，設個16位的密碼，就基本破解不了了 



  
 

    


    
    
Excel—“撤銷工作表保護密碼”的破解並獲取原始密碼

     
 
							
							
							在日常工作中，您是否遇到過這樣的情況：您用Excel編制的報表、表格、程式等，在單元格中設定了公式、函式等，為了防止其他人修改您的設定或者防止您自己無意中修改，您可能會使用Excel的工作表保護功能，但時間久了保護密碼容易忘記，這該怎麼辦？有時您從網上下載的Ex 



  
 

    


    
    
EXCEL工作表保護密碼破解 巨集撤銷保護圖文教程(轉貼)

     
 Public Sub 工作表保護密碼破解()
Const DBLSPACE As String = vbNewLine & vbNewLine
Const AUTHORS As String = DBLSPACE & vbNewLine & _
"作者:聖天"
Const HEADER 



  
 

    


    
    
EXCEL工作表保護密碼破解方式

     
 
                
Excel工作表密碼保護的解除方法
Excel彈出“您試圖更改的單元格或圖表受保護，因而是隻讀的。若要修改受保護單元格或圖表，請先使用‘撤消工作表保護’命令(在‘審閱’選項卡的‘更改’組中)來取消保護。可能會提示您輸入密碼。
　　出現這種情況，應該怎麼解決呢？經過研究，找到 



  
 

    


    
    
Excel 撤消工作表保護密碼

     
 
                

Excel表格密碼保護的解除方法
表格受密碼保護時，我們修改資料Excel彈出“您試圖更改的單元格或圖表受保護，因而是隻讀的。若要修改受保護單元格或圖表，請先使用‘撤消工作表保護’命令(在‘審閱’選項卡的‘更改’組中)來取消保護。可能會提示您輸入密碼。這時候我們可以用VB 



  
 

    


    
    
破解EXCEL工作表保護密碼

     
 神技 破解EXCEL工作表保護密碼 http://www.mr-wu.cn/crack-excel-workbook-protection/ 
我們可以通過新建工作本，來建立一個新的工作本來創造新的巨集而繞過密碼保護機制。 
在開啟的PDN_Tool_v1_1_1.xls工作本里，通過選單“檔案–& 



  
 

    


    
    
EXCEL使用巨集破解工作表保護密碼

     
 Const DBLSPACE As String =
vbNewLine & vbNewLine
Const AUTHORS As String = DBLSPACE & vbNewLine
& _
"Adapted from Bob McCormick base code by" & 



  
 

    


    
    
神技 破解EXCEL工作表保護密碼

     
 
							
							
							



我們可以通過新建工作本，來建立一個新的工作本來創造新的巨集而繞過密碼保護機制。

在開啟的PDN_Tool_v1_1_1.xls工作本里，通過選單“檔案–>新建工作本“，建立一個新的空白工作本。 
在新建的工作本里，通過選單”工具–>巨集–& 



  
 

    


    
    
Excel2013破解vba工程密碼以及工作表保護密碼

     
 
							
							
							

1.將你要破解的Excel檔案關閉，切記一定要關閉呀！然後新建一個Excel檔案：



2.開啟新建的這個Excel，按下alt+F11，開啟vb介面，新建一個模組，如圖所示：



3.將程式碼複製到這個模組中，程式碼如下：

Private Sub V 



  
 

    


    
    
EXCEL工作表保護密碼忘記，撤消工作表保護

     
 
							
							
							1/開啟檔案  
2/工具—巨集—-錄製新巨集—輸入名字如:aa  
3/停止錄製(這樣得到一個空巨集)  
4/工具—巨集—-巨集,選aa,點編輯按鈕  
5/刪除視窗中的所有字元(只有幾個),替換為下面的內容:(你複製吧)  
Option Explicit 



  
 

    


    
    
EXCEL工作表保護密碼忘記,撤銷保護攻略

     
 

刪除視窗中的所有字元，複製下面的內容貼上。一個字母、標點符號都不能少。

Option Explicit

Public Sub AllInternalPasswords()

' Breaks worksheet and workbook structure passwords. Bob McCormi 



  
 

    


    
    
excel取消工作表保護 獲取原始密碼

     
 
                
您試圖更改的單元格或圖表位於受保護的工作表中。若要進行更改，請取消工作表保護。您可能需要輸入密碼。
網上找的解決辦法，在excel2016中試過後，有效。
1、開啟需要破解保護密碼的Excel檔案；
2、選單--檢視--巨集--錄製巨集--輸入巨集名（自定義xx）--確定； 



  
 

    


    
    
Excel工作表保護的密碼破解與清除...假裝自己破解密碼系列？

     
  
 
 
 網上下載來的Excel經常會有工作表保護，也就是無法修改，妄圖做任何修改的時候你就會看見這句話： 
 您試圖更改的單元格或圖表位於受保護的工作表中。若要進行更改，請取消工作表保護。您可能需要輸入密碼。 
   
 那麼這篇文章可以簡單的幫你解決這個問題...因為Excel中內建了Vis 



  
 

    


    
    
Excel VBA破解工作表/工作簿保護密碼

     
 
Option Explicit
Public Sub AllInternalPasswords()' Breaks worksheet and workbook structure passwords. Bob McCormick' probably originator of base code algo 



  
 

    


    
    
如何輕鬆的破解excel 2016工作表密碼

     
 Sub PasswordBreaker()
Dim i As Integer, j As Integer, k As Integer
Dim l As Integer, m As Integer, n As Integer
Dim i1 As Integer, i2 As Integer, i3 As Int 



  
 

    


    
    
Excel工作表忘記密碼如何破解？

     
  
  
   
   第一種方法就是按住快捷鍵ALT+F11，然後切換出VBA編輯視窗，如圖一；在該視窗的左側我們的選擇那個忘記密碼的工作表，比如sheet 1... 
   
   
   
    
    
   
    
    
    
  
  
   2
   
   
   然後我們複製 



  
 

    


    
    
excel文件、工作表忘記密碼解密彙總

     
 
								
								            
						
                
平時工作或學習會對自己的excel文件進行加密，時間長了之後會忘記密碼。
首先要分清楚是對檔案還是對工作表解密，分清這兩個概念那麼你的成功就在眼前！
下面就分文件和工作薄分別說明下：
1.excel文 



  
 

    


    
    
python實現跨excel的工作表sheet之間的複製

     
 
							
							
							python，將test1的Sheet1通過“跨檔案”複製到test2的Sheet2裡面。

包括谷歌沒有能搜出這種問題答案。 
我們貼出程式碼。

我們載入openpyxl這個包來解決：



from openpyxl import load_workboo 



  
 

    


    
    
Excel技能——批量生成excel的工作表名稱目錄連結

     
 
                
在工作、學習過程中，有時候會碰到一些比較複雜的計算問題，如：
a.以躉繳方式用10000元購買即期年金,年金支付期間為15期,利率為8%，每期支付額為多少？
b.向銀行申請貸款10000元，貸款利率為每期8%，還貸期間為15期，每期還貸額為多少？
c.保險公司某重大疾病保險 



  
 

    


    
    
office2007 開啟Excel 提示 工作表中的公式包含一個或多個無效引用的解決方法

     
 
                
開啟帶有資料或者圖表的工作表或工作簿中，有時候會彈出一個對話方塊“工作表中的公式包含一個或多個無效引用，請驗證公式包含的路徑、工作簿、區域名稱或單元格引用”，單擊確定後就不再顯示，但只要重新開啟，依舊會彈出這個對話方塊。

解決方法： 其實有時並不是這個Excel本身公式有