右键单击工作表标签→【查看代码】，然后插入模块，复制以下代码，粘贴到代码区域：Sub工作簿密码破解Dim sht As WorksheetFor Each sht In Worksheetssht.Protect AllowFiltering:=Truesht.Unprotect
在日常工作中，表格内容要求一部分保护不可更改，一部分可以随时更改，那这个设置该如何操作呢?首先，我们把D列内容整个选中，然后按ctrl+1打开单元格格式对话框，在里面点开保护，把锁定前面的勾给点击去掉，点击确定。
但是现在有一个问题:虽然可以修改非保护区域，但是却不能再更改工作表的布局，比如在未受保护的区域试图插入、删除列、合并单元格都不行了，这些功能完全被禁用了。现在打开这个宏文件，再试一下，在保护部分工作表的同时，其他区域的功能丝毫不受影响。
在报表、工作簿中，必不可少的就是函数、公式，其中部分函数、公式的设置非常的麻烦，甚至是“牵一发而动全身”，关系或影响整个数据的准确性，重则造成数据的有效性……那么，如何有效的保护含有公式的单元格，防止公式被篡改或出现不必要的错误了！一、定位公式。方法：1、选定目标单元格。
