1.先作个窗体,窗体上,建几个Label 。 Label.caption的属性上,写好,用户名,密码之类,再创建2个CommandButton命令按钮,取名为登陆和取消。
2.在Private Sub Workbook_Open()写入代码。
Application.Visible = False
userform1.show
end sub
3.还要注意这个登陆的窗体的X功能失效 可以用下面代码
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode <> 1 Then Cancel = True
End Sub
4.当密码和用户名不对时,就不能进入后面的程序
5.记得关闭程序时,别忘记带上一句
Application.Visible = true
我就提这一点,网上列子很多,自己多学学,不然就算你会登陆的界面了,后面的程序还是不会写的,---小爪