【分享成果,随喜正能量】生命中的奇迹是发生在我们内心的,当我们观察蓝天、白云、河流、鲜花、绿草乃至孩子和那些动物们,内心升起喜悦时,这一切都是奇迹,如果我们并不把它们当做一回事时,那它们只是它们自己,而你的内心也不会泛起什么波澜。
《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实践经验,全部浓缩在下面的各个教程中:
【分享成果,随喜正能量】心将流水同清净,身与浮云无是非。心中有光,向阳而生,温暖的样子,快乐的样子,幸福的样子,美好的样子,才是生命最好的样子。