【无标题】

Excel解除受保护单元格部分方式

1. 在工作表菜单栏上添加开发工具。方法是：依次单击文件--->选项--->自定义功能区命令，在自定义功能区主选项卡下面钩选开发工具即可，方法因版本不同稍有差异。当然，已添加的读者，这一步是多余的；

2. 按Alt+F11快捷键，打开VBA窗口；如果VBAProject代码程度加密了，就新建一个EXCEL在按Alt+F11快捷键，打开VBA窗口；

3. 单击插入菜单命令，在其下拉菜单中，选择模块1；

4. 双击模块1，在其代码窗口下输入如下的代码，

   Sub DeletePW()
   ActiveSheet.Protect DrawingObjects:=True, Contents:=True, AllowFiltering:=True
   ActiveSheet.Protect DrawingObjects:=False, Contents:=True, AllowFiltering:=True
   ActiveSheet.Protect DrawingObjects:=True, Contents:=True, AllowFiltering:=True
   ActiveSheet.Protect DrawingObjects:=False, Contents:=True, AllowFiltering:=True
   ActiveSheet.Unprotect
   End Sub

5. 第5步：在非设计模式下，单击运行按钮，即可启动解除密码程序

上述文章转自 : ++https://www.cnblogs.com/jacklong-yin/p/11208938.html++**

---

更多方法可点击 ：++https://gist.github.com/parano/1868242++
GOODLUCK！！！