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

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有什么区别?

晓月清风

EXCEL必须最少含有一张可视表，所以执行你的代码到Sheet3.visible就会被终止，并提示错误。

xlSheetVisible为可视，就像我们平常打开一个excel文件，所能看到的工作表都是可视的；

xlSheetHidden为隐藏，可通过“格式”-“工作表”-“取消隐藏”变为可视，当然也可通过这个方法隐藏，不是真正的隐藏

xlVeryHidden是真正的隐藏，在“文件”-“属性”-“内容”中都无法看到，只有通过代码控制改其属性或者打开VBE窗口修改属性为xlSheetVisible

Bluelost

那请问有什么办法可以把工作表隐藏起来啊.我在论坛上见过这样的例子的,打开后只显示一个窗体,工作簿全部隐藏起来了,要登录才打开.但我现在找不到了

晓月清风

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

晓月清风

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

晓月清风

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

Bluelost

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

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

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

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

晓月清风

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

wu8313

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