主菜单，selectTab事件
If e.Sender.name = "ProductionDept" then
msgbox(123)
If Functions.Execute("QuanXian","部门权限","生产部") = False Then
RibbonTabs("Other").Selected = True
End If
End if
加好友 
发短信
Post By：2017/10/31 19:13:00 [显示全部帖子]
