人事档案管理系统优化版

fyee518 · 发表于 2017-4-17 13:34

感谢帮助感谢帮助感谢帮助

wander26 · 发表于 2017-4-19 10:30

看起来很厉害！先赞一个再下载！

Doris_Lee · 发表于 2017-4-25 15:39

新来此处，就收到如此大礼，感谢楼主的无私分享！

可子可 · 发表于 2017-7-9 10:19

不能用打不开提示损坏

godfreyguo · 发表于 2017-7-11 14:09

这么大的文件运行速度怎么样啊？

sycno · 发表于 2017-7-26 14:25

挺复杂的，受用了，研究一下。

banana1990 · 发表于 2017-8-2 17:38

为啥打开是黑的呢？

xcchuan · 发表于 2017-8-12 11:32

正好需要，试试试试

乐乐2006201505 · 发表于 2020-4-5 22:38

非常感谢，你的优化，让我受益匪浅。但认真操作后，发现漏洞有些多，大多数功能只针对系统管理员的都做了，其余用户的都没有做。要使其他用户功能可以正常使用，工作量还是比较大的。
下面是简化完善登录窗口进入按钮的代码，供有需要的坛友下载。
Private Sub CommandButton1_Click1()
If ComboBox1.Text = "" Or TextBox1.Text = "" Then
   MsgBox "请填写齐全", 1 + 64, "系统登陆"
   TextBox1.SetFocus
Else
  If ComboBox1.Text = "系统管理员" Then
Call 用户(3, 1)
  ElseIf ComboBox1.Text = "普通用户1" Then
Call 用户(4, 1)
  ElseIf ComboBox1.Text = "普通用户2" Then
Call 用户(5, 1)
  ElseIf ComboBox1.Text = "普通用户3" Then
Call 用户(6, 1)
  ElseIf ComboBox1.Text = "普通用户4" Then
Call 用户(7, 1)
  End If
End If
End Sub

Sub 用户(a, b)
  With Sheets("SHEET1")
   .Cells(a, b) = ComboBox1.Text
   If .Cells(a, b + 1) = TextBox1.Text Then
      Unload UserForm1
      MsgBox ComboBox1.Text & "你好!欢迎你进入本系统", 1 + 64, "欢迎词"
      Application.Visible = True
      ActiveWorkbook.Unprotect Password:="12345"
      Sheets("主界面").Visible = True
      Sheets("主界面").Activate
      Sheets("A").Visible = False
      ActiveWorkbook.Protect PASSWORD:="12345"
   Else
      MsgBox "登陆密码错误,请重新输入"
   End If
  End With
End Sub

lhc2014 · 发表于 2020-4-13 22:01

看看怎么样

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

[分享] 人事档案管理系统优化版