正確學(xué)會(huì)ExcelVBA的16堂課-Excel工作簿相關(guān)操作

1、正確學(xué)會(huì)Excel VBA的16堂課Excel工作簿相關(guān)操作工作簿相關(guān)操作新建與打開工作簿保存與關(guān)閉工作簿工作簿的實(shí)際應(yīng)用新建與打開工作簿新建與打開工作簿 新建空白工作簿 新建僅包含一張工作表的工作簿 在指定位置新建工作簿 打開指定工作簿 打開設(shè)置保護(hù)的工作簿 判斷一個(gè)工作簿是否已打開打開設(shè)置保護(hù)的工作簿打開設(shè)置保護(hù)的工作簿具體的操作步驟如下：步驟1：在Excel工作簿中選擇【文件】【另存為】菜單項(xiàng)，即可打開【另存為】對(duì)話框，在“保存位置”下拉列表中選擇文件的存放位置，如圖3-6所示。步驟2：?jiǎn)螕簟竟ぞ摺肯吕粹o，在其下拉菜單中選擇【常規(guī)】選項(xiàng)，即可打開【常規(guī)選項(xiàng)】對(duì)話框，在“打開權(quán)限密碼”欄

2、中輸入要設(shè)置的密碼“123456”，如圖3-7所示。打開設(shè)置保護(hù)的工作簿打開設(shè)置保護(hù)的工作簿具體的操作步驟如下：步驟3：?jiǎn)螕簟敬_定】按鈕，即可打開【確認(rèn)密碼】對(duì)話框，在“重新輸入密碼”欄中輸入前面設(shè)置的密碼“123456”，如圖3-8所示。步驟4：?jiǎn)螕簟敬_定】按鈕返回【另存為】對(duì)話框，單擊【保存】按鈕，即可將其保存。對(duì)于已設(shè)置密碼保護(hù)的工作簿，如果用“Workbooks.Open+工作簿地址”的方法打開，系統(tǒng)會(huì)彈出一個(gè)【密碼】對(duì)話框，提示用戶輸入打開密碼，如圖3-9所示。保存與關(guān)閉工作簿保存與關(guān)閉工作簿 保存對(duì)工作簿的更改 將工作簿進(jìn)行另存 對(duì)工作簿另存并添加打開密碼 關(guān)閉所有工作簿 關(guān)閉指定

3、位置的工作簿 關(guān)閉前是否保存對(duì)工作簿另存并添加打開密碼對(duì)工作簿另存并添加打開密碼 例如將當(dāng)前文件另存到D盤，文件名為“wodebook”，設(shè)置打開密碼為“123456”。步驟1：在代碼窗口中輸入如下代碼，如圖3-12所示。Sub 另存并加密()ActiveWorkbook.SaveAs D:wodeobook.xls, Password:=123456End Sub步驟2：在運(yùn)行該程序后，即可在指定位置處保存當(dāng)前文件并為其添加密碼。當(dāng)在次打開該文件時(shí)，即可彈出一個(gè)【密碼】對(duì)話框，必須在其中輸入正確密碼后才可打開該文件，如圖3-13所示。關(guān)閉前是否保存關(guān)閉前是否保存（1）關(guān)閉指定工作簿并保存更改

4、利用VBA關(guān)閉指定名稱的工作簿并保存其更改的代碼格式為：Workbooks(工作簿名稱).Close savechanges:=True（2）關(guān)閉指定工作簿不保存更改利用VBA關(guān)閉指定名稱的工作簿但是不保存對(duì)該工作簿的更改的代碼格式如下：Workbooks(工作簿名稱).Close savechanges:=False（3）關(guān)閉當(dāng)前工作簿并保存更改利用VBA關(guān)閉當(dāng)前工作簿并保存的代碼格式如下：ActiveWorkbook(工作簿名稱).Close savechanges:=True（4）關(guān)閉當(dāng)前工作簿不保存更改利用VBA關(guān)閉當(dāng)前工作簿但不保存對(duì)其更改的代碼格式如下：ActiveWorkbook

5、(工作簿名稱).Close savechanges:=False工作簿的實(shí)際應(yīng)用工作簿的實(shí)際應(yīng)用 示例1：打開工作簿時(shí)提示當(dāng)前日期和時(shí)間 示例2：禁止打印工作簿文件內(nèi)容 示例3：禁止編輯工作簿中的所有單元格 示例4：禁止使用關(guān)閉按鈕 示例5：訪問工作簿的屬性打開工作簿時(shí)提示當(dāng)前日期和時(shí)間打開工作簿時(shí)提示當(dāng)前日期和時(shí)間步驟1：在代碼窗口中雙擊【工程】列表中的“ThisWorkbook”選項(xiàng)，進(jìn)入該選項(xiàng)對(duì)應(yīng)的代碼窗口，從中輸入如下代碼，如圖3-16所示。Private Sub Workbook_Open()MsgBox 當(dāng)前日期 & Date & ,當(dāng)前時(shí)間： & Time

