隐藏Excel主窗口

admin

72-1        设置Application对象的Visible属性
  K. V& R, h8 k0 C4 T& N! i
. G4 H4 W  E' M当Application对象的Visible属性设置为False时，Application对象不可见，即能隐藏Excel主窗口，如下面的代码所示。
6 M! m9 B1 `4 P, y% ]

1. Private Sub Workbook_Open()
   
2.      Application.Visible = False
   : A, M: |2 C% J9 f
3.      UserForm1.Show
   
4. End Sub

复制代码

  [& x- j& B+ V: z' b
代码解析：
$ ?$ O& t% ^6 C) W! D代码工作簿的Open事件，在工作簿打开时将Application对象的Visible属性设置为False隐藏Excel主窗口。
2 h6 ~& W* Y' l( E- a: y* w; \' H- e显示Excel主窗口的方法是将Application对象的Visible属性重新设置为True。
/ ~( b- t6 H" u% _0 B4 _当工作簿文件打开时，隐藏Excel主窗口，只显示用户登录窗体，如图 72 1所示。
! u& N9 S  C/ ~' q9 H
7 u% m8 f# `7 R, [
8 J' w$ Y( h9 \5 g2 e, s

admin

72-2 将窗口移出屏幕

设置Application对象的Left属性（从屏幕左边界至Microsoft Excel主窗口左边界的距离）和/或Top属性（从屏幕顶端到Microsoft Excel主窗口顶端的距离）将Application对象移出屏幕外，实现隐藏Excel主窗口，如下面的代码所示。

1. Private Sub Workbook_Open()
   ; M+ a/ g1 }5 U
2.      Application.WindowState = xlNormal
   & e3 j/ d$ f% R$ v# t0 r* E$ A
3.      Application.Left = 10000
   / u! \* V# j  G; c) m4 j
4.      UserForm1.StartUpPosition = 2
   , o! O$ d/ S2 C6 ?& i/ t; W
5.      UserForm1.Show
   & Z$ \5 s" c% l! ~" S) h
6. End Sub

复制代码

4 Z8 u1 r5 P9 o+ p: t3 R

代码解析：

工作簿的Open事件过程，设置Application对象的Left属性为一个大的数值，从而将应用程序窗口移出屏幕。

第2行代码将应用程序窗口设置为正常状态，只有当应用程序窗口正常显示时才能够设置Application对象的Left属性。

第2行代码将Application对象的Left属性设置为一个大的数值，从而隐藏Excel主窗口。

第4行代码设置用户窗体的StartUpPosition属性值为2，使窗体显示在屏幕的中央。StartUpPosition属性返回或设置一个值，用来指定用户窗体第一次出现时的位置，请参阅技巧142 。

重新显示Excel主窗口的方法是将应用程序窗口设置为最大化状态代码如下：

Application.WindowState= xlMaximized

当工作簿文件打开时，隐藏Excel主窗口，只显示用户登录窗体，如图 72‑2所示，与通过设置Visible属性实现的效果不同，设置Left属性在任务栏中仍然会显示应用程序窗口按钮。
1 f& A6 n; r) D9 o7 B. b: K' f

admin

72-3         设置工作簿作为加载宏运行
8 A* S$ _. q0 Q. e2 g$ v/ [
1 o' A1 G: i: A利用加载宏不显示工作簿窗口的特点，设置工作簿作为加载宏运行来隐藏工作簿窗口，如下面的代码所示。
( u1 `9 Z; a( U! n

1. Private Sub Workbook_Open()
   
2.     ThisWorkbook.IsAddin = True
   
3.     UserForm1.Show
   ! ]8 ?  T3 d# Z+ V/ v2 e
4. End Sub

复制代码

+ G) v& T% X+ j& T/ n: g; L代码解析：
工作簿的Open事件，在工作簿打开时设置其IsAddin属性值为True，指定工作簿作为加载宏运行。
当工作簿作为加载宏运行时，将有工作薄窗口不可见的特征，从而实现隐藏工作簿窗口的目的，如图 72 3所示

* Y1 s: p7 S. x/ e+ Q6 o2 j/ o

重新显示Excel主窗口的方法是将工作簿的IsAddin属性值设置为False，以显示工作簿窗口。

9 q- ], ?' {% h* g0 c/ a' y