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:=TrueEndSubPrivate Sub UserForm_Activate()Application.Visible = FalseEndSub

登录界面

登录成功

登陆失败

直接退出