[已解决]怎么样根据登录用户的不同显示不同的菜单

9910343 · 发表于 2012-9-20 11:59

本帖最后由 9910343 于 2012-9-20 16:53 编辑

怎么样根据登录用户的不同显示不同的菜单，见附件，当管理员登录时显示菜单栏的全部菜单，其他人登录时只显示菜单栏的文件这个菜单，登录密码123

登录.rar (16.09 KB, 下载次数: 24)

2012-9-20 11:59 上传

点击文件名下载附件

已解决，更新后的附件

登录2.rar (17.69 KB, 下载次数: 117)

2012-9-20 16:53 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

无聊的疯子

2012-9-20 14:01

9910343 发表于 2012-9-20 13:47
能否写个代码，谢谢

登陆按钮中添加一个判断代码，
登陆名是管理员，则执行模块1.Set_ToolMenu，
否则执行模块1.Set_ToolMenu2

Private Sub CommandButton1_Click()
On Error GoTo 10 '当姓名与密码不对应时，会出现错误，转到10语句处理
Dim n As String
Set sh = Sheets("设置")
na = ComboBox1.Text: ps = TextBox1.Text '取得登录窗口中的姓名与密码
If na = "" Or ps = "" Then MsgBox "未输入用户名或密码，不能登录", , "提示": Exit Sub
s = WorksheetFunction.Match(na, sh.[a:a], 0) '查找用户在A列的位置
n = sh.Cells(s, 2) '取出"设置"表中的权限密码，字符型
If n <> ps Then GoTo 10
Call 隐藏表
'检查一下"设置"表的C列及右边各格中的内容，有内容的，说明可以打开内容所指定的工作表
For I = 4 To 255
b = sh.Cells(s, I).Value
If b = 1 And sh.Cells(1, I) <> "" Then '单元格为1时，表示有权限打开这个表，就让它显示出来
Sheets(sh.Cells(1, I).Value).Visible = -1
End If
Next
'================================
If na = "管理员" Then
模块1.Set_ToolMenu
Else
模块1.Set_ToolMenu2
End If
'================================
Unload UserForm1 '退出窗体
Exit Sub
10:
MsgBox "姓名或密码错误，不能登录", , "提示"
End Sub

复制代码

在模块1中添加一个过程 Set_ToolMenu2

Sub Set_ToolMenu()
Dim mCaidan As Menu
MenuBars(xlWorksheet).Reset
Set mCaidan = MenuBars(xlWorksheet).Menus.Add("【数据查询系统】")
With mCaidan.MenuItems
.Add "命令一", "命令"
.Add "命令二", "命令"
.Add "-"
.Add "命令三", "命令"
.Add "命令四", "命令"
End With
End Sub
Sub Set_ToolMenu2()
Dim mCaidan As Menu
MenuBars(xlWorksheet).Reset
Set mCaidan = MenuBars(xlWorksheet).Menus.Add("【数据查询系统】")
With mCaidan.MenuItems
.Add "命令一", "命令"
.Add "-"
.Add "命令三", "命令"
End With
End Sub
Sub 命令()
MsgBox "这是个示范"
End Sub

复制代码

这是相对比较的简单直接的方法，也可以在 Set_ToolMenu 中设置参数，直接通过参数来判断，就可以少一个过程！

跳转到最佳答案楼层

mytmmt · 发表于 2012-9-20 12:29

这个问的好，我也想知道

无聊的疯子 · 发表于 2012-9-20 13:02

03的文件，在10上没办法弄！

给你个思路吧，登陆的时候，根据权限来调用不同的菜单过程就行了，很简单的！！

9910343 · 发表于 2012-9-20 13:47

无聊的疯子发表于 2012-9-20 13:02
03的文件，在10上没办法弄！

给你个思路吧，登陆的时候，根据权限来调用不同的菜单过程就行了，很简单的 ...

能否写个代码，谢谢

5201314 · 发表于 2012-9-20 13:53

无聊的疯子发表于 2012-9-20 13:02
03的文件，在10上没办法弄！

给你个思路吧，登陆的时候，根据权限来调用不同的菜单过程就行了，很简单的 ...

10上也是有办法的

无聊的疯子 · 发表于 2012-9-20 14:01

9910343 发表于 2012-9-20 13:47
能否写个代码，谢谢

登陆按钮中添加一个判断代码，
登陆名是管理员，则执行模块1.Set_ToolMenu，
否则执行模块1.Set_ToolMenu2

