Excel解除受保护单元格部分方式
- 在工作表菜单栏上添加[开发工具]。方法是:依次单击[文件]—>[选项]—>[自定义功能区]命令,在[自定义功能区]主选项卡下面钩选[开发工具]即可,方法因版本不同稍有差异。当然,已添加的读者,这一步是多余的;
- 按Alt+F11快捷键,打开VBA窗口;如果VBAProject代码程度加密了,就新建一个EXCEL在按Alt+F11快捷键,打开VBA窗口;
- 单击[插入]菜单命令,在其下拉菜单中,选择[模块1];
- 双击[模块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步:在非设计模式下,单击[运行]按钮,即可启动解除密码程序
上述文章转自
:
https://www.cnblogs.com/jacklong-yin/p/11208938.html
**
更多方法可点击
:
https://gist.github.com/parano/1868242
GOODLUCK!!!
版权声明:本文为qq_39645768原创文章,遵循 CC 4.0 BY-SA 版权协议,转载请附上原文出处链接和本声明。