RibbonTabs("业务区").Groups("产品板块").Items("产品查阅").Enabled =false '先锁定
if Functions.Execute("ShouQuan","产品板块","查阅") then '如果有这个权限
RibbonTabs("业务区").Groups("产品板块").Items("产品查阅").Enabled = true '解开锁定
end if