对于加密码保护的工作表,可以录制一个宏,然后拷入下列代码,运行一下,出现密码录入框,连三次点取消,密码就没了。
百试百灵呀。
Sub Macro1()
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
------解决方案--------------------------------------------------------
hehe ,我试试。。。
------解决方案--------------------------------------------------------
------解决方案--------------------------------------------------------
楼上改行做了警察了
------解决方案--------------------------------------------------------
顶下 ..... 学习