ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True