Macro DrawingObjects=false, but cannot insert a picture?

I have this short macro which makes visible a blank page, unlocks it, changes the object setting to false, then locks the page, but when it runs I cannot insert a picture! When I manually unlock and lock the page I am able to do it. What am I missing?

Sub Data_Pics()
    Sheets("Data Plate Pics").Visible = True
    Sheets("Data Plate Pics").Select
    ActiveSheet.Unprotect Password:="abcd"
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        True
    ActiveSheet.Protect Password:="abcd"
End Sub