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

    Excel工作表也可以做一个小程序，登录注册后可以访问或修改。为了简便，没有做复杂的控件，能说明问题就行。可以根据需要添加更多的判断条件，控制注册和访问人数。本次操作对注册没有任何限制，只要注册后就可以根据注册的账号和密码进行访问和修改。
注册登录界面截图：

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

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 userNamec