设为首页收藏本站
简字体切换切换到宽版

ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步，快速开始

快捷登录

搜索
ExcelHome技术论坛»论坛 › Excel 技术交流与问答 › Excel VBA程序开发 › 登录用户名显示双份
EH技术汇-专业的职场技能充电站 妙哉！函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
返回列表 发新帖
查看: 709|回复: 6

[讨论] 登录用户名显示双份

[复制链接]
hymjtc

TA的精华主题

TA的得分主题
发表于 2021-9-5 15:01 | 显示全部楼层 |阅读模式
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助★
本帖最后由 hymjtc 于 2021-9-5 15:10 编辑

用户名显示双份的，是怎么回事，是我的代码哪里出的问题，各位高手帮我看看
image.jpg
Private Sub CommandButton1_Click()
On Error GoTo 10 '当姓名与密码不对应时，会出现错误，转到10语句处理
Dim n As String
Set sh = Sheets("员工信息")
na = ComboBox1.Text: ps = TextBox2.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 = 3 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
    Application.Visible = True '显示工作表界面
Next
Unload UserForm1 '退出窗体
Exit Sub
10:
MsgBox "姓名或密码错误，不能登录", , "提示"
End Sub
Sub 隐藏表()
For i = 1 To Worksheets.Count
  If Sheets(i).Name <> "主菜单" Then
    Sheets(i).Visible = 2
  Else
    Sheets(i).Visible = -1 '只让"登录"表显示出来
  End If
  Set Sh7 = Sheet11 '***
    With Sheet11
        .Range("R2").Value = ComboBox1.Text
        .Range("S2").Value = TextBox2.Text
        .Range("T2").Value = Now()
   End With
Next
End Sub
Private Sub CommandButton2_Click()
Call 隐藏表
End Sub
Private Sub UserForm_Activate()
'窗体出现在屏幕上的位置
Me.Top = 100
Me.Left = 200
For i = 2 To Sheets("员工信息").[a65536].End(xlUp).Row
    ComboBox1.AddItem Sheets("员工信息").Cells(i, 1).Value
Next
End Sub

Private Sub form_resize()
'随着窗体大小自动调节图片大小
imag1.Top = 0
imag1.Left = 0
imag1.stretch = True
imag1.Height = Me.ScaleHeight
imag1.Width = Me.ScaleWidth
imag1.Picture = Me.Picture
End Sub

Private Sub UserForm_Initialize()
    Dim r
    ComboBox1.Clear
    ComboBox1.Text = ""
    r = Sheet11.Range("A65536").End(xlUp).Row
    For i = 2 To r
       ComboBox1.AddItem Sheet11.Range("A" & i).Value
    Next
    ComboBox1.ListIndex = 0
End Sub



image.jpg
回复

举报

hymjtc

TA的精华主题

TA的得分主题
 楼主| 发表于 2021-9-5 15:03 | 显示全部楼层
[广告] ★用Excel做企业管理系统，Excel服务器学习和下载★
为什么代码贴出来是这样的
回复

举报

hymjtc

TA的精华主题

TA的得分主题
 楼主| 发表于 2021-9-5 15:05 | 显示全部楼层
[广告] ★用Excel做企业管理系统，Excel服务器学习和下载★

Private Sub CommandButton1_Click()
On Error GoTo 10 '当姓名与密码不对应时，会出现错误，转到10语句处理
Dim n As String
Set sh = Sheets("员工信息")
na = ComboBox1.Text: ps = TextBox2.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 = 3 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
    Application.Visible = True '显示工作表界面
Next
Unload UserForm1 '退出窗体
Exit Sub
10:
MsgBox "姓名或密码错误，不能登录", , "提示"
End Sub
Sub 隐藏表()
For i = 1 To Worksheets.Count
  If Sheets(i).Name <> "主菜单" Then
    Sheets(i).Visible = 2
  Else
    Sheets(i).Visible = -1 '只让"登录"表显示出来
  End If
  Set Sh7 = Sheet11 '***
    With Sheet11
        .Range("R2").Value = ComboBox1.Text
        .Range("S2").Value = TextBox2.Text
        .Range("T2").Value = Now()
   End With
Next
End Sub
Private Sub CommandButton2_Click()
Call 隐藏表
End Sub
Private Sub UserForm_Activate()
'窗体出现在屏幕上的位置
Me.Top = 100
Me.Left = 200
For i = 2 To Sheets("员工信息").[a65536].End(xlUp).Row
    ComboBox1.AddItem Sheets("员工信息").Cells(i, 1).Value
Next
End Sub

