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