|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
本帖最后由 鎈钚哆姺泩 于 2013-4-9 16:52 编辑
Private Sub SubmitBtn_Click()
On Error GoTo 10 '当姓名与密码不对应时,会出现错误,转到10语句处理
Dim n As String
na = UserName.Text '获取登陆名
pwd = PassWord.Text '获取登密码
Set sh = Sheets("设置")
If na = "" Or pwd = "" Then
MsgBox "用户名或密码不能为空", , "提示": Exit Sub
s = WorksheetFunction.Match(na, sh.[a:a], 0) '查找用户在A列的位置
n = sh.Cells(n, 2).Value '取出“设置”表中的权限密码,字符型
If n <> pwd Then GoTo 10
Call ThisWorkbook.HideSheets
'检查一下“设置”表的C列及右边各格中的内容,有内容的,说明可以打开内容所指定的工作表
For i = 4 To 255
b = sh.Cells(s, i).Value
If b = 1 And sh.Cells(1, i) <> "" Then '单元格为1时,表示有权限打开这个表,就让它显示出来
Sheets(sh.cell(1, i).Value).Visible.Value = -1
End If
Next
Unload LoginForm '退出登陆框
Exit Sub
10:
MsgBox "姓名或密码错误,不能登录", , "提示"
End Sub
|
|