主题：[求助]

 参考代码

Dim bblr As RibbonMenu.Button = RibbonTabs("CQYY").Groups("录入功能").Items("版本录入")

If user.Group = "录入" Then
    bblr.Visible = False
ElseIf user.group = "查询" Then
    bblr.Visible = False
ElseIf user.group = "管理" Then
    bblr.Visible = True
Else
    bblr.Visible = False
End If