excel制作窗体查询界面_利用 VBA窗体制作excel登录界面

thisworkbook代码

Private Sub Workbook_Open()UserForm1.ShowEnd Sub

userform代码

Private Sub CommandButton1_Click()If TextBox1.Value = "张三" And TextBox2.Value = "1234" Then    Application.Visible = True    UserForm1.HideElse    MsgBox "输入的用户名或密码不正确，请重新输入", 48, "提示"End IfEnd SubPrivate Sub CommandButton2_Click()UserForm1.HideApplication.Visible = TrueThisWorkbook.Close savechanges:=TrueEnd SubPrivate Sub UserForm_Activate()Application.Visible = FalseEnd Sub

登录界面

登录成功

登陆失败

直接退出