如何实现对工具栏的权限管理

Question

我在我的毕业设计中遇到了一个问题。
我所作的系统分为普通用户和系统管理员
系统管理员可以通过选择来设置用户的权限。
当系统管理员设置用户的权限为不可用时，菜单栏为灰 不可用。
但为了方便  我又设置了一排快捷工具栏。
实现通过快捷工具栏直接操作
但问题出现了：
我所设置的全选对快捷工具栏是无效的
也就是说我不管设置了什么权限
在菜单栏是可用的，在工具栏是不可用的
请问如何解决另：
我的工具栏是通过
Select Case Button.Index
    Case 1:
        Call BookInfo_Click             '调入图书信息
    Case 3:
        Call ReaderInfo_Click             '调入读者信息
    Case 5:
        Call ReaderBorrow_Click          '调入借书
    Case 7:
        Call ReaderBack_Click             '调入还书
    Case 9:
        Call BookSearch_Click             '调入图书检索
    Case 11:
        Call NewLogin_Click             '调入重新登录
    End Select
实现的
请指教

Answer 1

Select Case Button.Index 
    Case 1: 
        if   BookInfo.Enabled = False Or BookInfo.Visible = False then 
             msgbox"您无此权限！"
             exit sub
        endif
        Call BookInfo_Click            '调入图书信息 
    End Select