代码的含义就是遍寻每个工作表,并对每个工作表取消保护。
知识拓展:
上面给大家分享的都是工作表设置保护密码的破解,那如果是整个工作簿设置密码保护,没办法插入或者删除工作表,要怎么破解呢?
还是给大家分享个小代码,代码的输入方法和上面类似:
Sub 工作簿密码破解()ActiveWorkbook.Sheets.Copy For Each sh In ActiveWorkbook.Sheets sh.Visible=True NextEnd Sub
这
段 VBA 代码尝试解除工作表的密码保护。请注意,这个方法可能仅在密码相对简单的情况下有效。如果成功,你应该能够直接保存文件而不再需要密码。大
家实际去试用下吧。