There may be a better way but this should work. It passwords it but you can just take that part out if you'd prefer.
For Each ws In ThisWorkbook.activesheets
Range("D4:AS4").Locked = False
ws.Protect Password:="password", DrawingObjects:=True, Contents:=True, Scenarios:=True
ws.EnableSelection = xlUnlockedCells