自制内部分享表格系统

1、自制excel表格系统-Gean Zhu 2014.6.5 场景分析 1）登录界面 2）不同职责人员登录不同操作界面 3）管理员可以对权限管理做调整分配 4）数据用户维护数据可以链接到不同需求用户（excel自带链接） 5）查看用户可打印不同页面（excel自制打印表格） 登录页面（框架） 登录要求 1）角色分配，用户管理员administrator，数据维护员data user，分角色用户user1，user2，user3 2）密码登录，不同用户显示不同页面权限 Sheet1画出登入界面达到打开即同时弹出窗体，2者如何连接？vba中插入-窗体Private Sub Workbook_Open

2、()UserForm1.Show 加载登录窗体End Sub 1）放置控件都需要哪些控件？标签Label组合框combobox文本框textbox按钮commandbutton 2）调色 登录sheet做代码Private Sub Worksheet_SelectionChange(ByVal Target As Range)UserForm1.Show 点击空白显示登录End Sub 权限控制将管理权限和普通用户合并处理 界面中的用户信息，建立一个sheet2，用于存储用户信息和权限 是否可以根据结构自动添加D1后的名称？ 设计设置页代码Private Sub Worksheet_Activ

3、ate()将各工作表的名字填入第一行中For i = 2 To Worksheets.CountCells(1, i + 2) = Sheets(i).NameNextEnd Sub 主程序设计 过程梳理打开程序弹出窗体（同时关闭不显示的sheet）选用户输密码登录判断显示应该显示的页面 弹出窗体，首先是打开窗体代码Private Sub UserForm_Activate()窗体出现在屏幕上的位置With UserForm1.TextBox2.PasswordChar = *.CommandButton1.Default = True.CommandButton2.Cancel = True

4、End WithMe.Top = 220Me.Left = 120For i = 2 To Sheets(设置).a65536.End(xlUp).RowComboBox1.AddItem Sheets(设置).Cells(i, 1).ValueNextEnd Sub1.窗体控件属性2.窗体位置属性3.调用设置表中用户名 弹出窗体后，达到控制应该打开页面的问题，第一步需要隐藏不显示的页面Public Sub 隐藏表()ComboBox1.Text = : TextBox2.Text = For i = 1 To Worksheets.CountIf Sheets(i).Name 登录 Then

5、Sheets(i).Visible = 2ElseSheets(i).Visible = -1 只让“登录”表显示出来End IfNextEnd Sub 之前的顺序逻辑中有一个遗漏问题 权限控制在程序一打开时怎么做限制？会显示所有sheet 回到打开程序代码Private Sub Workbook_Open()Call UserForm1.隐藏表UserForm1.Show 加载登录窗体End Sub 点击登录 过程梳理1）如果没有输入，怎么办？需要给出未输入提示，并返回原界面2）如果输入不匹配，怎么办？需要给出输入错误提示，并返回原界面3）正确登录需要解决名字和密码配对，并调取权限，打开对应

6、sheetPrivate Sub CommandButton1_Click()On Error GoTo 10 当姓名与密码不对应时，会出现错误，转到10语句处理Dim n As StringSet sh = Sheets(设置)na = ComboBox1.Text: ps = TextBox2.Text 取得登录窗口中的姓名与密码If na = Or ps = Then MsgBox 未输入用户名或密码，不能登录, , 提示: Exit Subs = WorksheetFunction.Match(na, sh.a:a, 0) 查找用户在A列的位置n = sh.Cells(s, 2) 取出

7、“设置”表中的权限密码，字符型If n ps Then GoTo 10Call 隐藏表检查一下“设置”表的C列及右边各格中的内容，有内容的，说明可以打开内容所指定的工作表For i = 4 To 255b = sh.Cells(s, i).ValueIf b = 1 And sh.Cells(1, i) Then 单元格为1时，表示有权限打开这个表，就让它显示出来Sheets(sh.Cells(1, i).Value).Visible = -1End IfNextUnload UserForm1 退出窗体Exit Sub10:MsgBox 姓名或密码错误，不能登录, , 提示End Sub没有输入正常检查密码错误 点击退出Private Sub CommandButton2_Click()Call 隐藏表If MsgBox(确定关闭excel