|
发表于 2017-7-29 12:09
|
显示全部楼层
本楼为最佳答案
- Sub 解密()
- 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
- ANS = MsgBox("密码已破解", 48, "提醒")
- End Sub
复制代码
大概这样,运行后输入密码时选择取消! |
评分
-
查看全部评分
|