Sub a()ActiveSheet.Protect DrawingObjects:=True, Contents:=True, AllowFiltering:=TrueActiveSheet.Protect DrawingObjects:=True, Contents:=False, AllowFiltering:=TrueActiveSheet.UnprotectEnd Sub
百雅轩艺术推广