求过路的大神帮看看！登陆窗口调试成功，保存后打开怎么不显示登陆窗口？

炒米干

在度娘上找的以下代码，调试也成功了，是在哪没保存成功吗？宏已经启用。
如果在增加一个“用户名”要在哪录入什么代码呢？

Sub login()
Dim p As String
Dim i As Integer
Do
p = InputBox("请输入密码")
If p = "123456" Then
Exit Do
MsgBox ("请输入正确密码")
End If
i = i + 1
Loop While i < 3
If i > 3 Then
MsgBox ("验证失败！，请退出！")
Application.Quit
Else
MsgBox ("欢迎进入系统")
End If
End Sub