【分享成果，随喜正能量】人生在世，誰都不易，生活在外，誰都有淚。即使身受挫折，蒙受不白，也不要輕易放棄。就算人受傷害，心受打擊，也不要刻意報複。因為，放棄意味着屈服，報複說明還在嫉恨。生活不是用來對立的，人生不是用來争鬥的。将心比心，都能想通，以情換情，誰也明白。要懂得理解才能心安，包容才會心寬。

《VBA之EXCEL應用》是非常經典的，是我推出的第七套教程，定位于初級。這套教程從簡單的錄制宏開始講解，一直到窗體的搭建，内容豐富，實例衆多。大家可以非常容易的掌握相關的知識，這套教程共三冊，十七章，都是我們在利用EXCEL工作過程中需要掌握的知識點，希望大家能掌握利用。今日講解的内容是“VBA之EXCEL應用”的第十六章“用戶窗體（Userform）對象”的第4節：打開工作薄時隻顯示窗體及窗體快捷鍵的設置

大家好，我們這節講解一個窗體應用的實例，在這個實例中會利用VBA代碼實現在打開一個工作薄時，工作薄會隐藏，而隻顯示這個工作簿中的一個窗體。如果大家進一步開發可以讓用戶在這個窗體上錄入密碼，如果密碼正确，才可以讓工作簿顯示。

由于實現這個目的的思路比較簡單，就不再進行思路的講解，我們看代碼的搭建部分，由于進入工作簿後隻顯示窗體，我們無法進行後續的測試及進入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.

先關閉上述工作簿，再次打開，就隻顯示下面的界面了：

點擊顯示工作簿：

這個時候就顯示了工作簿了。這個小程序是非常有用的，大家在實踐過程中慢慢體會。

這個方法是指當按特定鍵或特定的組合鍵時運行指定的過程。

語法：expression.OnKey(Key、Procedure)

expression：表示 Application 對象的變量。

參數講解：

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

Procedure 可選 Variant 表示要運行的過程名稱的字符串。 如果 Procedure 為空文本 ("")，則按Key時不發生任何操作。該格式的 OnKey 将更改鍵擊在 Microsoft Excel 中産生的正常結果。

• 如果省略 Procedure 參數，則 Key 恢複為 Microsoft Excel 中的正常結果，同時清除先前使用 OnKey 方法所做的特殊鍵擊設置。
• Key參數可以指定與 Alt、Ctrl 或 Shift 或這些鍵的任意組合組合在一起的任意單個鍵。 每個鍵均可用一個或多個字符表示，例如，a 表示字符 a，{ENTER} 表示 Enter 鍵。
• 若要指定在按下相應的鍵 (例如: Enter 或 Tab) 時不顯示的字符, 請使用下表中列出的代碼。 表中的每個代碼表示鍵盤上的一個鍵。

代碼截圖：

代碼講解：

以上代碼表示在按下f2鍵時将執行mynz這個過程。

接下來即可F2快捷鍵就可以調出窗體UserForm1。

• 快捷鍵如與系統原快捷鍵功能沖突，快捷鍵執行代碼指定功能。

代碼的運行：（略）

今日内容回向：

1） 在打開工作薄時如何隻顯示窗體？

2） 如何給窗體設置快捷鍵？