VB解除excel保护工作表

一、找到开发工具

二、编写宏脚本

Sub a()

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, AllowFiltering:=True
ActiveSheet.Protect DrawingObjects:=True, Contents:=False, AllowFiltering:=True
ActiveSheet.Unprotect

End Sub

三、运行宏