Excel加密工作表忘了密码？几行VBA代码，不懂程式照样解除工作表保护
网志图文版：
https://www.b88104069.com/archives/4466
商业机密考量，Excel可以加密上锁活页簿档案﹐或者以工作表储存格范围加密保护，但
忘记密码却很麻烦，其实几行VBA程式代码可以轻松解除工作表密码，本文以具体操作步
骤分享如何操作。
一、赞赞小屋的练习题档案有工作表想取消群组，发现被保护住了，密码和原本所设定的
不一样，没办法编辑工作表。
二、鼠标光标移到工作表标签上，右键点选“检视程式码”这个快捷选项。
三、于Excel外挂的VBA编辑视窗中，贴上下列程式代码：
Sub 解除工作表密码()
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
四、上方功能区“检视”页签，将“宏”程式集下拉，选择“检视宏”。依照浮窗说
明可知其快捷键为“Alt+F8”。
五、“宏”对话方块会看到第三步骤所贴上的程式码，在这里呈现为“解除工作表密码
”宏，直接按“执行”。
六、执行后跳出“取消保护工作表”对话方块，中间是输入密码字段，不过这里直接“取
消”即可。
七、虽然没有输入过正确密码，工作表已解除保护，可以取消群组做任何编辑。
八、参考微软Office产品支援中心关于Excel保护工作表的说明：“并非作为安全性功能
的用途。此功能只是用来防止使用者修改工作表内的锁定储存格。”
仔细分析VBA程式码，它借由工作表保护属性的反复设定将密码清除，最后再解除保护，
因此宏执行完要再确定取消保护，效果等同于把工作表保护更新为空白密码。参考微软
相关说明会更加清楚，此功能并非安全性等级的用途，也许因为如此可利用VBA执行绕过
Excel指令限制，在灰色地带直接跳过密码设定。
延伸阅读：
Excel折线图贴上圆形标签，简报图表力，鈊象(3293)营收统计图更加视觉化
https://www.b88104069.com/archives/4462
Excel宏抓取网页资料出错了！进入VBA简单修改，开始成为程式设计师
https://www.b88104069.com/archives/4432
打开Excel开发人员面板，录制宏维护快速键，开始VBA程式抓网页资料
https://www.b88104069.com/archives/4425