解除工作表密码保护
1、查看代码
步骤:右键【sheet1】-【查看代码】-打开代码窗口。
gifcode.gif2、插入代码
代码:
Sub DeletePW()
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
步骤:粘贴代码,点击【运行】即可。
网友评论