怎么打开工作簿时显示登录窗体隐藏工作簿

晓月清风

以下是引用Bluelost在2005-7-5 8:52:00的发言：

我在登陆按钮设置显示工作表不成功啊!

Private Sub CommandButton1_Click()

If TextBox1.Text = "bluelost" Then

If TextBox2.Text = "001" Then

Application.Visible = True

UserForm1.Visible = False

End If

End If

End Sub

一点登陆就提示说：函数或标记为限制的，或函数使用了Visual Basic 不支持的自动化(Autamation)类型

根据你的代码,是不是要同时满足TextBox1.text="bluelost"和TextBox2.text="001"这两个条件时，才显示EXCEL工作簿。如果是这样的话，条件句应改为：

If TextBox1.Text = "bluelost" and TextBox2.Text = "001" then Application.Visible = True

'两个条件都同时满足时，才执行application.visible=true

coolsunhyil

学习一下