一个简单的VBA登陆窗口制作
Private Sub Workbook_Open()Application.Visible = False
login.Show
End Sub
在窗体代码中做了
Private Sub CommandButton1_Click()
If UserName.Text = "123" And Pwd.Text = "123" Then
Me.Hide
Application.Visible = True
Else
ThisWorkbook.Application.Quit
End If
End Sub
Private Sub CommandButton2_Click()
End
{:1_1:} 请教下,为啥我调试的时候提示Username 没有定义,我在使用其他案例的时候也是没搞懂这个问题,请求指点下,跪谢
页:
[1]