Você pode usar o gravador de macros para incorporar os elementos que deseja proteger. @ Randolph West provavelmente está certo na abordagem
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ActiveWorkbook.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveWorkbook.Protect Structure:=True, Windows:=True
End Sub