看看破解工作表密码有多简单，只需两句

CTFuture

研究 VBA 确实是一种乐趣
短短的两句话，就识破了微软的弥天大谎

岭南人家

谢谢楼主分享！

yzlsc

原帖由 baomaboy 于 2011-6-13 11:56 发表
本来就不是万能的，即使是下面4句连起来也不是100%成功，至少我遇到过两次不成功案例了。
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowFiltering:=True, AllowU ...

谢谢分享。

yong_111

学习了，谢谢！

wpxxsyzx

原帖由 baomaboy 于 2011-6-13 12:25 发表
不只是这两句会失效，就算是那4句也会有失效的时候，只不过那4句适应的情况更多。

请教，什么情况下，用四句也会失效

zhoulq88

谢谢楼主，学习了

cbtaja

Sub UnProtct()
    '这个宏可以破解工作表密码
    MsgBox "破解提示：当要求输入密码时请点击取消！”"
    Application.DisplayAlerts = False
    On Error Resume Next
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFiltering:=True, AllowUsingPivotTables:=True
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:=False, AllowFiltering:=True, AllowUsingPivotTables:=True
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=False, AllowFiltering:=True, AllowUsingPivotTables:=True
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:=True, AllowFiltering:=True, AllowUsingPivotTables:=True
    ActiveSheet.Unprotect
End Sub

baomaboy

去年刚用时就遇到一个解不开的，就在前几天从本论坛下的一个文件也没解开，错误提示38或98好像，当时在弄其他东西，想着以后在分析原因，现在居然忘了是哪个文件了，等找找看吧，能找到就上附件。

lsj128568

看不懂怎么运行啊，请高手给个详细的过程，如怎么调用VBA，怎么运行，谢谢了

qczvba

此坛高手如云。加为精华理所当然。