VBA在Excel中注册登录界面的应用

VBA在Excel中注册登录界面的应用（V潘谆白说VBA）

---

前言

Excel工作表也可以像其他小程序一样，输入账号和密码，登录后对工作表进行访问和修改，相较于设置密码而言，比较友善，也和现在几乎所有程序注册登录相似。

---

`

一、如何注册登录？

为了简便，没有做复杂的控件，只为了能简单地说明问题。可以根据需要添加更多的判断条件，控制注册和访问人数，也可以根据不同的账号显示部分工作表。本次操作对注册没有任何限制，只要注册后就可以根据注册的账号和密码进行访问和修改工作薄中所有工作表。

二、注册登录界面截图

三、操作思路

工作表打开和关闭前，除“注册登录界面”工作表，其余工作表全部隐藏。输入账号和密码，点击“注册”后，账号和密码数据保存在“账号密码”工作表A、B列。输入账号和密码，点击登录，若输入的账号和密码与“账号密码”工作表中保存的账号和密码一致，成功进入，隐藏的工作表显示；若不一致，则弹出相应的提示信息。

四、运行代码

1.注册

代码如下：

Sub 按钮1_Click()       '注册
  Dim userName As String
  Dim passWord As String
  Dim userNameList As String
  Dim userNamecount As Integer
  Dim userNameExist As Boolean
  userNameExist = False
  On Error Resume Next
  Call regit(userName, passWord)
  
  If userName = "" Then
    MsgBox ("请输入注册账号")
    Exit Sub
  ElseIf passWord = "" Then
    MsgBox ("请输入密码")
    Exit Sub
  End If
  userNamecount = Sheets("账号密码").[A1].End(xlDown).Row
  MsgBox (userNamecount)
  If userNamecount = 1 Then
    Sheets("账号密码").Cells(2, 1) = userName
    Sheets<