无需插件,快速解除工作表密码保护的方法。
此方法仅适用于工作表保护,非打开时的密码破解
首先打开有保护的工作表,然后右键【sheet1】(要解除的表)-【查看代码】-打开代码窗口。
插入以下代码后运行即可
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
然后就可以修改了
© 版权声明
文章版权归作者所有,未经允许请勿转载。
THE END
暂无评论内容