vb破解excel密碼

1. Excel 怎樣在VBA中打開帶有密碼的excel文件

如果Excel文件的打開密碼忘記了，且密碼是6位數以內的數字，可用以下步驟解開（關掉所有程序，為了速度）：
新開一Excel，同時按Alt和F11，進入VBA界面，點菜單上的插入，模塊，在新出來的窗口粘貼一下代碼：
Sub crack()
Dim i As Long
Dim FileName As String
i = 0
FileName = Application.GetOpenFilename("Excel文件（*.xls & *.xlsx）,*.xls;*.xlsx", , "VBA破解")
FileName = Right(FileName, Len(FileName) - InStrRev(FileName, "\"))
Application.ScreenUpdating = False
line2: On Error GoTo line1
Workbooks.Open FileName, , True, , i
MsgBox "Password is " & i
Exit Sub
line1: i = i + 1
Resume line2
Application.ScreenUpdating = True
End Sub

然後在此界面直接按F5運行此宏，選擇文件，等啊等（看密碼長度了）

2. Excel 表格「VBAProject密碼」忘記了，如何解除

准備工具：表格，電腦，OFFICE密碼破解軟體（OfficeToolbox軟體）

1.打開BOX軟體，在軟體頁面中找內到文件選擇容選項，點擊該選項進入到文件選擇頁面中。

3. Excel表格加密，密碼忘了怎麼辦

1、按住快捷鍵ALT+F11，然後切換出VBA編輯窗口，如圖1所示。在窗口左側，我們選擇忘記密碼的版工作表權，例如表1。

4. excel2013關於VBA密碼破解的教程

在 Excel 中可能有些重要數據需要修改，但遺憾的是忘記了密碼。這個時候就需要進行對文件密碼的破解。下面是我帶來的關於excel2013關於VBA密碼破解的教程，歡迎閱讀!

excel2013關於VBA密碼破解的教程

教程1：將你要破解的Excel文件關閉，切記一定要關閉呀!然後新建一個Excel文件

excel2013關於VBA密碼破解的教程圖1

教程2：打開新建的這個Excel，按下alt+F11，打開vb界面，新建一個模塊，如圖所示

excel2013關於VBA密碼破解的教程圖2

教程3：將代碼復制到這個模塊中，代碼如下：

Private Sub VBAPassword() '你要解保護的Excel文件路徑

Filename = Application.GetOpenFilename("Excel文件(*.xls & *.xla & *.xlt),*.xls;*.xla;*.xlt", , "VBA破解")

If Dir(Filename) = "" Then

MsgBox "沒找到相關文件,清重新設置。"

Exit Sub

Else

FileCopy Filename, Filename & ".bak" '備份文件。

End If

Dim GetData As String * 5

Open Filename For Binary As #1

Dim CMGs As Long

Dim DPBo As Long

For i = 1 To LOF(1)

Get #1, i, GetData

If GetData = "CMG=""" Then CMGs = i

If GetData = "[Host" Then DPBo = i - 2: Exit For

Next

If CMGs = 0 Then

MsgBox "請先對VBA編碼設置一個保護密碼...", 32, "提示"

Exit Sub

End If

Dim St As String * 2

Dim s20 As String * 1

'取得一個0D0A十六進制字串

Get #1, CMGs - 2, St

'取得一個20十六制字串

Get #1, DPBo + 16, s20

'替換加密部份機碼

For i = CMGs To DPBo Step 2

Put #1, i, St

Next

'加入不 配對 符號

If (DPBo - CMGs) Mod 2 <> 0 Then

Put #1, DPBo + 1, s20

End If

MsgBox "文件解密成功......", 32, "提示"

Close #1

End Sub

excel2013關於VBA密碼破解的教程圖3

教程3：然後點擊運行按鈕，如圖所示，綠色的小三角就是

excel2013關於VBA密碼破解的教程圖4

教程4：你會看到，打開了一個文件夾，找到我們要破解的這個文件，然後點擊打開

excel2013關於VBA密碼破解的教程圖5

教程5：稍等幾分鍾你就會看到破解成功的提示了

excel2013關於VBA密碼破解的教程圖6

5. 如何解鎖excel密碼的教程

在 Excel 中錄入過多的重要數據是大家的習慣，為了不讓Execl數據被他人隨意篡改都需要進行密碼保護，但有時候卻忘記了密碼，這個時候就需要解鎖密碼了。下面是我帶來的關於如何解鎖excel密碼的教程，歡迎閱讀!

如何解鎖excel密碼的教程：

解鎖密碼步驟1：如果Excel文件的打開密碼忘記了，且密碼是6位數以內的數字，可用以下步驟解開(關掉所有程序，為了速度)：

解鎖密碼步驟2：新開一Excel，同時按Alt和F11，進入VBA界面，點菜單上的插入，模塊，在新出來的窗口粘貼一下代碼：

Sub crack()

Dim i As Long

Dim FileName As String

i = 0

FileName = Application.GetOpenFilename("Excel文件(*.xls & *.xlsx),*.xls;*.xlsx", , "VBA破解")

FileName = Right(FileName, Len(FileName) - InStrRev(FileName, ""))

Application.ScreenUpdating = False

line2: On Error GoTo line1

Workbooks.Open FileName, , True, , i

MsgBox "Password is " & i

Exit Sub

line1: i = i + 1

Resume line2

Application.ScreenUpdating = True

End Sub

解鎖密碼步驟3：然後在此界面直接按F5運行此宏，選擇文件，等啊等(看密碼長度了)

6. EXCEL VBA 如何解除工作表密碼(已知密碼)

新建一工作簿，在VBE窗口中插入一個模塊，粘貼以下代碼，即可（該代碼清除未密碼，來源於網路）

PrivateSubVBAPassword()
'你要解保護的Excel文件路徑
Filename=Application.GetOpenFilename("Excel文件（*.xls&*.xla&*.xlt）,*.xls;*.xla;*.xlt",,"VBA破解")
IfDir(Filename)=""Then
MsgBox"沒找到相關文件,清重新設置。"
ExitSub
Else
FileCopyFilename,Filename&".bak"'備份文件。
EndIf
DimGetDataAsString*5
OpenFilenameForBinaryAs#1
DimCMGsAsLong
DimDPBoAsLong
Fori=1ToLOF(1)
Get#1,i,GetData
IfGetData="CMG="""ThenCMGs=i
IfGetData="[Host"ThenDPBo=i-2:ExitFor
Next

IfCMGs=0Then
MsgBox"請先對VBA編碼設置一個保護密碼...",32,"提示"
ExitSub
EndIf

IfProtect=FalseThen
DimStAsString*2
Dims20AsString*1

'取得一個0D0A十六進制字串
Get#1,CMGs-2,St

'取得一個20十六制字串
Get#1,DPBo+16,s20

'替換加密部份機碼
Fori=CMGsToDPBoStep2
Put#1,i,St
Next

'加入不配對符號
If(DPBo-CMGs)Mod2<>0Then
Put#1,DPBo+1,s20
EndIf
MsgBox"文件解密成功......",32,"提示"
EndIf
Close#1
EndSub