不同用户依权限查看不同工作表的VBA实现.docx
《不同用户依权限查看不同工作表的VBA实现.docx》由会员分享，可在线阅读，更多相关《不同用户依权限查看不同工作表的VBA实现.docx（12页珍藏版）》请在冰豆网上搜索。
不同用户依权限查看不同工作表的VBA实现
不同用户依权限查看不同工作表的VBA实现
（登录窗口1）
（登录窗口2）
（登录窗口3）
（模块1代码窗口）
Thisworkbook代码窗口
代码如下：
PrivateSubWorkbook_Open（）
Application.Visible=False
UserForm1.Show1
EndSub
PrivateSubWorkbook_BeforeClose（CancelAsBoolean）
OnErrorResumeNext
Application.DisplayAlerts=False
ForEachshtInWorksheets
Ifsht.Name<>Worksheets
（1）.NameThen
sht.Visible=2
EndIf
Next
ThisWorkbook.SaveAsThisWorkbook.Path&"\"&ThisWorkbook.Name,,Password:
="123456",WriteresPassword:
="excel2010"
Me.Saved=True
Application.DisplayAlerts=True
EndSub
（登录窗口绘制）
（登录窗口属性设置）
（Userform1代码窗口）
（登录系统按钮属性设置）
（退出系统按钮属性设置）
其它控件属性设备略……
Userform1（登录窗口）代码：
PrivateSubUserForm_QueryClose（CancelAsInteger,CloseModeAsInteger）
Application.Quit
ThisWorkbook.CloseFalse
EndSub
PrivateSubCommandButton2_Click（）'关闭系统
UserForm1.Hide
Application.Quit
ThisWorkbook.CloseFalse
EndSub
PrivateSubUserForm_Activate（）
TextBox1.Text=""
IfComboBox1.ListCount>0ThenExitSub'复合框中的条目数大于0时不继续执行。
如无此句，会导致出现重复用户名下拉列表。
t=Array（"管理员","受限用户A","受限用户B"）
Fori=0To2
Controls（"ComboBox1"）.AddItemt（i）
Nexti
EndSub
PrivateSubCommandButton1_Click（）'登录按钮
IfComboBox1.Text="管理员"AndTextBox1.Text="admin"Then
Dimi%
ForEachshtInWorksheets
sht.Visible=True
Next
MsgBox"管理员登录成功"
'TextBox1.Text=""
Application.Visible=True
UserForm1.Hide
ElseIfComboBox1.Text="受限用户A"AndTextBox1.Text="123"Then
Worksheets
（2）.Visible=True
Worksheets（3）.Visible=2
Worksheets（4）.Visible=2
MsgBox"登录成功"
Application.Visible=True
'TextBox1.Text=""
UserForm1.Hide
ElseIfComboBox1.Text="受限用户B"AndTextBox1.Text="456"Then
Worksheets（3）.Visible=True
Worksheets（4）.Visible=True
Worksheets
（2）.Visible=2
MsgBox"登录成功"
Application.Visible=True
'TextBox1.Text=""
UserForm1.Hide
Else
MsgBox"输入错误！
"
TextBox1=""
EndIf
EndSub
PrivateSubTextBox1_KeyDown（ByValKeyCodeAsMSForms.ReturnInteger,ByValShiftAsInteger）'输入完毕回车
IfKeyCode=13Then
IfComboBox1.Text="管理员"AndTextBox1.Text="admin"Then
Dimi%
ForEachshtInWorksheets
sht.Visible=True
Next
MsgBox"管理员登录成功"
Application.Visible=True
UserForm1.Hide
ElseIfComboBox1.Text="受限用户A"AndTextBox1.Text="123"Then
Worksheets
（2）.Visible=True
Worksheets（3）.Visible=2
Worksheets（4）.Visible=2
MsgBox"登录成功"
Application.Visible=True
UserForm1.Hide
ElseIfComboBox1.Text="受限用户B"AndTextBox1.Text="456"Then
Worksheets（3）.Visible=True
Worksheets（4）.Visible=True
Worksheets
（2）.Visible=2
MsgBox"登录成功"
Application.Visible=True
UserForm1.Hide
Else
MsgBox"输入错误！
"
TextBox1=""
EndIf
EndIf
EndSub
相关参考代码（含注释）：
PrivateSubCommandButton1_Click（）'确定
DimshtAsWorksheet
Application.EnableEvents=False'禁用所有事件
cname=ComboBox1.Value'获得用户名
cno=WorksheetFunction.Match（cname,Sheets（"设置"）.Range（"a1:
a"&r）,0）'用户所在行
Ifcname=Sheets（"设置"）.Range（"a"&cno）.ValueAndPassword=Sheets（"设置"）.Range（"B"&cno）.ValueThen'密码对
Unloadpass
Ifcno=2Then'是管理员
ForEachshtInWorksheets
sht.Visible=True'显示全部表单
Next
Else'是一般用户
sw=0
s=Sheets（"设置"）.Range（"C"&cno）
ForEachshtInWorksheets
Ifsht.Name=sThen
Sheets（s）.Visible=True'显示
sw=1
Sheets（"登录"）.Visible=False
EndIf
Next
Ifsw=0ThenMsgBox"没有你可以看的工作表，去找管理员更正"
EndIf
Else'密码不对
j=j-1
Ifj<>0Then
MsgBox"密码不对。
还可以输入"&j&"次。
"
TextBox1.Text=""
Else
Unloadpass
MsgBox"密码不对。
你已经试了3次了。
再见！
"
EndIf
EndIf
Application.EnableEvents=True'用所有事件
EndSub
PrivateSubTextBox1_Change（）
Password=TextBox1.Text'获得密码
EndSub
PrivateSubUserForm_Initialize（）
r=Sheets（"设置"）.Range（"A65536"）.End（xlUp）.Row'用户最后行
Fori=2Tor'增加用户名
Me.ComboBox1.AddItemSheets（"设置"）.Cells（i,1）.Value
Nexti
Me.ComboBox1.SetFocus
ComboBox1.Value=Sheets（"设置"）.Range（"A2"）.Value'默认用户
EndSub
PrivateSubCommandButton3_Click（）'退出
Unloadpass
EndSub
升级会员 