Foxtable(狐表)用户栏目专家坐堂 → [求助]自动隐藏显示功能组


  共有3332人关注过本帖树形打印复制链接

主题:[求助]自动隐藏显示功能组

帅哥哟,离线,有人找我吗?
有点色
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2016/12/1 18:55:00 [显示全部帖子]

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

 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2016/12/1 19:23:00 [显示全部帖子]

 参考,自己学一下

 

http://www.foxtable.com/webhelp/scr/1526.htm

 


 回到顶部