用代码说事吧,不知楼主是不是这个意思.
Private Sub Command1_Click()
If InputBox("请输入密码") = "12345" Then
Call AnySub
MsgBox AnyFunction()
Else
Exit Sub
End If
End Sub
Private Sub AnySub()
MsgBox "this is any sub"
End Sub
Private Function AnyFunction() As String
AnyFunction = " this is any function"
End Function
[[it] 本帖最后由 ioriliao 于 2008-10-19 12:34 编辑 [/it]]