将下面的代码拷到缺陷模块脚本中的Defects_Bug_FieldCanChange中就可以实现你的要求了。测试通过了
Function Defects_Bug_FieldCanChange(FieldName, NewValue)
On Error Resume Next
name=Bug_Fields("BG_DETECTED_BY").Value
if User.UserName<>name then
Bug_Fields("BG_DESCRIPTION").IsReadOnly=true
Defects_Bug_FieldCanChange=false
end if
Defects_Bug_FieldCanChange = Project_DefaultRes
On Error GoTo 0
End Function