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

论坛 期权论坛 期权     
VBA编程学习与实践   2019-7-27 14:40   4969   0
诸君好,我们今天来聊如何使用VBA代码破解工作表加密……
月亮月亮,我是星光,我是星光,重复一次,重复一次,是破解工作表加密,是破解工作表加密,不是工作簿,不是工作簿……



代码如下:




  1. Sub UnProtct()
复制代码
  1.     MsgBox "破解提示:当要求输入密码时请点击取消!”"
复制代码
  1.     Application.DisplayAlerts = False
复制代码
  1.     On Error Resume Next
复制代码
  1.     Dim sht As Worksheet
复制代码
  1.     For Each sht In Worksheets
复制代码
  1. With sht
复制代码
  1.             .Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFiltering:=True, AllowUsingPivotTables:=True
复制代码
  1.             .Protect DrawingObjects:=False, Contents:=True, Scenarios:=False, AllowFiltering:=True, AllowUsingPivotTables:=True
复制代码
  1.             .Protect DrawingObjects:=True, Contents:=True, Scenarios:=False, AllowFiltering:=True, AllowUsingPivotTables:=True
复制代码
  1.             .Protect DrawingObjects:=False, Contents:=True, Scenarios:=True, AllowFiltering:=True, AllowUsingPivotTables:=True
复制代码
  1.             .Unprotect
复制代码
  1. End With
复制代码
  1. Next
复制代码
  1.     MsgBox "ok"
复制代码
  1. End Sub
复制代码

没了
就酱紫
试试吧~~
还想知道更多神奇的VBA小技巧?
我见君骨骼清奇……巴拉巴巴里芭啦芭啦芭啦吧……看,天上有本秘籍……↓↓↓↓↓↓
即日起至7月21日,京东科技类图书每满100减50

(这派头,一看就是绝世秘籍)
分享到 :
0 人收藏
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

积分:220
帖子:44
精华:0
期权论坛 期权论坛
发布
内容

下载期权论坛手机APP