【分享成果，随喜正能量】生命中的奇迹是发生在我们内心的，当我们观察蓝天、白云、河流、鲜花、绿草乃至孩子和那些动物们，内心升起喜悦时，这一切都是奇迹，如果我们并不把它们当做一回事时，那它们只是它们自己，而你的内心也不会泛起什么波澜。

《VBA代码解决方案》这套教程是我最早推出的教程，目前已经是第二版修订了。这套教程定位于入门后的提高，在学习这套教程过程中，侧重点是要理解及掌握我的“积木编程”思想。要灵活运用教程中的实例像搭积木一下把自己喜欢的代码摆好。

这套教程共三册，一百四十七讲，内容覆盖较广，也是初级和中级间的过度教程，改版后的内容主要是提供程序源码文件及代码修正为32位和64位兼用代码。今后一段时间会给大家陆续推出。今日的内容是第34讲：隐藏Excel主窗口

第三十四讲 如何通过VBA代码隐藏Excel主窗口

朋友们好，今日讲VBA代码第34讲：如何通过VBA代码隐藏Excel主窗口。我们这讲的内容就是希望在程序启动时或运行过程中隐藏Excel主窗口。

1 利用Visible属性实现隐藏主窗口的代码

当Application对象的Visible属性设置为False时，Application对象不可见，即能隐藏Excel主窗口，如下面的代码所示。

Private Sub Workbook_Open()

Application.Visible = False

UserForm1.Show

End Sub

为了使程序运行可视，我又写了几行代码：

Private Sub CommandButton1_Click()

If UserForm1.TextBox2 = 123 Then

Application.Visible = True

UserForm1.Hide

Else

UserForm1.TextBox2 = ""

UserForm1.TextBox2.SetFocus

End If

End Sub

下面我们看看代码窗口：

2 代码的解读及运行

代码解析：

1） 代码工作簿的Open事件，在工作簿打开时将Application对象的Visible属性设置为False隐藏Excel主窗口。

2）显示Excel主窗口的方法是将Application对象的Visible属性重新设置为True。

当工作簿文件打开时，隐藏Excel主窗口，只显示用户登录窗体UserForm1。

运行窗口：

当输入123后，按下确认后，回到主窗口：

今日内容回向：

1：如何隐藏主窗口？

2：上述方法的意义是什么？

本讲内容参考程序文件：VBA代码解决方案修订（1-48）.xlsm

我20多年的VBA实践经验，全部浓缩在下面的各个教程中：

【分享成果，随喜正能量】心将流水同清净，身与浮云无是非。心中有光，向阳而生，温暖的样子，快乐的样子，幸福的样子，美好的样子，才是生命最好的样子。