使用Excel制作用户登录窗口的方法？

用VBA代码+用户窗体 ，按Alt + F11进入编辑；确定按钮的代码：；

Private Sub CommandButton1_Click()；

If TextBox1.Text = "123456" Then '密码为123456；

Application.Visible = False '隐藏工作簿；Unload Me ；

UserForm2.Show '下一步就是加载此用户窗体；

Else；If MsgBox("密码错误！是否重新输入？", vbYesNo, "登录失败：") = vbNo Then；MsgBox "您没有访问权限！！", 16；Unload Me；

Else；TextBox1.Value = ""；

TextBox1.SetFocus；

End If；End If；End Sub；取消按钮的代码：；

Private Sub CommandButton2_Click()；Unload Me；

End Sub

如果您想了解更多有关于西安公司变更的问题，可以浏览 西安公司变更频道

本文地址： https://www.tdcaiwu.com/caiwuwenda/2024/0131/88209.html

版权所有:非特殊声明均为本站原创文章，转载请注明出处： 淘丁企服