|
本帖最后由 nk0769 于 2020-10-4 11:12 编辑
终于懂了,
1是文件名改成a.zip,winrar打开找到\xl\worksheets\sheet1.xml,删除<sheetProtection algorithmName="SHA-512" hashValue="YA97Kduc+FQyxD2N5xoCpRSJItq5ij50ls8zOwdIwxb/vGaqIgi9EvJL/E4aheIwk3RVhE6AXPsypiVieUgVHA==" saltValue="zcUaC5LbTmq6rzYgtD4TiQ==" spinCount="100000" sheet="1" objects="1" scenarios="1" selectLockedCells="1"/>这段再保存
2按alt+f11,模块加入代码
Sub 工作簿密码破解()
ActiveWorkbook.Sheets.Copy
For Each sh In ActiveWorkbook.Sheets
sh.Visible = True
Next
End Sub
按f5运行,就出现一个新的工作簿
谢谢老师的指导.
|
评分
-
1
查看全部评分
-
|