诸君好，我们今天来聊如何使用VBA代码破解工作表加密……
月亮月亮，我是星光，我是星光，重复一次，重复一次，是破解工作表加密，是破解工作表加密，不是工作簿，不是工作簿……
![]()
代码如下：
- MsgBox "破解提示：当要求输入密码时请点击取消！”"
- Application.DisplayAlerts = False
- For Each sht In Worksheets
- .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
复制代码
没了
就酱紫
试试吧~~
还想知道更多神奇的VBA小技巧？
我见君骨骼清奇……巴拉巴巴里芭啦芭啦芭啦吧……看，天上有本秘籍……↓↓↓↓↓↓
即日起至7月21日，京东科技类图书每满100减50
（这派头，一看就是绝世秘籍）
|
|
转播
