设为首页收藏本站

嘻皮客娱乐学习网

 找回密码
 中文注册
搜索
开启左侧

[OFFICE] 几句代码清除excel工作表保护密码

[复制链接]
发表于 2019-3-5 12:01:19 | 显示全部楼层 |阅读模式
按“alt+f11”,进入到office的vba编辑模式,大家不熟悉也不要紧,后面都是很傻瓜的操作,进入之后,选择“插入”“模块”,
复制一下代码到这个框中:

  1. Sub DeletePW()
  2. ActiveSheet.Protect DrawingObjects:=True, Contents:=True, AllowFiltering:=True
  3. ActiveSheet.Protect DrawingObjects:=False, Contents:=True, AllowFiltering:=True
  4. ActiveSheet.Protect DrawingObjects:=True, Contents:=True, AllowFiltering:=True
  5. ActiveSheet.Protect DrawingObjects:=False, Contents:=True, AllowFiltering:=True
  6. ActiveSheet.Unprotect
  7. End Sub
复制代码




之后,按f5,运行DeletePW,运行完后,把编辑器关了,回到刚才的表格,你可以发现已经可以编辑了,也无需输入密码了,这就是消除了保护密码。

即便当前的excel被加密,vbe窗口不能访问,也可以在一个新建的文档里把代码写进去,在那个加过密的文档里运行这个宏,就解决了。
回复

使用道具 举报

小黑屋|手机版|嘻皮客网 ( 京ICP备10218169号|京公网安备11010802013797  

GMT+8, 2024-3-29 15:43 , Processed in 0.181025 second(s), 23 queries , Gzip On.

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表