工作表加密后却把密码忘记了？没事，秒破！
HI，大家好，我是星光。社群内有朋友问，工作表加密后，却把密码给忘记了，怎么办？
这事，其实简单。复制运行以下VBA代码，即可破解当前活动工作簿所有工作表的保护密码。
代码如看不全，可以左右拖动▼Sub UnProtct() Dim sht As Worksheet, shtAct As Worksheet MsgBox "破解提示：当要求输入密码时请点击取消！”" Application.DisplayAlerts = False On Error Resume Next Set shtAct = ActiveSheet For Each sht In Worksheets With sht .Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, _ AllowFiltering:=True, AllowUsingPivotTables:=True .Protect DrawingObjects:=False, Contents:=True, Scenarios:=False, _ AllowFiltering:=True, AllowUsingPivotTables:=True .Protect DrawingObjects:=True, Contents:=True, Scenarios:=False, _ AllowFiltering:=True, AllowUsingPivotTables:=True .Protect DrawingObjects:=False, Contents:=True, Scenarios:=True, _ AllowFiltering:=True, AllowUsingPivotTables:=True .Unprotect End With Next shtAct.Select Application.DisplayAlerts = True MsgBox "ok"End Sub
小贴士▼
这是破解工作表加密，不是破解工作簿打开加密。破解后者，实在是太费电了——建议直接右转找淘宝最为简单~。
如果你还不会运行VBA代码，参考往期推文：如何运行VBA代码？其实很简单！
文件下载百度网盘..▼
https://pan.baidu.com/s/1b5g7RpbndEyoKisatDgrnw
从0到1、从入门到实战...
系统学习技巧、函数、透视表、VBA编程
Power Query基础入门、SQL in Excel等
兼具适时微信群答疑+海量图文/视频教程...
推荐下方识别二维码加入我的知识星球▼
全资料学习目录等可戳[阅读原文]
加入我的Excel社群
从入门到精通全面学习Excel
学习中的表格问题社群在线实时答疑
