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 -- 周末，我们继续Excel：=>21.心得=>5.其他=>3.office 会计人的Excel小教室： https://www.facebook.com/acctexcel --

※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 112.22.232.17 (中国) ※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Accounting/M.1584858483.A.291.html