If User.Name <> "季萍" And User.Name <> "开发者"
RibbonTabs("功能区1").Visible = False
ElseIf User.Name = "季萍"
RibbonTabs("功能区2").Visible = False
ElseIf user.name = "销售经理"
RibbonTabs("功能区2")("功能组2")("申请修改").Visible = False
RibbonTabs("功能区2")("功能组2")("申请删除").Visible = False
RibbonTabs("功能区2")("功能组2")("申请战胜").Visible = False
RibbonTabs("功能区2")("功能组2")("分割条1").Visible = False
End If
RibbonTabs("功能区2")("功能组2")("申请修改").Visible = False
RibbonTabs("功能区2")("功能组2")("申请删除").Visible = False
RibbonTabs("功能区2")("功能组2")("申请战胜").Visible = False
RibbonTabs("功能区2")("功能组2")("分割条1").Visible = False
这部分没用 什么情况