破解保护工作簿密码
开启保护工作簿之后可以防止其他用户查看隐藏的工作表,添加、移动或隐藏工作表以及重命名工作表。
可以看到隐藏、重命名之类的按钮都是灰色的。
破解的方法如下:
工作表标签页点击鼠标右键,选择
[查看代码],
在弹出的VBA编辑界面输入以下代码:
点击运行按钮之后,会出现一张复制原表数据的新表格,此时保护工作簿密码已清除。
- Sub test()
- ActiveWorkbook.Sheets.Copy
- For Each sh In ActiveWorkbook.Sheets
- sh.Visible = True
- Next
- End Sub
