返回目录:excel表格制作
Private Sub Workbook_Open()
UserForm1.Show (1)
sheets("登陆").visiable=2
End Sub
没用的。若不启用宏,你的心思都白费了。
我的思路就是有很多张表,然后画一个窗体,他写的秘密对了,就显示他的那张表。其实还有很多问题呢?思路是这样的。。不同的人不同的表。其他的表没有秘密就是隐藏的。
你的邮箱呢
Private Sub Workbook_Open()
ThisWorkbook.Sheets("登录").Activate
UserForm1.ListBox1.AddItem ("张三e68a84e79fa5e98193364&123")
UserForm1.ListBox1.AddItem ("李四&234")
UserForm1.ListBox1.AddItem ("王二&345")
UserForm1.ListBox1.AddItem ("刘邦&456")
UserForm1.ListBox1.AddItem ("张飞&567")
UserForm1.ListBox1.AddItem ("李世民&678")
UserForm1.ListBox1.AddItem ("项羽&789")
UserForm1.ListBox1.AddItem ("管理员")
UserForm1.Show
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If ActiveSheet.Name <> "登录" Then
If UserForm1.ListBox1.Text = "管理员" Then
Exit Sub
End If
If ActiveSheet.Name <> UserForm1.ListBox1.Text Then
ThisWorkbook.Sheets(UserForm1.ListBox1.Text).Activate
End If
End If
End Sub
Private Sub CommandButton1_Click()
UserForm1.Hide
a = UserForm1.ListBox1.Value
b = UserForm1.TextBox1.Value
f = 0
If a = "张三&123" And b = "123" Then
ThisWorkbook.Sheets("张三&123").Activate
f = 1
End If
If a = "李四&234" And b = "234" Then
Sheets("李四&234").Activate
f = 1
End If
If a = "王&345二" And b = "345" Then
Sheets("王二&345").Activate
f = 1
End If
If a = "刘邦&456" And b = "456" Then
Sheets("刘邦&456").Activate
f = 1
End If
If a = "张飞&567" And b = "567" Then
Sheets("张飞&567").Activate
f = 1
End If
If a = "李世民&678" And b = "678" Then
Sheets("李世民&678").Activate
f = 1
End If
If a = "项羽&789" And b = "789" Then
Sheets("项羽&789").Activate
f = 1
End If
If a = "管理员" And b = "890" Then
Sheets("项羽&789").Activate
f = 1
End If
If f = 0 Then
ThisWorkbook.Close True
End If
End Sub