如何用VBA代码破解工作表加密？

本文转载自公众号：VBA编程学习与实践，作者：EH看见星光。

https://mp.weixin.qq.com/s/iLJQ1nYACpY40GRCoA7y4A 

诸君好，我们今天来聊如何使用VBA代码破解工作表加密……

月亮月亮，我是星光，我是星光，重复一次，重复一次，是破解工作表加密，是破解工作表加密，不是工作簿，不是工作簿……

代码如下：

Sub UnProtct() MsgBox '破解提示：当要求输入密码时请点击取消！”' Application.DisplayAlerts = False On Error Resume Next Dim sht As Worksheet For Each sht In WorksheetsWith 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 .UnprotectEnd WithNext MsgBox 'ok'End Sub

没了

就酱紫

试试吧~~

还想知道更多神奇的VBA小技巧？

我见君骨骼清奇……巴拉巴巴里芭啦芭啦芭啦吧……看，天上有本秘籍……↓↓↓↓↓↓

即日起至7月21日，京东科技类图书每满100减50

（这派头，一看就是绝世秘籍）