6、End Sub步驟2：保存并關(guān)閉該文件，當(dāng)再次打開該工作簿時(shí)，即可自動(dòng)運(yùn)行上述程序，并彈出顯示當(dāng)前日期和時(shí)間的提示框，如圖3-17所示。禁止打印工作簿文件內(nèi)容禁止打印工作簿文件內(nèi)容步驟1：在VBA代碼窗口中雙擊【工程】窗口中的“ThisWorkbook”選項(xiàng)，在其對(duì)應(yīng)代碼窗口“對(duì)象”下拉列表中選擇“Workbook”選項(xiàng)，在“過程”下拉列表中選擇“BeforePrint”選項(xiàng)，在其代碼框架中輸入相應(yīng)的程序代碼，如圖3-18所示。步驟2：在代碼輸入完畢后，當(dāng)在工作表中對(duì)該文件進(jìn)行打印時(shí)，系統(tǒng)則會(huì)彈出相應(yīng)的提示信息，如圖3-19所示。禁止編輯工作簿中的所有單元格禁止編輯工作簿中的所有單元格步驟1：

7、在代碼窗口中輸入如下程序，如圖3-20所示。Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)MsgBox 您好，該文檔不能修改在單元格內(nèi)容發(fā)生改變時(shí)提示不能更改單元格內(nèi)容Application.EnableEvents = False 當(dāng)Application對(duì)象的EnableEvents屬性為False時(shí)，可以禁止其他所有事件程序運(yùn)行。Target.Value = i 使單元格清空Application.EnableEvents = True 由于還要使其他事件程序發(fā)作用，所以設(shè)置Appli

8、cation.EnableEvents = True讓所有事件程序重新有效。End Sub禁止編輯工作簿中的所有單元格禁止編輯工作簿中的所有單元格步驟2：在代碼輸入完畢后，當(dāng)更改單元格內(nèi)容時(shí)，系統(tǒng)則彈出禁止修改單元格內(nèi)容的提示，如圖3-21所示。在關(guān)閉提示信息后，單元格內(nèi)容將被清空。禁止使用關(guān)閉按鈕禁止使用關(guān)閉按鈕禁止使用Excel自帶的退出功能具體操作步驟如下：步驟1：在代碼窗口中輸入如下代碼，如圖3-22所示。Private Sub Workbook_BeforeClose(Cancel As Boolean)Cancel = TrueEnd Sub禁止使用關(guān)閉按鈕禁止使用關(guān)閉按鈕禁止使用

9、Excel自帶的退出功能具體操作步驟如下：步驟2：此時(shí)Excel的【關(guān)閉】按鈕 已失效，用戶要想退出Excel工作簿，則可在代碼窗口中繼續(xù)輸入如下程序，如圖3-23所示。Sub 退出() Application.EnableEvents = False 強(qiáng)行中止事件程序的運(yùn)行 ActiveWorkbook.Close 在中止事件程序的運(yùn)行后執(zhí)行關(guān)閉工作簿的功能 Application.EnableEvents = True 恢復(fù)事件程序的運(yùn)行End Sub禁止使用關(guān)閉按鈕禁止使用關(guān)閉按鈕 在VBA代碼窗口中輸入程序時(shí)，為了使用戶方便程序設(shè)計(jì)操作，可以對(duì)【編輯器】進(jìn)行相應(yīng)的設(shè)置。具體的操作步驟如

10、下：步驟1：在VBA代碼窗口中選擇【工具】【選項(xiàng)】菜單項(xiàng)，即可打開【選項(xiàng)】對(duì)話框，在【編輯器】選項(xiàng)卡中勾選“自動(dòng)列出成員”復(fù)選項(xiàng)，如圖3-24所示。步驟2：?jiǎn)螕簟敬_定】按鈕，即可保存設(shè)置。當(dāng)用戶在代碼窗口中編輯某些對(duì)象的屬性或方法時(shí)，系統(tǒng)就會(huì)自動(dòng)為用戶提供相關(guān)信息列表框，如圖3-25所示。專家課堂（常見問題與解答）專家課堂（常見問題與解答）點(diǎn)撥點(diǎn)撥1：在Excel VBA代碼窗口中要打開已設(shè)置了密碼的工作簿，路徑和文件名均正確的情況下，運(yùn)行代碼為何總彈出錯(cuò)誤提示信息？解答：解答：在路徑和文件名均正確的情況下，彈出錯(cuò)誤提示信息時(shí)，請(qǐng)先檢查使用的程序語(yǔ)法是否正確，特別要檢查的是，password后跟“:=”，而不是等號(hào)。點(diǎn)撥點(diǎn)撥2：在使用代碼程序保存多個(gè)已打開的工