缺陷状态为“关闭”时其它字段设为只读的问题

bluesky115

当我在脚本编辑器里面加了下面这段代码后，出现了其它问题，不知道是什么原因，希望熟悉的高手能帮帮忙！
Sub Defects_Bug_MoveTo
   On Error Resume Next
     if Bug_Fields("bg_user_02" ).value = "关闭" then
          For i=0 to Bug_Fields.Count
              Bug_Fields.FieldById(i).IsReadOnly = True
          Next
          Bug_Fields.Field("BG_USER_02").IsReadOnly=false
      end if
   On Error GoTo 0
End Sub

存在问题：
添加了这段代码后，当把status状态值设为除了“关闭”以外的值，或者任何其它字段值改变时，其它字段也会显示为只读，Defects_Bug_FieldChange(FieldName)过程里没加其它代码