officeba > 单独文章

---

打开EXCEL直接显示窗体不显示工作簿方法大全

打开EXCEL直接显示窗体不显示工作簿方法大全：
想在打开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有什么区别?
在VBE编辑器中，插入一个用户窗体，并在其中添加控件，如下图所示：

其相应的代码为：

Private Sub CommandButton1_Click()
    Dim i As Long
    i = Worksheets("sheet1").Range("A65536").End(xlUp).Row
    If Range("A1") = "" Then
        Range("A1") = TextBox1.Text
    Else
        i = i + 1
        Range("A" & i) = TextBox1.Text
    End If
    TextBox1.Text = ""
    TextBox1.SetFocus
End Sub
几种方法探讨
要使代码在工作簿打开时执行，则应利用Workbook_Open事件。一般应该将代码放置在ThisWorkbook模块中，这样在打开该工作簿时会执行其中的代码。
1、下面的代码，打开工作簿后，工作表均隐藏，只显示用户窗体，但Excel菜单和工具栏仍显示。

Private Sub Workbook_Open()
    UserForm1.Show
    Workbooks("Sample1.xls").Windows(1).Visible = False
End Sub
详见示例Sample1.xls。
2、下面的代码，在打开工作簿后，将只显示用户窗体。

Private Sub Workbook_Open()
  '最小化窗口
  Application.WindowState = xlMinimized
  '显示用户窗体
  UserForm1.Show
End Sub
若需在关闭用户窗体后，工作簿也随之前闭，则在用户窗体关闭事件中，添加下面的代码：

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    ThisWorkbook.Close
End Sub
当关闭用户窗体时，Excel会提示用户是否保存对工作簿的修改，单击“是”将保存工作簿并退出。若要默认关闭用户窗体并自动保存工作簿，则添加下面的代码：

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    ThisWorkbook.Close SaveChanges:=True
End Sub
详见示例Sample2.xls。
3、下面的示例代码，将彻底隐藏工作簿。在打开工作簿后，该工作簿将被隐藏，而只显示用户窗体，即将用户窗体当作用户输入界面，工作簿当作后台数据存储和处理。

Private Sub Workbook_Open()
    '隐藏工作簿
    Application.Visible = False
    '显示用户窗体
    UserForm1.Show
End Sub
详见示例Sample3.xls。
注意：此时，Excel将在后台运行，要退出该Excel应用程序，必须结束其进程。

声明：欢迎各大网站转载本站文章，还请保留一条能直接指向本站的超级链接，谢谢！

时间:2009-06-14 21:07:27,点击:65824