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

Bluelost

想在打开Excel文档时显示登录窗体隐藏worksheet!

我是这样写的:

Private Sub Workbook_Open()

UserForm1.Show

Sheet1.Visible = xlSheetVeryHidden

Sheet2.Visible = xlSheetVeryHidden

Sheet3.Visible = xlSheetVeryHidden

End Sub

可是Sheet3.Visible = xlSheetVeryHidden这行出错,结果是sheet1和sheet2都隐藏了但sheet3没隐藏.请问应该怎么写才对?

再问一下xlSheetVeryHidden和xlSheetHidden和xlSheetVisible有什么区别?

coolsunhyil

学习一下

晓月清风

以下是引用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

wu8313

估计楼主是想要这个效果吧？看看这个地址上方漠先生的附件。http://www.office-cn.net/forum.php?mod=viewthread&tid=23248

晓月清风

ctrl+break  就能中断VBA代码执行了

Bluelost

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

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)类型

Bluelost

没错我就是要这种效果! 谢谢!

你所说的保密效果差怎么回事?

[此贴子已经被作者于2005-7-5 8:18:29编辑过]

晓月清风

但是这种保密方法不实用，太容易破解了

晓月清风

突然想起来，是不是整个工作簿都看不见了，只显示一个窗体使用这条命令：application.visible=false然后，在窗体（用户登陆）中设置用户名和密码正确则appliation.visible=true

晓月清风

就我目前所知，EXCEL是没办法做到这一点的！望有高手赐教！