Excel-窗体项目-学习成绩查询-11-只显示窗体

微信公众号原文

系统：Windows 7
软件：Excel 2016

• 本系列讲讲Excel中使用窗体实现一个简单的小项目：学习成绩查询
• 目前需要实现的功能已经全部实现，但是每次启动的时候都需要手动点击按钮，并且仍然能看到Excel界面，不够酷
• 如何实现类似一个独立软件的感觉

Part 1：实现功能

1. 点击文件，只弹出界面窗口，不显示Excel文件，有点独立软件的既视感

动图

静图

Part 2： 实现方式

1. 实现逻辑：工作簿打开的时候，不显示Excel，直接显示用户窗体
2. 代码实现：在工作簿打开事件中，加入以下代码即可

• 双击ThisWorkBook，在代码区按以下顺序选择，会自动生成一个open事件过程，动图如下
• Application.Visible = False表示不显示Excel界面
• UserForm1.Show 0显示用户窗体，UserForm1是用户窗体的名称

open事件

Private Sub Workbook_Open()
    Application.Visible = False
    UserForm1.Show 0
End Sub

代码截图

用户窗体名称

Part 3： 如何取消该功能

1. 现在每次点击Excel文件就只是弹出窗体，那么此时想修改代码，或者需要打开Excel界面怎么办？
2. 方法1：按住shift键，再打开Excel文件，以前好像管用，现在好像不太管用，不知道为啥？还是我记错了
3. 方法2：重新新建一个Excel文件，使用以下代码打开窗体Excel文件
   • Application.EnableEvents = False禁用Excel事件

Sub 打开()
    excel_address = "Excel文件绝对地址"
    Application.EnableEvents = False
    Workbooks.Open Filename:=excel_address, ReadOnly:=False
    Application.EnableEvents = True
End Sub

---

• 更多学习交流，可加小编微信号learningBin

---

更多精彩，请关注微信公众号
扫描二维码，关注本公众号