参考代码
Dim pwd As StringIf InputPassWord(pwd,"提示","请输入密码:") Then If pwd = "123" Then RibbonTabs("Common").Groups("ClipBoard").Visible = not RibbonTabs("Common").Groups("ClipBoard").Visible End IfEnd If