隐藏Excel主窗口

admin

72-1        设置Application对象的Visible属性
9 k+ F: Q, t8 I" r8 l8 g2 z4 z7 v
! b, Q! m1 i2 @# k当Application对象的Visible属性设置为False时，Application对象不可见，即能隐藏Excel主窗口，如下面的代码所示。
$ p7 j2 o$ b- {. y  [0 E
4 G( \- v, s$ F  f

1. Private Sub Workbook_Open()
   
2.      Application.Visible = False
   
3.      UserForm1.Show
   
4. End Sub

复制代码

1 w/ Y/ S" ^+ m代码解析：
代码工作簿的Open事件，在工作簿打开时将Application对象的Visible属性设置为False隐藏Excel主窗口。
) f! R1 e8 j* @0 D3 @显示Excel主窗口的方法是将Application对象的Visible属性重新设置为True。
, `0 v" y" {  d& k- M" T当工作簿文件打开时，隐藏Excel主窗口，只显示用户登录窗体，如图 72 1所示。
2 X  w5 O  U* ]# F3 d9 w$ n. |
* b  a4 [  Y: C
; l! H! K5 ^* c# y# y+ o

admin

72-2 将窗口移出屏幕

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

1. Private Sub Workbook_Open()
   1 P: g8 Y1 _+ W& I$ a
2.      Application.WindowState = xlNormal
   
3.      Application.Left = 10000
   " M1 i- X; p! X' w  h* R9 g
4.      UserForm1.StartUpPosition = 2
   
5.      UserForm1.Show
   : g# D1 x: g8 x# O
6. End Sub

复制代码

代码解析：

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

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

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

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

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

Application.WindowState= xlMaximized

当工作簿文件打开时，隐藏Excel主窗口，只显示用户登录窗体，如图 72‑2所示，与通过设置Visible属性实现的效果不同，设置Left属性在任务栏中仍然会显示应用程序窗口按钮。
: W0 n" O) n/ R/ E# j' E

admin

72-3         设置工作簿作为加载宏运行
$ U1 D7 K1 ]: u4 y1 V2 a
9 x* A1 v2 O) e- w" r" F' Y, D4 ^3 n利用加载宏不显示工作簿窗口的特点，设置工作簿作为加载宏运行来隐藏工作簿窗口，如下面的代码所示。

1. Private Sub Workbook_Open()
   - M; r$ k+ U+ E/ d4 ]' ^4 `
2.     ThisWorkbook.IsAddin = True
   
3.     UserForm1.Show
   
4. End Sub

复制代码

代码解析：
/ `7 f2 W2 q. |# r工作簿的Open事件，在工作簿打开时设置其IsAddin属性值为True，指定工作簿作为加载宏运行。
当工作簿作为加载宏运行时，将有工作薄窗口不可见的特征，从而实现隐藏工作簿窗口的目的，如图 72 3所示

% l5 L! }1 [9 ?" B9 {. d

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

; f6 Y) ~) E- [" ?
! a: e5 d( K& K3 z" S