在工程資源管理器那裏點開“ThisWorkBook”;如果你的VBA沒有顯示這個管理器，可以用CTRL+R將它調出;接着在彈出的代碼編輯器裏面輸入：
Private Sub Workbook_Open()
***form.Show
End Sub
實用功能，爲Excel文檔添加啓動畫面
首先在Excel中鍵入ALT+F11打開VBA編輯器;在“插入”菜單中，選擇“用戶窗體”;在窗口編輯欄裏拖住對話框的右下角，把窗體拉大;最後的大小就將是咱們自定義的啓動畫面的大小了。
接下來，將“工具箱”裏那個大大的“A”字圖標拖拽到你的窗體上;鼠標點住出現的文本框的一角，將它拉大，將框內文字替換爲之後想要顯示的標題內容即可。如果此時VBA編輯器裏並沒有顯示控件屬性欄，請按F4將其調出，這樣就可以通過屬性欄中的字體一項更改標題字體。這裏默認的字體是宋體，你也可以點擊它右邊畫着“…”的小方框，在彈出的對話框中重新設置。本文例子裏採用的字體是Arial Black Regular，72點。接着將屬性“TextAlign”一欄調整爲“fmTextAlignCenter”，選擇屬性“ForeColor” “按鈕文本” “調色板”，在其中選擇你喜歡的標題顏色。
這裏需要注意一件事，一個Label文本框內只能有一種字體;所以如果還想在彈出框中建立副標題，就還需要在窗體中再添加一個Label文本框纔行。添加完填好文字，設置方法同之前那個Label完全相同。
下面我們要爲彈出的這個對話框添加背景顏色：首先用鼠標在窗體內沒有其他控件的地方點一下，在屬性欄選擇“BackColor” “調色板”，選擇你中意的顏色即可。
你這時可能也注意到了窗體的左上角顯示着UserForm1。這肯定不是我們希望在它彈出時顯示的東西。我們需要在屬性欄內修改它。首先將最上面“名稱”一欄更改爲“Intro”，然後選擇“Caption”，將後面的“UserForm1”更改爲你喜歡的文字即可(本例中使用的是Intro)。
再添加一個Label，這個Label裏面我們可以使用與前一個不同的字體。
接下來的界面設計階段只需要我們擺一擺幾個Label的位置即可。然後雙擊窗體(也就是剛纔那個UserForm1)，在彈出的代碼編輯器裏面，選擇右上角下拉菜單中的“Initialize”;在代碼窗口內“Private Sub UserForm_Initialize()”和“End Sub”中間添加如下代碼：
Appliation.Ontime Now + TimeValue(“00:00:04”),“ClearForm”
這個宏可以用來控制標題對話框顯示時間。在這個例子裏，我將其設置爲4秒鐘。當然你也可以將00:00:04改成任何你想讓啓動畫面停留的時間。
選擇VBA插入菜單中的“模塊”。並在彈出的代碼編輯框內填入下面代碼：
Sub ClearForm()
Unload Intro
End Sub
這段代碼中的ClearForm函數在對話框顯示4秒後卸載掉該窗體。代碼中的“Intro”就是剛纔編輯的窗體名稱(還記得之前咱們已經將窗體名稱更改爲“Intro”了嗎?)。
最後在工程資源管理器那裏點開“ThisWorkBook”;如果你的VBA沒有顯示這個管理器，可以用CTRL+R將它調出;接着在彈出的代碼編輯器裏面輸入：
Private Sub Workbook_Open()
Intro.Show
End Sub
按下ALT+F11返回到原來的Excel工作簿當中;保存文件。如果是07版的Excel，請將文件後綴保存爲.xlsm，這樣打開該文件時將會自動運行文件中定義的宏。如果你按照前面所述一步步完成，下次你再打開這個文件，便會見到一個只停留4秒的啓動框。