VBA在Excel中注册登录界面的应用(V潘谆白说VBA)
文章目录
- 前言
- 一、如何注册登录?
- 二、注册登录界面截图
- 三、操作思路
- 四、运行代码
- 1.注册
- 2.登录
- 3.注册登录界面赋值
- 4.隐藏工作表方法
- 5.显示工作表方法
- 6.打开、关闭工作薄前操作
前言
Excel工作表也可以像其他小程序一样,输入账号和密码,登录后对工作表进行访问和修改,相较于设置密码而言,比较友善,也和现在几乎所有程序注册登录相似。
`
一、如何注册登录?
为了简便,没有做复杂的控件,只为了能简单地说明问题。可以根据需要添加更多的判断条件,控制注册和访问人数,也可以根据不同的账号显示部分工作表。本次操作对注册没有任何限制,只要注册后就可以根据注册的账号和密码进行访问和修改工作薄中所有工作表。
二、注册登录界面截图
三、操作思路
工作表打开和关闭前,除“注册登录界面”工作表,其余工作表全部隐藏。输入账号和密码,点击“注册”后,账号和密码数据保存在“账号密码”工作表A、B列。输入账号和密码,点击登录,若输入的账号和密码与“账号密码”工作表中保存的账号和密码一致,成功进入,隐藏的工作表显示;若不一致,则弹出相应的提示信息。
四、运行代码
1.注册
代码如下:
Sub 按钮1_Click() '注册Dim userName As StringDim passWord As StringDim userNameList As StringDim userNamecount As IntegerDim userNameExist As BooleanuserNameExist = FalseOn Error Resume NextCall regit(userName, passWord)If userName = "" ThenMsgBox ("请输入注册账号")Exit SubElseIf passWord = "" ThenMsgBox ("请输入密码")Exit SubEnd IfuserNamecount = Sheets("账号密码").[A1].End(xlDown).RowMsgBox (userNamecount)