打开Excel前弹出登录窗口
点击Excel表打开前弹出登录窗口,注册会员方可进入,代码怎么写?请高手指点 --------------------编程问答--------------------
'类似下面的方式
Private Sub Workbook_Open()
Dim Message, Title, Default, MyValue
Message = "输入OK进入" ' 设置提示信息。
Title = "InputBox" ' 设置标题。
Default = "Ok" ' 设置缺省值。
' 显示信息、标题及缺省值。
If InputBox(Message, Title, Default) <> "Ok" Then
Application.Quit
End If
End Sub
你明白了这个道理,当然也可以做自己的窗体了,这些控制就非常简单,问题的关键在Workbook_Open事件处理代码 --------------------编程问答-------------------- 楼上的太强了!!! --------------------编程问答-------------------- 楼主太好了 --------------------编程问答-------------------- 每天回贴可得十分
补充:VB , 控件