不同用户依权限查看不同工作表的VBA实现.docx

不同用户依权限查看不同工作表的 VBA 实现 （登录窗口 1） （登录窗口 2） 1 / 11 （登录窗口 3） （模块 1 代码窗口） 2 / 11 This workbook 代码窗口 代码如下： Private Sub Workbook_Open() Application.Visible = False UserForm1.Show 1 End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) On Error Resume Next Application.DisplayAlerts = False For Each sht In Worksheets If sht.Name Worksheets(1).Name Then sht.Visible = 2 End If Next ThisWorkbook.SaveAs ThisWorkbook.Path \ ThisWorkbook.Name, , Password:=123456, WriteresPassword:=excel2010 Me.Saved = True Application.DisplayAlerts = True End Sub 3 / 11 （登录窗口绘制） （登录窗口属性设置） 4 / 11 （ Userform1 代码窗口） 5 / 11 （登录系统按钮属性设置） 6 / 11 （退出系统按钮属性设置） 其它控件属性设备略 …… Userform1 （登录窗口）代码： Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) Application.Quit ThisWorkbook.Close False End Sub Private Sub CommandButton2_Click() 关闭系统 UserForm1.Hide Application.Quit ThisWorkbook.Close False End Sub 7 / 11 Private Sub UserForm_Activate() TextBox1.Text = If ComboBox1.ListCount 0 Then Exit Sub 会导致出现重复用户名下拉列表。 t = Array( 管理员 , 受限用户 A, 受限用户 For i = 0 To 2 Controls(ComboBox1).AddItem t(i) Next i End Sub 复合框中的条目数大于 0 时不继续执行。 如无此句， B) Private Sub CommandButton1_Click() 登录按钮 If ComboBox1.Text = 管理员 And TextBox1.Text = admin Then Dim i% For Each sht In Worksheets sht.Visible = True Next MsgBox 管理员登录成功 TextBox1.Text = Application.Visible = True UserForm1.Hide ElseIf ComboBox1.Text = 受限用户 A And TextBox1.Text = 123 Then Worksheets(2).Visible = True Worksheets(3).Visible = 2 Worksheets(4).Visible = 2 MsgBox 登录成功 Application.Visible = True TextBox1.Text = UserForm1.Hide ElseIf ComboBox1.Text = 受限用户 Worksheets(3).Visible = True Worksheets(4).Visible = True Worksheets(2).Visible = 2 MsgBox 登录成功