Formatting Charts on a protected sheet - Excel 2013

I am gaining an error in my code due to the sheet being protected.

I cannot seem to get the correct code to allow for the code to still run, while the sheet is protected.

Any idea's:

Private Sub Worksheet_Activate()
ActiveSheet.ChartObjects("Chart 1").Activate
ActiveChart.Axes(xlValue).Select
ActiveChart.Axes(xlValue).MaximumScale = Sheet2.Range("H16").Value + 1
End Sub

I tried protecting the sheet via:

Sub REPORT_PROTECT()
Sheet1.Protect DrawingObjects:=False, Password:="123"
End Sub

But I still get an error.