VBA破解工作表密码

在日常工作中,难免忘记工作表的密码,眼巴巴的看着数据却不能改动。 前阶段分享过一个破解工作表密码的VBA,代码相当长。 今天分享个简短的代码。 原理是利用Excel的BUG破除密码。 新建模块并输入如下代码: Sub 清空密码()       ActiveSheet.Protect DrawingObjects:=True, Contents:=True, AllowFiltering:=True &nbs