修改代碼的前面部分，如下所示:
Dim frow作為整數
如果txt1。Value = Then '首先判斷用戶名是否為空。
MsgBox用戶名不能為空！，vbInformation，系統提示
出口接頭
如果…就會結束
尺寸xRng As範圍
設置xRng = Sheets。Range(A3:A53)'然後判斷用戶名是否不存在。
如果應用。WorksheetFunction.CountIf(xRng，txt1) = 0然後
MsgBox沒有這個用戶名！，vbInformation，系統提示
出口接頭
如果…就會結束
最後，用工作表判斷用戶名和密碼是否壹致。
frow =。範圍(A3:A53)。查找(what:=txt1)。排
如果。細胞(frow，2) CStr(txt2。文本)然後
MsgBox(密碼錯誤)
txt1。文本=
txt2。文本=
出口接頭
如果…就會結束