标签:drawing protect raw ring style sheet cti 单击 visual
操作步骤:打开Visual Basic编辑器,单击“插入-->模块“,将以下代码粘贴到模块中即可。
Sub DelPassword() 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 End Sub
标签:drawing protect raw ring style sheet cti 单击 visual
原文地址:http://www.cnblogs.com/yl153/p/6722457.html