2022-12-04 10:56来源:m.sf1369.com作者:宇宇
解密步骤1:先用Microsoft Office Excel 2003创建一个“2003.xls”的普通方式加密Excel文档。
解密步骤2:然后用Office Password Remover这个在线破解工具来破解,1,2,3,3秒之后,就生产一个已经被成功破解的新Excel文档——2003(DEMO).xls 。
视频演示机型:戴尔燃 7000,适用系统:Windows10,软件版本:wps 2019;
表格设置了密码,每次打开时都要录入密码,如何取消excel密码,今天来分享一下,希望有所帮助;
首先双击打开被加密的Excel文件,输入密码,点击【确定】,进入文件后点击左上角的【文件】,选择【文档加密】,轻点进入【密码加密】;
将【打开文件密码】和【再次输入密码】删除,最后点击底部的【应用】并保存更改,可以看到文件名旁的【钥匙图标】去除,之后我们双击打开表格,就不用输入密码;
以下是我写的一个从Sheet1的A2:B6这个范围查找用户名和密码进行验证的逻辑,你看看吧.
如果还有不懂,再问吧.
Public Sub aaaaaaaa()
Dim inName As String '输入用户名
Dim inPwd As String '输入密码
Dim rightPwd As String '检索到的密码
inName = "user01" '测试用户名
inPwd = "pwd09" '测试密码
On Error Resume Next
'根据用户名检索正确密码
rightPwd = WorksheetFunction.VLookup(inName, Sheet1.Range("A2:B6"), 2, False)
If rightPwd <> "" And rightPwd = inPwd Then
MsgBox "正确"
Else
MsgBox "错误"
End If
End Sub
1、首先打开加密的文件,此时就会弹跳出输入密码的窗口。
2、然后输入密码,将文件打开。
3、点击右上角的“文件”。
4、点击“保护工作簿”。
5、选择“用密码进行加密”,然后会弹出窗口。
6、然后就会看到,在弹出的窗口,有密码。
7、然后我们将密码删除,然后点击确定。
8、然后将表格关闭,并保存更改,再次打开时就不需要密码了。
首先,将后缀名改为.zip,
2然后,将.zip文件打开,打开xl\worksheets,
3用xml编辑器打开对应的.xml文件,查找sheetProtection,将整行删除。
(我用的是记事本,所以是把<>部分删除)
4将后缀名改回去。
1.选取要加密的身份证号列,开始 - 条件格式 - 新建规则
2.在打开的条件格式窗口中
选择规则类型 :使用公式确定要
为符合此公式.:=D$2<>mm!D$2
选择规则类型 :使用公式确定要
为符合此公式.:=D$2<>mm!D$2
3.点击【格式】按钮,在打开的窗口中 - 数字 - 分类 - 自定义,右侧输入代码:;;; (3个分号)
4.选取输入密码单元格 - Ctrl+1打开单元格设置窗口,去掉锁定前的勾。
目的是在保护工作表后可以输入查看密码。
5.审阅 - 保护工作表 - 去掉“选取锁定单元格” ,防止选取加密的列在编辑栏中看内部的值。最后隐藏mm工作表。
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表格,你会惊喜地发现是不是保护密码都取消了吧。
如果你只有打开密码,且密码是7位数以内的数字,可用以下步骤解开:
新开一Excel,打开,记住文件路径,取消。然后把你待解密文件copy到这一路径,改名为1.xls。然后回到Excel窗口,同时按键盘的Alt和F11,右键点左上窗口中的VBAProject,插入,模块,在右边新出来的窗口粘贴一下代码
Subcrack()
DimiAsLong
i=1
line2:
OnErrorGoToline1
DoWhileTrue
Workbooks.Open"1.xls",,,,i
Workbooks("1.xls").Close0
MsgBox"Passwordis"&i
ExitSub
Loop
line1:
i=i+1
Resumeline2
EndSub
然后运行此宏(回到Excel窗口,工具,宏,宏,DefineHyperlink,运行)
如果有字母,稍微复杂些,道理是一样的。太长的密码,基本解不开了。
若果还有读写密码,且与打开密码一样,将Workbooks.Open"1.xls",,,,i改为Workbooks.Open"1.xls",,,,i,i