人事档案管理系统优化版

fyee518

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

wander26

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

Doris_Lee

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

可子可

不能用 打不开 提示损坏

godfreyguo

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

sycno

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

banana1990

为啥打开是黑的呢？

xcchuan

正好需要，试试试试

乐乐2006201505

非常感谢，你的优化，让我受益匪浅。但认真操作后，发现漏洞有些多，大多数功能只针对系统管理员的都做了，其余用户的都没有做。要使其他用户功能可以正常使用，工作量还是比较大的。
下面是简化完善登录窗口进入按钮的代码，供有需要的坛友下载。
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

看看怎么样