如果对某个组有这个需要:
Function Defects_Bug_CanDelete
On Error Resume Next
If User.IsInGroup("xxxx") Then
If User.UserName <> Bug_Fields("BG_DETECTED_BY").Value Then
Defects_Bug_CanDelete = False
Msgbox "无权修改他人提交的BUG"
Else
Defects_Bug_CanDelete = True
End If
End If
'Defects_Bug_CanDelete = Project_DefaultRes
On Error GoTo 0
End Function