打开工作薄时只显示窗体及窗体快捷键的设置

《VBA之Excel应用》是非常经典的，是我推出的第七套教程，定位于初级。这套教程从简单的录制宏开始讲解，一直到窗体的搭建，内容丰富，实例众多。大家可以非常容易的掌握相关的知识，这套教程共三册，十七章，都是我们在利用EXCEL工作过程中需要掌握的知识点，希望大家能掌握利用。今日讲解的内容是“VBA之EXCEL应用”的第十六章“用户窗体（Userform）对象”的第4节：打开工作薄时只显示窗体及窗体快捷键的设置

第四节 打开工作薄时只显示窗体及窗体快捷键的设置

大家好，我们这节讲解一个窗体应用的实例，在这个实例中会利用VBA代码实现在打开一个工作薄时，工作薄会隐藏，而只显示这个工作簿中的一个窗体。如果大家进一步开发可以让用户在这个窗体上录入密码，如果密码正确，才可以让工作簿显示。

1  实现打开工作薄时只显示窗体的代码及代码解读

由于实现这个目的的思路比较简单，就不再进行思路的讲解，我们看代码的搭建部分，由于进入工作簿后只显示窗体，我们无法进行后续的测试及进入VBE窗口，我们先在窗体上增加一个按钮：

并设置按钮的caption属性为“显示工作簿”：

双击这个控件，进入代码界面，在Click事件中加入下面代码：

Private Sub CommandButton1_Click()

    Application.Visible = True

End Sub

代码截图：

代码解读：此处的代码让我们在只显示窗体的界面条件下可以进入工作簿，同时大家要注意屏蔽原有代码中关闭工作簿时不保存退出代码，如下：

我们双击thisworkbook,在工作簿的open事件中写入下面的代码：

Private Sub Workbook_Open()

   Application.Visible = False

   UserForm1.Show

End Sub

代码截图：

代码解读：

  上述代码在工作簿打开时会让工作簿的Visible属性设置为FALSE，即不可见。同时显示窗体UserForm1.

2  实现打开工作薄时只显示窗体的代码运行

先关闭上述工作簿，再次打开，就只显示下面的界面了：

点击显示工作簿：

这个时候就显示了工作簿了。这个小程序是非常有用的，大家在实践过程中慢慢体会。

3  OnKey方法介绍

这个方法是指当按特定键或特定的组合键时运行指定的过程。

语法：expression.OnKey(Key、Procedure)

expression：表示 Application 对象的变量。

参数讲解：

Key      必需    字符串   表示要按的键的字符串。

Procedure   可选 Variant   表示要运行的过程名称的字符串。 如果 Procedure 为空文本 ('')，则按Key时不发生任何操作。该格式的 OnKey 将更改键击在 Microsoft Excel 中产生的正常结果。

l如果省略 Procedure 参数，则 Key 恢复为 Microsoft Excel 中的正常结果，同时清除先前使用 OnKey 方法所做的特殊键击设置。

lKey参数可以指定与 Alt、Ctrl 或 Shift 或这些键的任意组合组合在一起的任意单个键。 每个键均可用一个或多个字符表示，例如，a 表示字符 a，{ENTER} 表示 Enter 键。

l若要指定在按下相应的键 (例如: Enter 或 Tab) 时不显示的字符, 请使用下表中列出的代码。 表中的每个代码表示键盘上的一个键。

4  为窗体设置快捷键

代码截图：

代码讲解：

以上代码表示在按下f2键时将执行mynz这个过程。

接下来即可F2快捷键就可以调出窗体UserForm1。

l快捷键如与系统原快捷键功能冲突，快捷键执行代码指定功能。

代码的运行：（略）

今日内容回向：

   1） 在打开工作薄时如何只显示窗体？

   2） 如何给窗体设置快捷键？