|
楼主 |
发表于 2011-12-25 21:51
|
显示全部楼层
兰色幻想 发表于 2011-12-25 19:09
还要破解?这个用VBA很难实现,只能解一些简单的
兰版,用这几句代码好象可以吧。
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, AllowFiltering:=True
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, AllowFiltering:=True
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, AllowFiltering:=True
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, AllowFiltering:=True
ActiveSheet.Unprotect
如果不能破解全部的,就解除固定密码。
|
|