工作簿
WPS里找到VB编辑器,有两个方法(office没装,没试,VB路径可能有出入。)
- 视图-宏-下拉-Visual Basic 编辑器
- 开发工具-VB 编辑器
打开编辑器之后,左边找到Project,右键-插入-模块,输入以下代码
Sub 工作簿密码破解()
ActiveWorkbook.Sheets.Copy
For Each sh In ActiveWorkbook.Sheets
sh.Visible = True
Next
End Sub
点击上方三角形图标-运行,关闭VB编辑器,当前即为新生成无密码的工作簿,记得保存。
注:此方法是将受保护的工作簿复制一份不带密码的,将其另存为保存好即可。
工作表
- 打开我的电脑-查看-文件扩展名勾上,将有密码的文件后缀改为rar,忽略提示,选择“是”,解压文件,找到以下路径文件 \xl\worksheets\sheet1.xml,sheet1.xml指的是工作表1,其他工作表选择对应文件进行下列操作即可。
- 右键sheet1.xml-打开方式-记事本,Ctrl+F查找sheetProtection,将<sheetProtection到scenarios=”1″/>这段代码删除,保存记事本。
- 将修改好的sheet1.xml文件拖到压缩文件里,覆盖原有文件,再将rar文件名后缀改为xlsx即可。
原创文章,作者:cn,如若转载,请注明出处:https://daxiaraoming.com/114.html