作者:乔山办公网日期:
返回目录:excel表格制作
那得先设置用户权限了,这样才可以,在登陆时,读取不同的用户权限。
我提供个思路吧,具体就不写代码了:
1.制作好27个sheet,全部设置复为隐藏;
2.建立“用户制”sheet,存储27个用户的账号和密码,以及对应的sheet名称等信息;
3.制作登录界面,根据用户名信息将对zd应的sheet显示出来(其它的sheet不显示,自然也改不了了)
首先建立一个用复户窗体UserForm1做为登录窗,制设置两个文本框TextBox1和TextBox2,一个确定按钮,CommandButton1。代码如下
Private Sub CommandButton1_Click()
If TextBox1.Value = "管理员" And TextBox2.Value = "123" Then
Me.Hide
Sheets("sheet1").Select
Else
ThisWorkbook.Application.Quit
End If
End Sub
在thisworkbook项输入如下代码,就在打开文zd档时弹出登录窗。
Private Sub Workbook_Open()
UserForm1.Show 0
End Sub
按"Alt+F11"启动VBA编辑器,右键→插入→用户窗口
按照下图,将控件中的按来钮,和文本框画在“uaerform1”中即可。
双击自“登录”按钮,并输入:
If TextBox1.Value = "管理员" And TextBox2.Value = "123" Then Me.Hide Sheets("sheet1").Select Else ThisWorkbook.Application.QuitE
End if
双击“ThisWorkbook”并输入代码:
Private Sub Workbook_Open() UserForm1.Show 0End Sub
启动如果是2007版本以后,界面如下:(备注:需将文件另存为xlxm文件格式)
VBA也是容易破解的,用excel自带的帐号密码,相对更安zd全:保存的时候,选择“工具”→“常规工具”,在录入密码即可。