Private Sub CommandButton1_Click()
On Error GoTo 10 '当姓名与密码不对应时，会出现错误，转到10语句处理
Dim n As String
Set sh = Sheets("设置")
na = ComboBox1.Text: ps = TextBox1.Text '取得登录窗口中的姓名与密码
If na = "" Or ps = "" Then MsgBox "未输入用户名或密码，不能登录", , "提示": Exit Sub
s = WorksheetFunction.Match(na, sh.[a:a], 0) '查找用户在A列的位置
n = sh.Cells(s, 2) '取出"设置"表中的权限密码，字符型
If n <> ps Then GoTo 10
Call 隐藏表
'检查一下"设置"表的C列及右边各格中的内容，有内容的，说明可以打开内容所指定的工作表
For I = 4 To 255
b = sh.Cells(s, I).Value
If b = 1 And sh.Cells(1, I) <> "" Then '单元格为1时，表示有权限打开这个表，就让它显示出来
Sheets(sh.Cells(1, I).Value).Visible = -1
End If
Next
'================================
If na = "管理员" Then
模块1.Set_ToolMenu
Else
模块1.Set_ToolMenu2
End If
'================================
Unload UserForm1 '退出窗体
Exit Sub
10:
MsgBox "姓名或密码错误，不能登录", , "提示"
End Sub

复制代码

在模块1中添加一个过程 Set_ToolMenu2

Sub Set_ToolMenu()
Dim mCaidan As Menu
MenuBars(xlWorksheet).Reset
Set mCaidan = MenuBars(xlWorksheet).Menus.Add("【数据查询系统】")
With mCaidan.MenuItems
.Add "命令一", "命令"
.Add "命令二", "命令"
.Add "-"
.Add "命令三", "命令"
.Add "命令四", "命令"
End With
End Sub
Sub Set_ToolMenu2()
Dim mCaidan As Menu
MenuBars(xlWorksheet).Reset
Set mCaidan = MenuBars(xlWorksheet).Menus.Add("【数据查询系统】")
With mCaidan.MenuItems
.Add "命令一", "命令"
.Add "-"
.Add "命令三", "命令"
End With
End Sub
Sub 命令()
MsgBox "这是个示范"
End Sub

复制代码

这是相对比较的简单直接的方法，也可以在 Set_ToolMenu 中设置参数，直接通过参数来判断，就可以少一个过程！

无聊的疯子 · 发表于 2012-9-20 14:01

5201314 发表于 2012-9-20 13:53
10上也是有办法的

10的菜单和03的不一样，方法不能共用！！

9910343 · 发表于 2012-9-20 14:49

无聊的疯子发表于 2012-9-20 14:01
10的菜单和03的不一样，方法不能共用！！

还有一个问题就是原来的菜单我都要隐藏，我只需要自定义的菜单
Sub Set_ToolMenu3()
For I = 1 To 10
Application.CommandBars(1).Controls(I).Visible = False
Next
End Sub
这个命令怎么加入，谢谢

9910343 · 发表于 2012-9-20 16:51

无聊的疯子发表于 2012-9-20 14:01
10的菜单和03的不一样，方法不能共用！！

问题已解决，谢谢

5201314 · 发表于 2012-9-20 17:28

本帖最后由 5201314 于 2012-9-20 17:33 编辑

无聊的疯子发表于 2012-9-20 14:01
10的菜单和03的不一样，方法不能共用！！

http://www.excelperfect.com/index.php/2011/09/26/changetab/
变化的选项卡——让不同的用户有不同的选项卡
你看了就明白，是可以实现的（稍加修改就能实现的）

自定义功能区代码：

<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui" onLoad="rxIRibbonUI_onLoad">
<ribbon startFromScratch="false">
<tabs>
<tab id="TabChange1" label="张三的选项卡" insertBeforeMso="TabHome" getVisible="rxTab_GetVisible">
<group id="GrpZS" label="张三的组">
<button id="rxBtn1" imageMso="MsnLogo" />
</group>
</tab>
<tab id="TabChange2" label="李四的选项卡" insertBeforeMso="TabHome" getVisible="rxTab_GetVisible">
<group id="GrpLS" label="李四的组">
<button id="rxBtn2" imageMso="RefreshWebView" />
</group>
</tab>
</tabs>
</ribbon>
</customUI>

复制代码

在thisworkbook代码：

Private Sub Workbook_Open()
gstrUserName = InputBox("请输入用户名（张三、李四）", "输入用户名")
On Error Resume Next
grxIRibbonUI.Invalidate
End Sub

复制代码

标准模块代码：

Public grxIRibbonUI As IRibbonUI
Public gstrUserName As String
'Callback for customUI.onLoad
Sub rxIRibbonUI_onLoad(ribbon As IRibbonUI)
Set grxIRibbonUI = ribbon
End Sub
'Callback for TabChange1 getVisible
Sub rxTab_GetVisible(control As IRibbonControl, ByRef returnedVal)
Select Case control.ID
Case "TabChange1"
If gstrUserName = "张三" Then
returnedVal = True
Else
returnedVal = False
End If
Case "TabChange2"
If gstrUserName = "李四" Then
returnedVal = True
Else
returnedVal = False
End If
End Select
End Sub

复制代码

		自动登录	找回密码
密码			注册