2022-11-17 19:43来源:m.sf1369.com作者:宇宇
方法/步骤
准备好我们需要破解的EXCEL表格文件
下载快解密码读取工具(FastReader)
打开快解密码读取工具(FastReader)
切换到“OFFICE”选项卡,在“OFFICE文件格式”中选择“EXCEL”
点击“打开文件”按钮打开我们所需要破解的EXCEL文件
点击“快速破解”按钮,开始破解EXCEL表格密码
7
等待几分钟后,提示破解成功,得到EXCEL表格的密码,我们就可以直接修改被密码保护的EXCEL表格的信息了
方法/步骤
1、打开工作表,发现表格被锁定无法编辑,点击切换到审阅选项,点击撤销工作表保护。2、输入密码,点击确定即可。
审阅点撤销工作表保护
打开工作表,点击切换到审阅选项,点击撤销工作表保护
输入密码点击确定即可
输入密码,点击确定即可
如果excel文档是用加密软件加密过的话,那只能联系软件商家客服协助处理 专业的防泄密软件加密的文件只有输入正确密码才能打开 无法破解,比如域之盾软件 加密过的文件任何形式的非法外发 传输拷贝 打开都是乱码 希望可以帮助到你
首先打开加密的文件,此时会弹跳出输入密码的窗口。输入密码,将文件打开。点击右上角的“文件”。
点击“保护工作簿”。
选择“用密码进行加密”,然后会弹出窗口。即可在弹出的窗口看到有密码。
将密码删除,然后点击确定。
将表格关闭,并保存更改,再次打开时不便需要密码。
解锁方法:
首先打开设置了工作表保护的表格,点击工具栏的查阅,再点击撤销工作表保护,输入密码即可解锁。
二、解锁Excel表中的单元格
打开Excel表,全选,右击鼠标选择设置单元格格式,选择保护,把“锁定”前面的勾去掉,点击确定即可
1.
首先选中被加密的excel文件,按F2键把文件后缀名改为rar。
2.
然后双击打开该压缩文件,选择打开XL文件夹。
3.
接着打开worksheets文件夹,将sheet1.xml文件拖到桌面。
4.
右键该文件选择使用记事本打开,按Ctrl+F键查找protection。
5.
删除该词所在尖括号内的全部内容并保存,再将该文件拖回压缩包。
6.
最后在弹窗中点击确定按钮,将压缩文件后缀名重新改为XLSX即可。
1、先找到有工作表保护密码的Excel表格,然后将忘记密码的Excel文件名称后缀由 .xlsx改为 .rar,如果有提示可以忽略,一般不会造成什么影响。
2、用压缩文件打开忘记密码的Excel文件,然后按以下步骤进行操作:xl——worksheets——sheet1.xml(这里是将sheet1工作表设置了保护密码,可根据实际情况选择相应文件名)。
3、从压缩文件里面找到sheet1.xml文件,然后拖拽至一个方便找到的位置(因为我们要对其要进行修改) 。然后将sheet1.xml文件右击选择用记事本打开方式打开。
4然后搜索,“protection”,把从这一段代码,全部删除掉。
5、然后再把修改后的sheet1.xml文件,选择拖拽到压缩的工作薄中,选择替换掉即可,点击确定
6、最后一步,和第一步相反,把文件名称后缀,由“演示表格.rar”重新更改“演示表格.xlsx”。最后打开Excel表格,你会惊喜地发现是不是保护密码都取消了吧。
如何取消Excel表格的密码,接下来具体操作步骤如下:
1、打开桌面上保存下来的excel表格,先前设置过密码的文档,输入密码即可;
2、点击“文件”,点击在左边一列中的“文档加密”会有一个右拉菜单,再点击“密码加密”;
3、之后会跳出“密码加密”的窗口,在“打开文件密码”,“再次输入密码”和“密码提示”的输入框中把密码都删除了之后,在按“应用”,等再次打开excel表格就不需要输入密码了
破解vbaproject密码
1.打开带密码的excel,视图---宏----录制宏---(保存到)“个人宏工作簿”---点“确认”。
2.查看宏----点“编辑”-----进入“microsofevisualbasic-personal.xlsb”页面;
3.点“模块1“,弹出“模块1代码”----清除“模块1代码”里面的东西-----复制如下东西:
publicsub工作表保护密码破解()
constdblspaceasstring=vbnewline&vbnewline
constauthorsasstring=dblspace&vbnewline&_
"作者:mccormickjemcgimpsey"
constheaderasstring="工作表保护密码破解"
constversionasstring=dblspace&"版本version1.1.1"
constrepbackasstring=dblspace&""
constzhengliasstring=dblspace&"hfhzi3—戊冥整理"
constallclearasstring=dblspace&"该工作簿中的工作表密码保护已全部解除!!"&dblspace&"请记得另保存"_
&dblspace&"注意:不要用在不当地方,要尊重他人的劳动成果!"
constmsgnopwords1asstring="该文件工作表中没有加密"
constmsgnopwords2asstring="该文件工作表中没有加密2"
constmsgtaketimeasstring="解密需花费一定时间,请耐心等候!"&dblspace&"按确定开始破解!"
constmsgpwordfound1asstring="密码重新组合为:"&dblspace&"$$"&dblspace&_
"如果该文件工作表有不同密码,将搜索下一组密码并修改清除"
constmsgpwordfound2asstring="密码重新组合为:"&dblspace&"$$"&dblspace&_
"如果该文件工作表有不同密码,将搜索下一组密码并解除"
constmsgonlyoneasstring="确保为唯一的?"
dimw1asworksheet,w2asworksheet
dimiasinteger,jasinteger,kasinteger,lasinteger
dimmasinteger,nasinteger,i1asinteger,i2asinteger
dimi3asinteger,i4asinteger,i5asinteger,i6asinteger
dimpword1asstring
dimshtagasboolean,wintagasboolean
application.screenupdating=false
withactiveworkbook
wintag=.protectstructureor.protectwindows
endwith
shtag=false
foreachw1inworksheets
shtag=shtagorw1.protectcontents
nextw1
ifnotshtagandnotwintagthen
msgboxmsgnopwords1,vbinformation,header
exitsub
endif
msgboxmsgtaketime,vbinformation,header
ifnotwintagthen
else
onerrorresumenext
do'dummydoloop
fori=65to66:forj=65to66:fork=65to66
forl=65to66:form=65to66:fori1=65to66
fori2=65to66:fori3=65to66:fori4=65to66
fori5=65to66:fori6=65to66:forn=32to126
withactiveworkbook
.unprotectchr(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=falseand_
.protectwindows=falsethen
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)
msgboxapplication.substitute(msgpwordfound1,_
"$$",pword1),vbinformation,header
exitdo'bypassallfor...nexts
endif
endwith
next:next:next:next:next:next
next:next:next:next:next:next
loopuntiltrue
onerrorgoto0
endif
ifwintagandnotshtagthen
msgboxmsgonlyone,vbinformation,header
exitsub
endif
onerrorresumenext
foreachw1inworksheets
'attemptclearancewithpword1
w1.unprotectpword1
nextw1
onerrorgoto0
shtag=false
foreachw1inworksheets
'checksforallclearshtagtriggeredto1ifnot.
shtag=shtagorw1.protectcontents
nextw1
ifshtagthen
foreachw1inworksheets
withw1
if.protectcontentsthen
onerrorresumenext
do'dummydoloop
fori=65to66:forj=65to66:fork=65to66
forl=65to66:form=65to66:fori1=65to66
fori2=65to66:fori3=65to66:fori4=65to66
fori5=65to66:fori6=65to66:forn=32to126
.unprotectchr(i)&chr(j)&chr(k)&_
chr(l)&chr(m)&chr(i1)&chr(i2)&chr(i3)&_
chr(i4)&chr(i5)&chr(i6)&chr(n)
ifnot.protectcontentsthen
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)
msgboxapplication.substitute(msgpwordfound2,_
"$$",pword1),vbinformation,header
'leveragefindingpwordbytryingonothersheets
foreachw2inworksheets
w2.unprotectpword1
nextw2
exitdo'bypassallfor...nexts
endif
next:next:next:next:next:next
next:next:next:next:next:next
loopuntiltrue
onerrorgoto0
endif
endwith
nextw1
endif
msgboxallclear&authors&version&repback&zhengli,vbinformation,header
endsub
4.点保存,然后关闭“book1”
5.点运行即可。