用户权限

sixhero

本人想创建一个登陆窗口，用户只有“管理员”和“一般用户”分别对应密码“12”和“23”。
Private Sub CommandButton1_Click()
If (ComboBox1.Value = "管理员" And TextBox1.Value = 12) Or (ComboBox1.Value = "一般用户" And TextBox1.Value = 23) Then
   ActiveWindow.DisplayWorkbookTabs = False
   End
Else
   MsgBox ("密码不正确，无权进入系统")
       On Error Resume Next
     Unload Me
   ThisWorkbook.Close savechanges:=False
  End If
End Sub

和
Private Sub UserForm_Initialize()
With ComboBox1
.AddItem "管理员"
.AddItem "一般用户"
End With
ComboBox1.Value = ""
TextBox1.SetFocus
End Sub

请问怎么给这两个用户赋权限？“管理员”为超级用户，“一般用户”不能编辑任何sheet表中单元格，只能查看。
谢谢

LOA

先将工作簿中所有工作表进行保护，在workbook_open代码中增加判断：如果是管理员，则取消所有工作表保护。

LOA

先将所有工作表保护，在workbook_open代码中判断：如果是“管理员”，就撤销所有保护

sixhero

LOA 发表于 2018-10-2 10:00
先将所有工作表保护，在workbook_open代码中判断：如果是“管理员”，就撤销所有保护

敬请赐教，如果不是“管理员”，禁用sheet2中CommandButton1?

Yalishanda30

如附件，可实现楼主要求的功能

sixhero

Yalishanda30 发表于 2018-10-3 07:11
如附件，可实现楼主要求的功能

很不错。谢谢

sixhero

Private Sub CommandButton1_Click()
If ComboBox1.Value = "管理员" And TextBox1.Value = 12 Then
End
Else
If ComboBox1.Value = "一般用户" And TextBox1.Value = 23 Then
If ComboBox1.Value = "一般用户" Then
Sheet2.CommandButton3.Enabled = False
ActiveWindow.DisplayWorkbookTabs = False

End
Else
   MsgBox ("密码不正确，无权进入系统")
   End
On Error Resume Next
     Unload Me
   ThisWorkbook.Close SaveChanges:=False
End If
End If
End If
End Sub
这是我新改的根据用户权限使用。