为您找到与vba破解excel保护密码相关的共200个结果:
在Excel中可能有些重要数据需要修改,但遗憾的是忘记了密码。这个时候就需要进行对文件密码的破解。下面是读文网小编带来的关于excel2013关于VBA密码破解的教程,欢迎阅读!
教程1:将你要破解的Excel文件关闭,切记一定要关闭呀!然后新建一个Excel文件
教程2:打开新建的这个Excel,按下alt+F11,打开vb界面,新建一个模块,如图所示
教程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
教程3:然后点击运行按钮,如图所示,绿色的小三角就是
教程4:你会看到,打开了一个文件夹,找到我们要破解的这个文件,然后点击打开
教程5:稍等几分钟你就会看到破解成功的提示了
教程6:再次打开你要破解的这个文件,你会看到这里已经可以查看代码了哈哈
浏览量:2
下载量:0
时间:
在Excel中可能因为前段时间觉得数据比较重要而设置了密码,但到后期却忘记了密码,这个时候就需要利用VBA进行密码破。下面是由读文网小编分享的excel2010 vba 密码破解的方法,希望对你有用。
VBA是Excel中比较难的部分,有些学习爱好者下载了别人的VBA模块来学习,但是却因为加了密码而看不到里面详细的程序,不过在强大的程序员面前,这都不是难事,下面,教大家如何破解VBA工程密码。
步骤1:打开Excel2013,按下键盘上的ALT+F11键,打开VBA代码编辑器。插入新的模块。
步骤2:将下列代码复制进去,然后F5键运行。
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
步骤3:这时会自动弹出一个窗口,我们打开需要进行解密的VBA文件。
步骤4:等待程序自动完成解密过程,最终解密成功。
浏览量:2
下载量:0
时间:
在Excel中进行破解密码保护主要是为了拿会重要的数据,这个做法其实都很常用,如果不会的朋友可以学习一番,下面是读文网小编带来的关于如何破解excel密码保护的教程,欢迎阅读!
破解Excel密码步骤1:新建一个EXCEL文件“BOOK1”,在工具栏空白位置,任意右击,选择Visual Basic项,弹出Visual Basic工具栏:
破解Excel密码步骤2:在Visual Basic工具栏中,点击“录制”按钮,弹出“录制新宏”对话框,选择“个人宏工作簿”:
破解Excel密码步骤3:选择“个人宏工作簿”后按确定,弹出如下“暂停”按钮,点击停止:
破解Excel密码步骤4:在Visual Basic工具栏中,点击“编辑”按钮:
破解Excel密码步骤5:点击“编辑”按钮后,弹出如下图的编辑界面:
破解Excel密码步骤6:找到“VBAProject(PERSONAL.XLS)-模块-模块1(也可能是模块N-其他数字)”
破解Excel密码步骤7:双击模块1-将右边代码内容清空
破解Excel密码步骤8:复制“工作保护密码破解”代码到右边框中,点保存,然后关闭“BOOK1”
破解Excel密码步骤9:运行需要解密的“EXCEL文件”,在Visual Basic工具栏中,点击“运行”按钮
破解Excel密码步骤10:点击“运行”按钮后,弹出“宏”对话框,
破解Excel密码步骤11:点击运行“PERSONAL.XLS!工作保护密码破解”这个宏
破解Excel密码步骤12:运行“PERSONAL.XLS!工作保护密码破解”这个宏后,
破解Excel密码步骤13:如下图示意就可以 解除工作表的密码保护了
(这个图,如果工作表中有多组不同密码,
破解Excel密码步骤14:每解开一组,就会提示一次,也就说可能会出现几次)
工作表保护密码破解(代码)
=========请复制以下内容=============
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 & " hfhzi3—戊冥 整理"
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 & ZHENGLI, vbInformation, HEADER
End Sub
<工作表保护密码破解放代码>是放在VBAProject(PERSONAL.XLS)[个人宏工作簿]——[模块]中的,如上图是放在红色标号2[模块1]中
浏览量:3
下载量:0
时间:
在Excel中经常录入重要数据的朋友都知道,如果想要数据不被篡改只能为表格添加密码保护,但有时候却忘记了密码,这个时候就需要用到破解密码的方法了,下面是读文网小编带来的关于excel破解表格保护密码的方法,欢迎阅读!
破解表格保护步骤1:这里有份加密的EXCEL文件
破解表格保护步骤2:选择工具栏——宏——录制新宏
破解表格保护步骤3:输入宏名,如aa
破解表格保护步骤4:点“停止录制”得到一个空宏
破解表格保护步骤5:删除窗口中的所有字符,把代码工具内的代码复制进来
破解表格保护步骤6:选工具——宏——选allinternalpasswords,运行,确定两次
破解表格保护步骤7:点完2次确定后,鼠标处于等待状态,这时代码已经在后台运行处理破解中销等2-3分钟
最后完成后,直接点确定(也是2次确定) 最后再保存,,,,一定要记得保佑,回头再来看看是否需要密码
浏览量:2
下载量:0
时间:
在Excel中录入了重要的数据而设置了密码保护,长时间下来可能会忘记了密码,这个时候就需要用到VBA进行破解密码了。下面是由读文网小编分享的excel2007 利用vba破解密码的教程,供大家阅读、学习。
用VBA破解密码步骤1:将你要破解的Excel文件关闭,切记一定要关闭呀!然后新建一个Excel文件
用VBA破解密码步骤2:打开新建的这个Excel,按下alt+F11,打开vb界面,新建一个模块,如图所示
用VBA破解密码步骤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
用VBA破解密码步骤4:然后点击运行按钮,如图所示,绿色的小三角就是
用VBA破解密码步骤5:你会看到,打开了一个文件夹,找到我们要破解的这个文件,然后点击打开
用VBA破解密码步骤6:稍等几分钟你就会看到破解成功的提示了
用VBA破解密码步骤7:再次打开你要破解的这个文件,你会看到这里已经可以查看代码了哈哈
浏览量:2
下载量:0
时间:
Excel中设置的VBA密码该如何进行破解呢?下面是读文网小编带来的关于excel2007vba密码破解的方法,希望阅读过后对你有所启发!
vba密码破解步骤1:双击【@Install_绿化】打开破解软件。
vba密码破解步骤2:选择【打开文件】浏览并打开要破解密码的Excel文件。
vba密码破解步骤3:确定以后即开始破解程序。破解顺序按下图顺序,最后执行暴力破解。
vba密码破解步骤4:破解完毕后会弹出如下界面,每种密码分别列示在不同区域。点击复制按钮即可将密码复制到剪切板。
注意:这里的密码可能不是原始输入的密码,比如说原来输入的密码是:123,这里破解出来的密码可能是:3b4b3b5b7b1这种,但是不影响解开保护。
vba密码破解步骤5:注意:对于VBA密码,点击【更改VBA密码】,输入新的简单密码,例如123,然后确定。
vba密码破解步骤6:点击【复制】按钮复制破解出来的密码
vba密码破解步骤7:双击Excel文件,并粘贴刚才复制的密码。
vba密码破解步骤8:对于工作表保护密码,选中某个工作表名称,然后鼠标右键,选择并复制密码。
vba密码破解步骤9:打开Excel文件,点击【撤销工作表保护】并粘贴复制的密码。
vba密码破解步骤10:点击【保护工作簿】下的【保护结构和窗口】并粘贴复制的密码。
vba密码破解步骤11:按Alt+F11的快捷键,打开VBE界面,输入刚才更改的VBA密码,一切就搞定啦!
看了excel2007vba密码破解的方法还看了:
浏览量:2
下载量:0
时间:
Excel中的保护密码具体该如何破解呢?下面是读文网小编带来的关于excel2007保护密码破解的教程,希望阅读过后对你有所启发!
破解密码步骤1:Office Password Unlocker是一个简单、易用、功能强劲可以直接同时恢复Office文档打开密码和修改密码的office密码破解软件!
破解密码步骤2:Office Password Unlocker支持Office 97到2007系列所有版本的Microsoft Word、Excel、Access和PowerPoint。
破解密码步骤3:提供三种模式(暴力破解、带掩码的暴力破解和字典破解)来加强对上述Office系列文档密码的恢复,并且可以根据实际需要来对字典进行定制。
破解密码步骤4:提供无可匹敌比其它程序快一倍的最大密码恢复速度,不管密码的长度如何和有多复杂,它都可以及时有效地为你恢复。
浏览量:2
下载量:0
时间:
有时候我们编写的word文档为了它的安全性被设置了密码,难免会有忘记的时候。那么下面就由读文网小编为大家分享下word2007破解密码保护的技巧,希望能帮助您。
步骤一:首先下载安装一款软件。软件名为:Word Password Unlocker网上一搜就可以搜到,建议使用破解版或者是绿色版
步骤二:将软件安装好之后就可以开始进行破解了。
步骤三:单击左上方的“Open”打开一个设了密的word文档。
步骤四:单击“Start”开始对word文档进行密码破解。
步骤五:破解的时间会有长有短,这个需要根据密码的复杂度来看。
步骤六:我这里就是为了时间上能够更快一些,就设置了以为数字的密码。
步骤七:很快就弹出来了一个窗口,上面显示的就是这个word文档的密码。
步骤八:下面我们来验证一下密码的正确性。输入刚刚显示出来的密码·····
步骤九:重复输入一次····
步骤十:没错,这个密码是正确的,word文档打开了。
浏览量:3
下载量:0
时间:
我们日常办公时,几乎每天都会接触到WORD文件,有时会遇到已经加密WORD文档或者自己加密而忘了密码的情况。那么下面就由读文网小编给大家分享下技巧,希望能帮助到您。
步骤一:打开快解密码读取工具(FastReader),切换到OFFICE密码选项卡
步骤二:“OFFICE文档格式”选择“WORD”
步骤三:打开所需要破解的WORD文档
步骤四:点击“快速破解”,会看到软件已经开始破解文档密码
步骤五:大约3分钟左右,我们就会看到破解成功的提示,并得到WORD的密码
看了“怎么破解word密码保护”此文
浏览量:4
下载量:0
时间:
Excel中经常需要把加密的文档进行破解密码,破解密码具体该如何操作呢?接下来是读文网小编为大家带来的excel2007破解密码的方法,供大家参考。
破解密码步骤1:Office Password Unlocker是一个简单、易用、功能强劲可以直接同时恢复Office文档打开密码和修改密码的office密码破解软件!
破解密码步骤2:Office Password Unlocker支持Office 97到2007系列所有版本的Microsoft Word、Excel、Access和PowerPoint。
破解密码步骤3:提供三种模式(暴力破解、带掩码的暴力破解和字典破解)来加强对上述Office系列文档密码的恢复,并且可以根据实际需要来对字典进行定制。
破解密码步骤4:提供无可匹敌比其它程序快一倍的最大密码恢复速度,不管密码的长度如何和有多复杂,它都可以及时有效地为你恢复。
浏览量:2
下载量:0
时间:
Excel中经常会遇到文档需要破解密码的需求,加密的Excel文档具体该如何进行破解密码呢?下面是由读文网小编分享的excel2007破解密码的教程,以供大家阅读和学习。
步骤1:Office Password Unlocker是一个简单、易用、功能强劲可以直接同时恢复Office文档打开密码和修改密码的office密码破解软件!
步骤2:Office Password Unlocker支持Office 97到2007系列所有版本的Microsoft Word、Excel、Access和PowerPoint。
步骤3:提供三种模式(暴力破解、带掩码的暴力破解和字典破解)来加强对上述Office系列文档密码的恢复,并且可以根据实际需要来对字典进行定制。
步骤4:提供无可匹敌比其它程序快一倍的最大密码恢复速度,不管密码的长度如何和有多复杂,它都可以及时有效地为你恢复。
浏览量:2
下载量:0
时间:
Excel中经常需要使用到密码保护功能,密码保护具体该如何进行设置呢?接下来是读文网小编为大家带来的excel设置密码保护的方法,供大家参考。
设置密码保护步骤1:首先鼠标点击Excel2003软件快捷方式打开软件,然后打开需要被加密的Excel文档
设置密码保护步骤2:Excel文档打开以后,在Excel2003窗口上面的菜单栏点击工具,然后工具下拉菜单的最下面鼠标点击选项
设置密码保护步骤3:点击选项以后会自动弹出选项窗口,在选项窗口的右上角有一个安全性按钮,用鼠标点击安全性按钮
设置密码保护步骤4:点击安全性按钮以后,选项窗口进入安全性设置窗口,在安全性设置窗口上面的次工作本的文件加密设置选项下设置好打开权限密码,然后点击窗口左下角的确定按钮
设置密码保护步骤5:点击确定以后会自动弹出确认密码窗口,然后再确认密码窗口下面的重新输入密码栏下面输入设置的密码,然后点击确定按钮,这样密码就设置好了。
设置密码保护步骤6:密码设置好以后点击Excel的菜单栏上面点击文件,然后再文件下拉菜单下面点击打开按钮
设置密码保护步骤7:点击打开按钮出现打开窗口,找到设定好密码的Excel文档,然后选择该文档,在点击窗口右下角的打开
设置密码保护步骤8:点击打开以后就会出现密码窗口,只要输入之前设定好的密码然后点击确定就可以打开了。
浏览量:2
下载量:0
时间:
Excel中的重要数据经常需要设置密码保护,密码保护具体该如何设置呢?下面是由读文网小编分享的excel2007设置密码保护的教程,以供大家阅读和学习。
步骤1:点击“Office按钮”——“准备”——“加密文档”。
步骤2:设置密码,密码分大小写。
步骤3:确认密码,保存文档,点击确定。
步骤4:再次打开文档时,提示需要输入密码才能打开。
浏览量:7
下载量:0
时间:
Excel中经常需要使用到为表格设置保护的技巧,为表格设置保护具体该如何进行操作呢?下面是读文网小编带来的关于excel表格设置密码保护的教程,希望阅读过后对你有所启发!
步骤1:在菜单栏找到工具,点击打开,然后找到保护,保护后面有4个选项,点击保护工作表;
步骤2:点击保护工作表后,弹出的窗口中下面的选项全部不用选,然后在输入密码栏输入密码,例如456,点击确定;
步骤3:在弹出窗口中重新输入密码并点击确定;
步骤4:现在在工作表内点击任何一个位置试图更改,就会出现下图所示的提示,不能够更改工作表了。
浏览量:2
下载量:0
时间:
excel中经常需要使用到设置密码的功能进行保护数据表,设置密码进行保护数据具体该如何进行操作呢?下面是读文网小编带来的关于excel2007设置密码保护教程,希望阅读过后对你有所启发!
步骤1:点击“Office按钮”——“准备”——“加密文档”。
步骤2:设置密码,密码分大小写。
步骤3:确认密码,保存文档,点击确定。
步骤4:再次打开文档时,提示需要输入密码才能打开。
浏览量:2
下载量:0
时间:
Excel中的重要文档需要进行加密处理,设置密码具体该如何进行操作呢?下面是由读文网小编分享的excel2007设置密码保护处理的教程,以供大家阅读和学习。
步骤1:点击“Office按钮”——“准备”——“加密文档”。
步骤2:设置密码,密码分大小写。
步骤3:确认密码,保存文档,点击确定。
步骤4:再次打开文档时,提示需要输入密码才能打开。
浏览量:2
下载量:0
时间: