完了，工作簿保护也没用了

本文转载自公众号：法叔office，作者：法叔。

法叔曾在《脆弱的工作表保护》一文，介绍过利用VBA破解【工作表保护】的技巧。

可是【工作表保护】刚刚失守，【工作簿保护】也无效了！

在Excel中，【审阅>更改>保护工作簿】，设置密码。

进行了【工作簿保护】的文件，无法进行【插入】、【删除】、【重命名】、【隐藏】工作表等操作。

【开发工具>Visual Basic】进入【Visual Basic编辑器】。

在【工程资源管理器窗口】右键单击，【插入>模块】。

在【模块】右侧的代码窗口，录入如下VBA代码，点击【运行子过程】按钮。

Sub test()

  ActiveWorkbook.Sheets.Copy

 For Each sh In ActiveWorkbook.Sheets

     sh.Visible = True

  Next

End Sub

运行后，原文件会另存为一份新文件，【工作簿保护】已在新文件中被取消。

附【工作表保护】破解VBA如下：

Sub jm()

 Sheet1.ProtectAllowFiltering:=True

 Sheet1.Unprotect

End Sub

---

---

关注 法叔 Office

学习 办公小知识