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

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

《不同用户依权限查看不同工作表的VBA实现文档格式.docx》由会员分享，可在线阅读，更多相关《不同用户依权限查看不同工作表的VBA实现文档格式.docx（12页珍藏版）》请在冰豆网上搜索。

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

（登录窗口绘制）

（登录窗口属性设置）

（Userform1代码窗口）

（登录系统按钮属性设置）

（退出系统按钮属性设置）

其它控件属性设备略……

Userform1（登录窗口）代码：

PrivateSubUserForm_QueryClose（CancelAsInteger,CloseModeAsInteger）

Application.Quit

ThisWorkbook.CloseFalse

PrivateSubCommandButton2_Click（）'

关闭系统

UserForm1.Hide

Application.Quit

ThisWorkbook.CloseFalse

PrivateSubUserForm_Activate（）

TextBox1.Text="

"

IfComboBox1.ListCount>

0ThenExitSub'

复合框中的条目数大于0时不继续执行。

如无此句，会导致出现重复用户名下拉列表。

t=Array（"

管理员"

"

受限用户A"

受限用户B"

）

Fori=0To2

Controls（"

ComboBox1"

）.AddItemt（i）

Nexti

PrivateSubCommandButton1_Click（）'

登录按钮

IfComboBox1.Text="

AndTextBox1.Text="

admin"

Then

Dimi%

sht.Visible=True

MsgBox"

管理员登录成功"

'

Application.Visible=True

ElseIfComboBox1.Text="

123"

Worksheets

（2）.Visible=True

Worksheets（3）.Visible=2

Worksheets（4）.Visible=2

登录成功"

456"

Worksheets（3）.Visible=True

Worksheets（4）.Visible=True

Worksheets

（2）.Visible=2

Else

输入错误！

TextBox1="

PrivateSubTextBox1_KeyDown（ByValKeyCodeAsMSForms.ReturnInteger,ByValShiftAsInteger）'

输入完毕回车

IfKeyCode=13Then

相关参考代码（含注释）：

确定

DimshtAsWorksheet

Application.EnableEvents=False'

禁用所有事件

cname=ComboBox1.Value'

获得用户名

cno=WorksheetFunction.Match（cname,Sheets（"

设置"

）.Range（"

a1:

a"

r）,0）'

用户所在行

Ifcname=Sheets（"

cno）.ValueAndPassword=Sheets（"

B"

cno）.ValueThen'

密码对

Unloadpass

Ifcno=2Then'

是管理员

sht.Visible=True'

显示全部表单

Else'

是一般用户

sw=0

s=Sheets（"

C"

cno）

Ifsht.Name=sThen

Sheets（s）.Visible=True'

显示

sw=1

Sheets（"

登录"

）.Visible=False

Ifsw=0ThenMsgBox"

没有你可以看的工作表，去找管理员更正"

Else'

密码不对

j=j-1

Ifj<

0Then

密码不对。

还可以输入"

j&

次。

你已经试了3次了。

再见！

EndIf

Application.EnableEvents=True'

用所有事件

PrivateSubTextBox1_Change（）

Password=TextBox1.Text'

获得密码

PrivateSubUserForm_Initialize（）

r=Sheets（"

A65536"

）.End（xlUp）.Row'

用户最后行

Fori=2Tor'

增加用户名

Me.ComboBox1.AddItemSheets（"

）.Cells（i,1）.Value

Nexti

Me.ComboBox1.SetFocus

ComboBox1.Value=Sheets（"

A2"

）.Value'

默认用户

PrivateSubCommandButton3_Click（）'

退出