诸君好,我们今天来聊如何使用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
(这派头,一看就是绝世秘籍)
|
|