Excel怎么破解密码,怎么样破解excel文件密码
如何破解超过密码？在win10操作系统中当我们无法打开超过文档提示需要输入密码才能查看，该怎么办呢？当我们遇到超过文档打开需要密码的现象，在不知道密码的情况下可以使用密码字典去解读，解读成功即为破解。在本文中会win10之家小编将给大家分享下win10破解超过密码的方法。
步骤：
1、打开加密的Excel，然后用快捷命令Alt F8打开宏命令窗口，如图所示：
2、在宏名一栏中输入宏的名字随意健入，如图：
3、输入完宏名后创建的按钮就亮了点击创建我们就看到了新界面，如图：
4、将编辑框内的副刀()末端副删除将下列代码复制上去：
选项显式
Public Sub AllInternalPasswords()
破坏工作表和工作簿结构密码。鲍勃麦考密克
可能是为覆盖范围修改的基本代码算法的发起者
工作簿结构/windows密码和多个密码
诺曼哈克和作业评估麦金普西2002年12月27日（版本1.1)
由杰姆于2003年四月四日修改：所有味精为常数，以及
取消一个出口接头（版本1.1.1)
显示哈希密码，而不是原始密码
const DBLSPACE As String=VB newline amp；vbNewLine
const AUTHORS As String=DBLSPACE amp；vbNewLine amp_
改编自鲍勃麦考密克的基本代码，由安培_
诺曼哈克和作业评估麦金普西
常数标头为String=AllInternalPasswords用户消息
const VERSION As String=DBLSPACE amp；版本1 .1 .1 2003-2004年四月
const REPBACK As String=DBLSPACE amp；请报告故障。_
添加到微软。公共的。excel。设计新闻组。
const all clear As String=DBLSPACE amp；工作簿应该" amp_
现在是免费的所有密码保护，所以请确保您： amp_
数字空间放大器"现在就省省吧!"ampDBLSPACE放大器还有安培_
数字空间放大器后援！后援！后援！安培_
数字空间放大器另外，记住密码是安培_
放在那里是有原因的。不要把重要的公式塞得满满的。_
或者数据“ampDBLSPACE amp某些数据的访问和使用。_
可能是一种冒犯。如果有疑问，不要这样做。
Const MSGNOPWORDS1 As String=上没有密码安培_
工作表、工作簿结构或窗口100安培作者安培版本
Const MSGNOPWORDS2 As String=没有保护安培_
工作簿结构或窗口ampDBLSPACE amp_
继续取消工作表保护100安培作者安培版本
按下"确定"按钮后，Const MSGTAKETIME As String= After _
需要一些时间ampDBLSPACE amp "时间量" amp_
取决于有多少不同的密码，amp_
密码和你电脑的规格ampDBLSPACE amp_
耐心点！"给我冲杯咖啡!"安培作者安培版本
Const MSGPWORDFOUND1 As String=您有一个工作表安培_
结构或Windows操作系统密码集ampDBLSPACE amp_
找到的密码是：" ampDBLSPACE amp $ $ " ampDBLSPACE amp _
记下它，以便将来在其他工作簿中使用。_
设置这个密码的人ampDBLSPACE amp_
现在检查并清除其他密码100安培作者安培版本
Const MSGPWORDFOUND2 As String=您有一个工作表安培_
密码设置ampDBLSPACE amp找到的密码是：" amp_
DBLSPACE amp$ $ ampDBLSPACE amp记录下潜在的" amp_
同一个人将来在其他工作簿中使用。_
设置这个密码ampDBLSPACE amp现在检查并清除安培_
其他密码100安培作者安培版本
const MSGONLYONE As String= Only structure/windows amp；_
用刚刚找到的密码保护着amp_
ALLCLEAR放大器作者安培版本安培雷贝克
将w1作为工作表，w2作为工作表
创建相应的变量为整数，j为整数，k为整数，l为整数
尺寸m为整数，n为整数，i1为整数，i2为整数
将i3作为整数，i4作为整数，i5作为整数，i6作为整数
Dim PWord1作为字符串
Dim ShTag为布尔值，WinTag为布尔值
申请ScreenUpdating=False
使用活动工作簿
WinTag=.保护结构或。保护窗口
以…结尾
ShTag=False
对于工作表中的每个w1
ShTag=ShTag或w1 .保护内容
下一个w1
如果不是ShTag和WinTag，则
MsgBox MSGNOPWORDS1，vbInformation头
出口接头
如果…就会结束
MsgBox MSGTAKETIME，vbInformation，HEADER
如果不是WinTag，那么
MsgBox MSGNOPWORDS2，vbInformation头
其他
出错时继续下一步
做虚拟做循环
对于i=65至66:对于j=65至66:对于k=65至66
对于l=65至66:对于m=65至66:对于i1=65至66
对于i2=65到66:对于i3=65到66:对于i4=65到66
对于i5=65至66:对于i6=65至66:对于n=32至126
使用活动工作簿。取消对Chr(i)放大器的保护；chr(j)amp；chr(k)amp；_
人权(法律)放大器；chr(m)amp；Chr(i1)放大器；Chr(i2)放大器；_
Chr(i3)放大器；chr(i4)amp；Chr(i5)放大器；chr(i6)amp；人权（北)
如果ProtectStructure=False And _。那么ProtectWindows=False
p字1=Chr(I)amp；chr(j)amp；chr(k)amp；人权(法律)放大器；_
chr(m)amp；Chr(i1)放大器；Chr(i2)放大器；Chr(i3)放大器；_
chr(i4)amp；Chr(i5)放大器；chr(i6)amp；人权（北)
对话框应用程序。替换(MSGPWORDFOUND1，_
$$ ，PWord1)，vbInformation，HEADER
Exit Do Bypass all for.下一步
如果…就会结束
以…结尾
下一页：下一页：下一页：下一页：下一页：下一页
下一页：下一页：下一页：下一页：下一页：下一页
循环直到真
出错时转到0
如果…就会结束
如果是WinTag而不是ShTag，则
MsgBox MSGONLYONE，vbInformation标头
出口接头
如果…就会结束
出错时继续下一步
对于工作表中的每个w1
尝试用PWord1清除
w1 .取消保护PWord1
下一个w1
出错时转到0
ShTag=False
对于工作表中的每个w1
如果没有，检查所有触发为一的清除ShTag .
ShTag=ShTag或w1 .保护内容
下一个w1
如果ShTag那么
对于工作表中的每个w1
使用w1
如果。那么保护内容
出错时继续下一步
做虚拟做循环
对于i=65至66:对于j=65至66:对于k=65至66
对于l=65至66:对于m=65至66:对于i1=65至66
对于i2=65到66:对于i3=65到66:对于i4=65到66
对于i5=65至66:对于i6=65至66:对于n=32至126。取消对Chr(i)放大器的保护；chr(j)amp；chr(k)amp；_
人权(法律)放大器；chr(m)amp；Chr(i1)放大器；Chr(i2)放大器；Chr(i3)放大器；_
chr(i4)amp；Chr(i5)放大器；chr(i6)amp；人权（北)
如果没有。那么保护内容
p字1=Chr(I)amp；chr(j)amp；chr(k)amp；人权(法律)放大器；_
chr(m)amp；Chr(i1)放大器；Chr(i2)放大器；Chr(i3)放大器；_
chr(i4)amp；Chr(i5)放大器；chr(i6)amp；人权（北)
对话框应用程序。替换(MSGPWORDFOUND2，_
$$ ，PWord1)，vbInformation，HEADER
通过尝试其他工作表来利用查找单词
对于工作表中的每个w2
w2 .取消保护PWord1
下一个w2
Exit Do Bypass all for.下一步
如果…就会结束
下一页：下一页：下一页：下一页：下一页：下一页
下一页：下一页：下一页：下一页：下一页：下一页
循环直到真
出错时转到0
如果…就会结束
以…结尾
下一个w1
如果…就会结束
MsgBox全清零放大器作者安培版本ampREPBACK，vbInformation，标题
末端接头
5、关闭【宏窗口】回到Excel，按下ALT F8组合键重新打开【宏命令窗口】,如图所示：
6、你会发现你前面输入的宏名变成了所有内部密码点击【执行】 会出现全英文的提示框，一直点击【确定】即可；
7、一直点确定直到不在出现对话框为止。
等一段之系统会再次跳出对话框再点确定保护就破解成功，重新打开超过表格即无需输入密码！
郑重声明：本文由网友发布，不代表盛行IT的观点，版权归原作者所有，仅为传播更多信息之目的，如有侵权请联系，我们将第一时间修改或删除，多谢。