主题：为具体操作设置权限

If User.Name <> "张经理" Then
    e.Cancel = True
    Messagebox.show("你无权锁定和取消锁定行!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If

在上述应用过程发现的问题：

当用户不是张经理时，选择列出现死循环（老是看见Messagebox弹窗）是该怎消除该问题？！