Sub ProtectOpenMacro()
ActiveSheet.Protect Password:="password", userinterfaceonly:=True

End Sub
Use this macro - then sheet will be protected but macros can write into it. (Run the macro then save).