在窗口的AfterLoad事件设置代码：
IF user.Goup = "XXX" Then
e.Controls("TabControl1").TabPages(1).Visible = False
End if
Forms("窗口1").Controls("TopicBar1").Pages(0).Links(0).Vsible = False
命令只有Visible属性，没有Enabed属性，也就是只能设置命令是否可见，而不能设置是否可用。
但是你可以在命令的Click事件代码改为：
MessageBox.show("你无权执行")
else
'你原来的代码
加好友 
发短信
Post By：2011/8/20 21:44:00 [显示全部帖子]