Private Sub form_resize()
'随着窗体大小自动调节图片大小
imag1.Top = 0
imag1.Left = 0
imag1.stretch = True
imag1.Height = Me.ScaleHeight
imag1.Width = Me.ScaleWidth
imag1.Picture = Me.Picture
End Sub

Private Sub UserForm_Initialize()
    Dim r
    ComboBox1.Clear
    ComboBox1.Text = ""
    r = Sheet11.Range("A65536").End(xlUp).Row
    For i = 2 To r
       ComboBox1.AddItem Sheet11.Range("A" & i).Value
    Next
    ComboBox1.ListIndex = 0
End Sub


回复

举报

hymjtc

TA的精华主题

TA的得分主题
 楼主| 发表于 2021-9-5 15:09 | 显示全部楼层
[广告] ★会Excel,就能做支持PC、手机、Web、App、Windows、安卓、IOS、Linux信息一体化的各种管理系统 ★

Private Sub CommandButton1_Click()
On Error GoTo 10 '当姓名与密码不对应时，会出现错误，转到10语句处理
Dim n As String
Set sh = Sheets("员工信息")
na = ComboBox1.Text: ps = TextBox2.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 = 3 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
    Application.Visible = True '显示工作表界面
Next
Unload UserForm1 '退出窗体
Exit Sub
10:
MsgBox "姓名或密码错误，不能登录", , "提示"
End Sub
Sub 隐藏表()
For i = 1 To Worksheets.Count
  If Sheets(i).Name <> "主菜单" Then
    Sheets(i).Visible = 2
  Else
    Sheets(i).Visible = -1 '只让"登录"表显示出来
  End If
  Set Sh7 = Sheet11 '***
    With Sheet11
        .Range("R2").Value = ComboBox1.Text
        .Range("S2").Value = TextBox2.Text
        .Range("T2").Value = Now()
   End With
Next
End Sub
Private Sub CommandButton2_Click()
Call 隐藏表
End Sub
Private Sub UserForm_Activate()
'窗体出现在屏幕上的位置
Me.Top = 100
Me.Left = 200
For i = 2 To Sheets("员工信息").[a65536].End(xlUp).Row
    ComboBox1.AddItem Sheets("员工信息").Cells(i, 1).Value
Next
End Sub

Private Sub form_resize()
'随着窗体大小自动调节图片大小
imag1.Top = 0
imag1.Left = 0
imag1.stretch = True
imag1.Height = Me.ScaleHeight
imag1.Width = Me.ScaleWidth
imag1.Picture = Me.Picture
End Sub

Private Sub UserForm_Initialize()
    Dim r
    ComboBox1.Clear
    ComboBox1.Text = ""
    r = Sheet11.Range("A65536").End(xlUp).Row
    For i = 2 To r
       ComboBox1.AddItem Sheet11.Range("A" & i).Value
    Next
    ComboBox1.ListIndex = 0
End Sub


回复

举报

3190496160

TA的精华主题

TA的得分主题
发表于 2021-9-5 16:30 | 显示全部楼层
[广告] ★ ChatOffice，能听会写的AI办公，包含百种Excel、Word、PPT工具，兼容WPS，百倍效率！★
见不到你文件的实际情况，只能是猜，
你的复合框下拉列表来源于sheet11的A列，是不是A列数据源有重复信息？如果是，可以字典去重复后再建立下拉列表
回复

举报

3190496160

TA的精华主题

TA的得分主题
发表于 2021-9-5 16:35 | 显示全部楼层
[广告] ★ExcelHome默写助手 - 不用妈妈陪的默写神器 · Word/WPS插件 · 自定义默写单 · 自定义描红字帖★
Private Sub UserForm_Initialize()
Dim d As Object
Dim ar As Variant
Dim i As Long
Set d = CreateObject("scripting.dictionary")
r = Sheet11.Range("A65536").End(xlUp).Row
ar = Sheet11.Range("a1:a" & r)
    For i = 2 To r
        If ar(i, 1) <> "" Then
            d(Trim(ar(i, 1))) = ""
        End If
    Next i
    ComboBox1.List = d.keys

End Sub
回复

举报

3190496160

TA的精华主题

TA的得分主题
发表于 2021-9-5 16:36 | 显示全部楼层
[广告] ★Excel Home云课堂 - 专业的职场技能充电站★         ★Excel三大利器★        ★ 笨办法学VBA全系列★
QQ图片20210905163619.png
回复

举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-5-11 14:27 , Processed in 0.037338 second(s), 12 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！     本站特聘法律顾问：李志群律师

快速回复 返回顶部 返回列表