ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 31181|回复: 77

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

  [复制链接]

TA的精华主题

TA的得分主题

发表于 2011-8-28 14:40 | 显示全部楼层 |阅读模式
本帖最后由 深秋的黎明 于 2011-11-26 16:29 编辑

操作界面.jpg
登录界面.jpg
先设置工作簿打开时执行代码:
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

TA的精华主题

TA的得分主题

发表于 2011-8-28 14:48 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2011-8-28 14:49 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2011-8-28 15:39 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
这2张图片还不错。
呵呵,或者楼主应该增加截图的数量的。

TA的精华主题

TA的得分主题

发表于 2011-8-28 15:09 | 显示全部楼层
本帖最后由 6821391 于 2011-8-28 16:01 编辑

{:soso_e173:}

TA的精华主题

TA的得分主题

发表于 2011-8-28 15:44 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2011-8-28 21:48 | 显示全部楼层
448733708 发表于 2011-8-28 15:44
确实不错,图片也是自己做的吗?

都是自己弄的

TA的精华主题

TA的得分主题

发表于 2011-8-29 00:01 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2011-8-29 17:17 | 显示全部楼层
不想给就不要上传个图来。缺少分享精神。倒像是作秀的。{:soso_e116:}

TA的精华主题

TA的得分主题

发表于 2011-9-1 04:50 | 显示全部楼层
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-3-29 19:00 , Processed in 0.049950 second(s), 9 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表