Com a ajuda da ideia do @ Máté Juhász, encontrei a opção no VBA, gravando a macro e pesquisando o código macro.
Range("D9:I18").Select
ActiveSheet.Protection.AllowEditRanges.Add Title:="Range1", Range:=Range( _
"D9:I18"), Password:="123"