隐藏Excel主窗口

admin

72-1        设置Application对象的Visible属性
9 N+ |  T3 Y6 c* z4 f
, G' _- O5 }0 P8 C0 |当Application对象的Visible属性设置为False时，Application对象不可见，即能隐藏Excel主窗口，如下面的代码所示。
4 y4 t8 Y2 l0 E8 d; y4 ?7 A
6 e) C1 @* v8 A( |: S

1. Private Sub Workbook_Open()
   0 ]( T) b+ s, V- e' P
2.      Application.Visible = False
   
3.      UserForm1.Show
   3 U/ C1 D; W. Z, O! G9 E
4. End Sub

复制代码

: [5 x, o( j7 u0 a
0 _/ R- A, e0 Y' e代码解析：
$ o' M0 d! p9 @9 z0 G- ]2 h9 [代码工作簿的Open事件，在工作簿打开时将Application对象的Visible属性设置为False隐藏Excel主窗口。
- ~( }1 ^: V( G4 a# f: t. J显示Excel主窗口的方法是将Application对象的Visible属性重新设置为True。
当工作簿文件打开时，隐藏Excel主窗口，只显示用户登录窗体，如图 72 1所示。

- m% G2 D0 B, o# ^( c# V+ L

admin

72-2 将窗口移出屏幕

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

1. Private Sub Workbook_Open()
   5 L6 g* q8 c7 S5 }8 V
2.      Application.WindowState = xlNormal
   ! {/ C% [" L9 N, f# u: e
3.      Application.Left = 10000
   
4.      UserForm1.StartUpPosition = 2
   + p* R" a/ c% y% M/ |. ], h
5.      UserForm1.Show
   0 B2 }4 z( v* s
6. End Sub

复制代码

% ]* T" m3 d1 P

代码解析：

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

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

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

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

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

Application.WindowState= xlMaximized

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

admin

72-3         设置工作簿作为加载宏运行

8 f2 V5 b% p/ |# `1 i. z利用加载宏不显示工作簿窗口的特点，设置工作簿作为加载宏运行来隐藏工作簿窗口，如下面的代码所示。
+ x( s( Y5 g: i9 K- n5 B

1. Private Sub Workbook_Open()
   : L$ b1 ^; B% W8 ^
2.     ThisWorkbook.IsAddin = True
   ! a$ k7 R2 W/ I
3.     UserForm1.Show
   
4. End Sub

复制代码

: J; C5 }# O: m/ i* @* J2 p代码解析：
% a, b1 |, X7 \1 P$ u' j1 e工作簿的Open事件，在工作簿打开时设置其IsAddin属性值为True，指定工作簿作为加载宏运行。
当工作簿作为加载宏运行时，将有工作薄窗口不可见的特征，从而实现隐藏工作簿窗口的目的，如图 72 3所示
1 ~) r1 Q% X8 M1 d

5 G6 e- U' R; n# K9 p3 U( L  O6 ?3 P重新显示Excel主窗口的方法是将工作簿的IsAddin属性值设置为False，以显示工作簿窗口。

+ D1 k# |7 D# }, Z$ H
2 f! `! n+ L( v( K% W