点击上方蓝色字关注我们吧!
你知道如何使用EXCEL设计用户登录界面吗?今天 我们就来学习使用EXCEL设计一个比较简易的用户登录界面。话不多说先来看下效果:
![](https://img.laitimes.com/img/__Qf2AjLwojIjJCLyojI0JCLicmbw5SY2gjN5kTZyYDZwEDM1YjMjBDM0EWZwQ2M2YTOiVGOj9CX0JXZ252bj91Ztl2Lc52YucWbp5GZzNmLn9Gbi1yZtl2Lc9CX6MHc0RHaiojIsJye.png)
本例制作主要包括两方面的内容:
1.设计和布局部分:
- 底色:颜色填充
- 文字:艺术字
- 按键:形状工具
2.功能实现部分:
1.创建用户信息表用于存放用户名和密码。
通过VLOOKUP()检索登录的名称获取相应的密码,判断秘密是否与信息表对应来确定是否是合法可登入用户。(此处的用户信息表及VLOOKUP都是设置成跟底色一样并保护工作表以达到隐藏目的)
2.按ALT+F11添加新模块写入如下代码,通过几行VBA代码判断 VLOOKUP()结果。正确则进入查询主界面,错误输入秘密超过3次则关闭工作薄。
Sub auto_open()
Sheets("load").Visible = True‘显示主界面
Sheets("load").Select
End Sub
Sub load_()
Application.DisplayAlerts = False
Dim i As Integer
If Range("d18") <> Range("i18") Then
MsgBox "密码错误,请重新输入密码"
Range("g17") = Range("g17") + 1‘G17单元格用于累计登入次数。
Range("i18") = ""
Range("i18").Select
If Range("g17") >= 3 Then
MsgBox "密码错误,超过3次"
Range("g17") = 0
Workbooks("search.xlsm").Save
Workbooks("search.xlsm").Close’密码错误超过3次就关闭工作薄。
End If
Else
Sheets("load").Visible = False‘隐藏主页工作表。
Sheets("form").Select’切换到查询主界面工作表。
End If
Application.DisplayAlerts = True
End Sub
其它部分:
1.设置输入密码的单元格i18 ,自定义:**
当我们输入密码时自动变成*号。
2.设置工作表为受保护工作表,但需设置用户名i17和秘密i18以及累计密码次数的单元格g17为可编辑区域。
至此,友好美观的用户登入界面就制作完成了,美化还可根据个人喜好调整。
今天就跟大家分享到这了,如果大家喜欢我分享的内容请收藏、转发、点赞。
-END-