一个最简单的密码登录窗口

深秋的黎明

先设置工作簿打开时执行代码：
Private Sub Workbook_Open()
Sheet2.Select                    '将表2设置成全空白
Application.Visible = False          '关闭屏幕刷新
UserForm1.Show                   '弹出对话框1     
End Sub

然后设置对话框“确认”按钮代码：
Private Sub CommandButton1_Click()
A = TextBox1.Text
If "888888" = A Then
Application.Visible = True
Sheet2.Select
Unload Me
Else
MsgBox "密码错误,系统退出！"
Application.Visible = True
Application.Quit
End If
End Sub
Private Sub CommandButton2_Click()
Unload Me
Application.Quit
End Sub
★ 设置用户权限密码登录系统的格式
IF判断密码准确性
关闭对话框
保护所有工作表
IF判断用户性质
解除工作表保护
ElseIf判断其他用户
保护所有工作表
Else
End If
Else
密码错误即退出
End If
示例：
Private Sub CommandButton1_Click()
Sheet4.Select         
Application.ScreenUpdating = False
Sheet1.[B15] = ComboBox1.Text               '复制用户名
Sheet1.[A15] = TextBox1.Text                 '复制密码
If Sheet1.[A15] = Sheet1.[D15] Then            '如果：核对用户名及密码是否匹配，那么
Application.Visible = True                     '取消工作表的隐藏
Unload Me                                  '关闭对话框
BH                                        '保护工作表
If Sheet1.[C15] = 1 Then                    
MsgBox "系统管理员：权限-全部", , "提示"
JC                                         '解除保护工作表
Sheet3.Select
ElseIf Sheet1.[C15] = 2 Then
MsgBox "非系统管理员：权限-查看", , "提示"
BH
Sheet4.Select
Else
End If
Application.ScreenUpdating = True
Else
MsgBox "密码错误,系统退出!", , "提示"
Application.Visible = True
Application.ScreenUpdating = True
Application.Quit
End If
Application.ScreenUpdating = True
End Su

zhys129

{:soso_e179:}挺专业！

skyzxh

做的不错，赞一个

AVEL

这2张图片还不错。
呵呵，或者楼主应该增加截图的数量的。

6821391

{:soso_e173:}

448733708

确实不错，图片也是自己做的吗？

深秋的黎明

448733708 发表于 2011-8-28 15:44
确实不错，图片也是自己做的吗？

都是自己弄的

warrens

什么东东，弄得这么神秘

XJC265

不想给就不要上传个图来。缺少分享精神。倒像是作秀的。{:soso_e116:}

joyark

不想給就不要上傳個圖來